04/10: download: Send an ANSI erase-in-line sequence in addition to CR.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository guix.

commit 8a2154fefaafe631905c12891c9c2587dadbc863
Author: Ludovic Courtès <address@hidden>
Date:   Thu Apr 14 22:47:40 2016 +0200

    download: Send an ANSI erase-in-line sequence in addition to CR.
    
    Partly fixes <http://bugs.gnu.org/22536>.
    Reported by Danny Milosavljevic <address@hidden>.
    
    * guix/build/download.scm (progress-proc): Send an ANSI erase-in-line
    sequence.
---
 guix/build/download.scm |    4 ++--
 1 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/guix/build/download.scm b/guix/build/download.scm
index fb236d3..3c8359b 100644
--- a/guix/build/download.scm
+++ b/guix/build/download.scm
@@ -167,8 +167,8 @@ used to shorten FILE for display."
                                          (seconds->string elapsed)
                                          (progress-bar %) %)))
                 ;; TODO: Make this adapt to the actual terminal width.
+                (display "\r\x1b[K" log-port)
                 (display (string-pad-middle left right 80) log-port)
-                (display #\cr log-port)
                 (flush-output-port log-port)
                 (cont))))
           (lambda (transferred cont)
@@ -183,8 +183,8 @@ used to shorten FILE for display."
                                          (seconds->string elapsed)
                                          (byte-count->string transferred))))
                 ;; TODO: Make this adapt to the actual terminal width.
+                (display "\r\x1b[K" log-port)
                 (display (string-pad-middle left right 80) log-port)
-                (display #\cr log-port)
                 (flush-output-port log-port)
                 (cont))))))))