ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-11-08 07:56:16 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

progress: 'progress-bar' accounts for brackets.

Browse source 
* guix/progress.scm (progress-bar): Subtract 2 to BAR-WIDTH to account
for brackets.
This commit is contained in:
Ludovic Courtès 2017-11-22 14:36:20 +01:00
parent 1252dd325b
commit 5ed534ccc3
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
guix/progress.scm
View file

@ -146,7 +146,8 @@ (define current-terminal-columns
(define* (progress-bar % #:optional (bar-width 20)) (define* (progress-bar % #:optional (bar-width 20))
"Return % as a string representing an ASCII-art progress bar. The total "Return % as a string representing an ASCII-art progress bar. The total
width of the bar is BAR-WIDTH." 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)))) (filled (inexact->exact (floor (* fraction bar-width))))
(empty (- bar-width filled))) (empty (- bar-width filled)))
(format #f "[~a~a]" (format #f "[~a~a]"