From mboxrd@z Thu Jan 1 00:00:00 1970 Received: from eggs.gnu.org ([2001:4830:134:3::10]:45022) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1eKPLr-0007jn-1v for guix-patches@gnu.org; Thu, 30 Nov 2017 08:58:08 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1eKPLm-00026A-In for guix-patches@gnu.org; Thu, 30 Nov 2017 08:58:07 -0500 Received: from debbugs.gnu.org ([208.118.235.43]:57235) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1eKPLm-000266-Fn for guix-patches@gnu.org; Thu, 30 Nov 2017 08:58:02 -0500 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1eKPLm-0000iF-9x for guix-patches@gnu.org; Thu, 30 Nov 2017 08:58:02 -0500 Subject: [bug#29509] [PATCH 2/6] progress: 'progress-bar' accounts for brackets. Resent-Message-ID: From: Ludovic =?UTF-8?Q?Court=C3=A8s?= Date: Thu, 30 Nov 2017 14:56:58 +0100 Message-Id: <20171130135702.4321-2-ludo@gnu.org> In-Reply-To: <20171130135702.4321-1-ludo@gnu.org> References: <20171130135702.4321-1-ludo@gnu.org> List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-patches-bounces+kyle=kyleam.com@gnu.org Sender: "Guix-patches" To: 29509@debbugs.gnu.org * 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