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

status: Erase the progress bar or spinner.

Browse source 
Previously the progress bar wouldn't be erased by the time the next
"building foo" line would be printed.

* guix/status.scm (print-build-event)[erase-current-line*]: New
procedure.
Call it instead of (display "\r").
This commit is contained in:
Ludovic Courtès 2019-02-04 11:27:24 +01:00
parent 3869effdd5
commit 7473bce207
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 8 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
guix/status.scm
View file

@ -465,8 +465,15 @@ (define print-log-line
(_ (_
(spin! port)))))) (spin! port))))))
(define erase-current-line*
(if (isatty?* port)
(lambda (port)
(erase-current-line port)
(force-output port))
(const #t)))
(unless print-log? (unless print-log?
(display "\r" port)) ;erase the spinner (erase-current-line* port)) ;clear the spinner or progress bar
(match event (match event
(('build-started drv . _) (('build-started drv . _)
(let ((properties (derivation-properties (let ((properties (derivation-properties