diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2017-11-22 14:36:20 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2017-12-01 16:00:14 +0100 |
| commit | 5ed534ccc352cea9fd7920e820c8e5f47ea456ba (patch) | |
| tree | 9c7a2751b9537ff6ece422c3c0d1fcb43b141832 /guix/progress.scm | |
| parent | 1252dd325bbb71387092e9e89ff1ede8ef3f1d5f (diff) | |
| download | gnu-guix-5ed534ccc352cea9fd7920e820c8e5f47ea456ba.tar gnu-guix-5ed534ccc352cea9fd7920e820c8e5f47ea456ba.tar.gz | |
progress: 'progress-bar' accounts for brackets.
* guix/progress.scm (progress-bar): Subtract 2 to BAR-WIDTH to account
for brackets.
Diffstat (limited to 'guix/progress.scm')
| -rw-r--r-- | guix/progress.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/guix/progress.scm b/guix/progress.scm index 1993c74030..ba7944214b 100644 --- a/guix/progress.scm +++ b/guix/progress.scm @@ -146,7 +146,8 @@ INTERVAL (a time-duration object), otherwise does nothing and returns #f." (define* (progress-bar % #:optional (bar-width 20)) "Return % as a string representing an ASCII-art progress bar. The total width of the bar is BAR-WIDTH." - (let* ((fraction (/ % 100)) + (let* ((bar-width (max 3 (- bar-width 2))) + (fraction (/ % 100)) (filled (inexact->exact (floor (* fraction bar-width)))) (empty (- bar-width filled))) (format #f "[~a~a]" |