aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2017-11-22 14:36:20 +0100
committerLudovic Courtès <ludo@gnu.org>2017-12-01 16:00:14 +0100
commit5ed534ccc352cea9fd7920e820c8e5f47ea456ba (patch)
tree9c7a2751b9537ff6ece422c3c0d1fcb43b141832
parent1252dd325bbb71387092e9e89ff1ede8ef3f1d5f (diff)
downloadpatches-5ed534ccc352cea9fd7920e820c8e5f47ea456ba.tar
patches-5ed534ccc352cea9fd7920e820c8e5f47ea456ba.tar.gz
progress: 'progress-bar' accounts for brackets.
* guix/progress.scm (progress-bar): Subtract 2 to BAR-WIDTH to account for brackets.
-rw-r--r--guix/progress.scm3
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]"