ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-27 06:42:14 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

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

Browse source 
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
Show stats Download patch file Download diff file Expand all files Collapse all files

4
guix/build/download.scm
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))))))))