ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-26 06:18:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

progress: Factorize erase-in-line.

Browse source 
* guix/progress.scm (erase-in-line): New procedure.
(progress-reporter/file): Use it.
This commit is contained in:
Ludovic Courtès 2017-11-22 14:05:35 +01:00
parent e695d79dc6
commit 1252dd325b
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 7 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
guix/progress.scm
View file

@ -153,6 +153,11 @@ (define* (progress-bar % #:optional (bar-width 20))
(make-string filled #\#)
(make-string empty #\space))))
(define (erase-in-line port)
"Write an ANSI erase-in-line sequence to PORT to erase the whole line and
move the cursor to the beginning of the line."
(display "\r\x1b[K" port))
(define* (progress-reporter/file file size
#:optional (log-port (current-output-port))
#:key (abbreviation basename))
@ -176,7 +181,7 @@ (define elapsed
(byte-count->string throughput)
(seconds->string elapsed)
(progress-bar %) %)))
(display "\r\x1b[K" log-port)
(erase-in-line log-port)
(display (string-pad-middle left right
(current-terminal-columns))
log-port)
@ -188,7 +193,7 @@ (define elapsed
(byte-count->string throughput)
(seconds->string elapsed)
(byte-count->string transferred))))
(display "\r\x1b[K" log-port)
(erase-in-line log-port)
(display (string-pad-middle left right
(current-terminal-columns))
log-port)