me
/
guix
Archived
1
0
Fork 0
Code

Allow double-click select of URL in status 

Various places while downloading or compiling guix prints
the source URL. This change makes the URL easier to use by
placing a space between the URL and the trailing dots.

Signed-off-by: Marius Bakke <mbakke@fastmail.com>
master
TomZ 2020-04-07 21:39:04 +02:00 committed by Marius Bakke
parent 55d4526411
commit 9f1b787120
No known key found for this signature in database
GPG Key ID: A2A06DF2A33A54FA
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
guix/status.scm
View File

@ -472,16 +472,16 @@ addition to build events."
(let ((count (match (assq-ref properties 'graft) (let ((count (match (assq-ref properties 'graft)
(#f 0) (#f 0)
(lst (or (assq-ref lst 'count) 0))))) (lst (or (assq-ref lst 'count) 0)))))
(format port (info (N_ "applying ~a graft for ~a..." (format port (info (N_ "applying ~a graft for ~a ..."
"applying ~a grafts for ~a..." "applying ~a grafts for ~a ..."
count)) count))
count drv))) count drv)))
('profile ('profile
(let ((count (match (assq-ref properties 'profile) (let ((count (match (assq-ref properties 'profile)
(#f 0) (#f 0)
(lst (or (assq-ref lst 'count) 0))))) (lst (or (assq-ref lst 'count) 0)))))
(format port (info (N_ "building profile with ~a package..." (format port (info (N_ "building profile with ~a package ..."
"building profile with ~a packages..." "building profile with ~a packages ..."
count)) count))
count))) count)))
('profile-hook ('profile-hook
@ -525,7 +525,7 @@ addition to build events."
(newline port))) (newline port)))
(('download-started item uri _ ...) (('download-started item uri _ ...)
(erase-current-line*) (erase-current-line*)
(format port (info (G_ "downloading from ~a...")) uri) (format port (info (G_ "downloading from ~a ...")) uri)
(newline port)) (newline port))
(('download-progress item uri (('download-progress item uri
(= string->number size) (= string->number size)