diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2019-02-11 22:47:06 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2019-02-11 23:23:27 +0100 |
| commit | 5ea206a8a916ff055c1f3840e4a52ab2c123658f (patch) | |
| tree | 0c259aa0c323e3a6fb92e718d6593a5685936b38 | |
| parent | 6701edbfad62ba9572ffd35497df3db27b208ba5 (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.scm | 3 |
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 |