[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[bug#29509] [PATCH 2/6] progress: 'progress-bar' accounts for brackets.
From: |
Ludovic Courtès |
Subject: |
[bug#29509] [PATCH 2/6] progress: 'progress-bar' accounts for brackets. |
Date: |
Thu, 30 Nov 2017 14:56:58 +0100 |
* guix/progress.scm (progress-bar): Subtract 2 to BAR-WIDTH to account
for brackets.
---
guix/progress.scm | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/guix/progress.scm b/guix/progress.scm
index 1993c7403..ba7944214 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]"
--
2.15.0