summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2019-02-11 22:47:06 +0100
committerLudovic Courtès <ludo@gnu.org>2019-02-11 23:23:27 +0100
commit5ea206a8a916ff055c1f3840e4a52ab2c123658f (patch)
tree0c259aa0c323e3a6fb92e718d6593a5685936b38
parent6701edbfad62ba9572ffd35497df3db27b208ba5 (diff)
status: Erase the current line upon new builds or downloads.
* guix/status.scm (print-build-event): Add 'erase-current-line*' call upon 'build-started, 'substituter-started, 'download-started.
-rw-r--r--guix/status.scm3
1 files changed, 3 insertions, 0 deletions
diff --git a/guix/status.scm b/guix/status.scm
index cd5027ef17..bddaa003db 100644
--- a/guix/status.scm
+++ b/guix/status.scm
@@ -506,6 +506,7 @@ addition to build events."
(match event
(('build-started drv . _)
+ (erase-current-line*)
(let ((properties (derivation-properties
(read-derivation-from-file drv))))
(match (assq-ref properties 'type)
@@ -552,10 +553,12 @@ addition to build events."
(format port (info (G_ "View build log at '~a'.")) log)))
(newline port))
(('substituter-started item _ ...)
+ (erase-current-line*)
(when (or print-log? (not (extended-build-trace-supported?)))
(format port (info (G_ "substituting ~a...")) item)
(newline port)))
(('download-started item uri _ ...)
+ (erase-current-line*)
(format port (info (G_ "downloading from ~a...")) uri)
(newline port))
(('download-progress item uri