01/02: status: Allow double-click select of URLs.

[guix-commits]

mbakke pushed a commit to branch master
in repository guix.

commit 8fa4ac5be4d5f8a1e62635842b16486832ff49f1
Author: TomZ <address@hidden>
AuthorDate: Tue Apr 7 21:39:04 2020 +0200

    status: Allow double-click select of URLs.
    
    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 <address@hidden>
---
 guix/status.scm | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/guix/status.scm b/guix/status.scm
index 4b2edc2..45e441e 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)