ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-25 22:08:16 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

status: Allow double-click select of URLs.

Browse source 
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>
This commit is contained in:
TomZ 2020-04-07 21:39:04 +02:00 committed by Marius Bakke
parent 974bf81776
commit 8fa4ac5be4
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 @@ (define erase-current-line*
(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 @@ (define erase-current-line*
(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)