02/06: status: Erase the current line upon new builds or downloads.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit 5ea206a8a916ff055c1f3840e4a52ab2c123658f
Author: Ludovic Courtès <address@hidden>
Date:   Mon Feb 11 22:47:06 2019 +0100

    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.
---
 guix/status.scm | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/guix/status.scm b/guix/status.scm
index cd5027e..bddaa00 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