amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

guix: Properly compute progress bar width.

Browse source 
* guix/progress.scm (progress-reporter/bar): Take font width into account to
compute progress bar width.
* guix/git.scm (show-progress): Take font width into account to compute
progress bar width.

Change-Id: I946e447c1ea7c6eb4ff805400280f39e8f1a7c02
This commit is contained in:
Julien Lepiller 2023-11-11 11:02:07 +01:00
parent fd11d7fbf8
commit 28ca80717d
No known key found for this signature in database
GPG key ID: 53D457B2D636EE82
2 changed files with 6 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
guix/git.scm
View file

@ -33,6 +33,8 @@
#:use-module (guix store)
#:use-module (guix utils)
#:use-module (guix records)
#:use-module ((guix build syscalls)
#:select (terminal-string-width))
#:use-module (guix gexp)
#:autoload (guix git-download)
(git-reference-url git-reference-commit git-reference-recursive?)
@ -154,7 +156,7 @@ the 'SSL_CERT_FILE' and 'SSL_CERT_DIR' environment variables."
;; TODO: Both should be handled & exposed by the PROGRESS-BAR API instead.
(define width
(max (- (current-terminal-columns)
(string-length label) 7)
(terminal-string-width label) 7)
3))
(define grain