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

Partly fixes <http://bugs.gnu.org/22536>.
Reported by Danny Milosavljevic <dannym@scratchpost.org>.

* guix/build/download.scm (progress-proc): Send an ANSI erase-in-line
sequence.
This commit is contained in:
Ludovic Courtès 2016-04-14 22:47:40 +02:00
parent 63e8bb12a4
commit 8a2154fefa
1 changed files with 2 additions and 2 deletions

View File

@ -167,8 +167,8 @@ used to shorten FILE for display."
(seconds->string elapsed) (seconds->string elapsed)
(progress-bar %) %))) (progress-bar %) %)))
;; TODO: Make this adapt to the actual terminal width. ;; 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 (string-pad-middle left right 80) log-port)
(display #\cr log-port)
(flush-output-port log-port) (flush-output-port log-port)
(cont)))) (cont))))
(lambda (transferred cont) (lambda (transferred cont)
@ -183,8 +183,8 @@ used to shorten FILE for display."
(seconds->string elapsed) (seconds->string elapsed)
(byte-count->string transferred)))) (byte-count->string transferred))))
;; TODO: Make this adapt to the actual terminal width. ;; 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 (string-pad-middle left right 80) log-port)
(display #\cr log-port)
(flush-output-port log-port) (flush-output-port log-port)
(cont)))))))) (cont))))))))