~ruther/guix-local: progress: 'progress-bar' accounts for brackets.

5ed534ccc352cea9fd7920e820c8e5f47ea456ba — Ludovic Courtès 8 years ago 1252dd3

progress: 'progress-bar' accounts for brackets.

* guix/progress.scm (progress-bar): Subtract 2 to BAR-WIDTH to account
for brackets.

patch browse .tar.gz

1 files changed, 2 insertions(+), 1 deletions(-)

M guix/progress.scm

M guix/progress.scm => guix/progress.scm +2 -1

@@ 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]"