>From 0b2a17de72825b9ca0d494ea8c4d9bf121689f4e Mon Sep 17 00:00:00 2001 From: TomZ Date: Sat, 14 Mar 2020 14:36:28 +0100 Subject: [PATCH] Allow double-click select of URL in status Various places while downloading or compiling guix prints the source URL. This change makes the URL be easier to be used by placing a space between the URL and the trailing dots. --- guix/status.scm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/guix/status.scm b/guix/status.scm index cbea4151f2..866ba3bc39 100644 --- a/guix/status.scm +++ b/guix/status.scm @@ -472,8 +472,8 @@ 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-hook @@ -484,7 +484,7 @@ addition to build events." (format port (info (G_ "running profile hook of type '~a'...")) hook-type)))) (_ - (format port (info (G_ "building ~a...")) drv)))) + (format port (info (G_ "building ~a ...")) drv)))) (newline port)) (('build-succeeded drv . _) (erase-current-line*) ;erase spinner or progress bar @@ -517,7 +517,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) -- 2.25.1