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

View file

@ -167,8 +167,8 @@ (define* (progress-proc file size
(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 @@ (define* (progress-proc file size
(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))))))))