From 5ed534ccc352cea9fd7920e820c8e5f47ea456ba Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Wed, 22 Nov 2017 14:36:20 +0100 Subject: progress: 'progress-bar' accounts for brackets. * 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(-) (limited to 'guix/progress.scm') 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]" -- cgit v1.2.3