diff options
| author | Liliana Marie Prikler <liliana.prikler@gmail.com> | 2023-11-19 10:02:15 +0100 |
|---|---|---|
| committer | Liliana Marie Prikler <liliana.prikler@gmail.com> | 2023-11-19 10:02:15 +0100 |
| commit | 1cc3b7e80f60a2a5a6a1400ed0b025efeae7a523 (patch) | |
| tree | 77cbf407563c8c4b1acc00fe0fdb8ac79b1fdd95 /guix/progress.scm | |
| parent | f64ec2b15132c46bcdf0546196646237890832f6 (diff) | |
| parent | b7abea0fd6a146563830db1dc4ddd0cceb6fcf1c (diff) | |
Merge branch 'master' into gnome-team
Change-Id: I62da840b7600f2d3d8541e666d09e2f2a1b7d8c4
Diffstat (limited to 'guix/progress.scm')
| -rw-r--r-- | guix/progress.scm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/guix/progress.scm b/guix/progress.scm index 33cf6f4a1a..13d3ddc171 100644 --- a/guix/progress.scm +++ b/guix/progress.scm @@ -21,6 +21,8 @@ (define-module (guix progress) #:use-module (guix records) + #:use-module ((guix build syscalls) + #:select (terminal-string-width)) #:use-module (srfi srfi-19) #:use-module (rnrs io ports) #:use-module (rnrs bytevectors) @@ -307,7 +309,7 @@ tasks is performed. Write PREFIX at the beginning of the line." (if (string-null? prefix) (display (progress-bar ratio (current-terminal-columns)) port) (let ((width (- (current-terminal-columns) - (string-length prefix) 3))) + (terminal-string-width prefix) 3))) (display prefix port) (display " " port) (display (progress-bar ratio width) port))) |