diff options
| author | TomZ <tomz@freedommail.ch> | 2020-04-07 21:39:04 +0200 |
|---|---|---|
| committer | Marius Bakke <mbakke@fastmail.com> | 2020-04-07 21:56:30 +0200 |
| commit | 9f1b787120b1b81abffaf0fa13fdbdf4cca39f2d (patch) | |
| tree | dc0dadd7cdb4dafe8cbe5891db6b47b8e49de4be /guix/status.scm | |
| parent | 55d4526411f9a3e021c57b7d3890a75712186c3b (diff) | |
| download | guix-9f1b787120b1b81abffaf0fa13fdbdf4cca39f2d.tar.gz | |
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>
Diffstat (limited to 'guix/status.scm')
| -rw-r--r-- | guix/status.scm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/guix/status.scm b/guix/status.scm index 4b2edc2f3c..45e441eac5 100644 --- a/guix/status.scm +++ b/guix/status.scm @@ -472,16 +472,16 @@ addition to build events." (let ((count (match (assq-ref properties 'graft) (#f 0) (lst (or (assq-ref lst 'count) 0))))) - (format port (info (N_ "applying ~a graft for ~a..." - "applying ~a grafts for ~a..." + (format port (info (N_ "applying ~a graft for ~a ..." + "applying ~a grafts for ~a ..." count)) count drv))) ('profile (let ((count (match (assq-ref properties 'profile) (#f 0) (lst (or (assq-ref lst 'count) 0))))) - (format port (info (N_ "building profile with ~a package..." - "building profile with ~a packages..." + (format port (info (N_ "building profile with ~a package ..." + "building profile with ~a packages ..." count)) count))) ('profile-hook @@ -525,7 +525,7 @@ addition to build events." (newline port))) (('download-started item uri _ ...) (erase-current-line*) - (format port (info (G_ "downloading from ~a...")) uri) + (format port (info (G_ "downloading from ~a ...")) uri) (newline port)) (('download-progress item uri (= string->number size) |