[bug#40061] Version two of the patch.

[Tom Zander via Guix-patches via <guix-patches@gnu.org>]

[-- Attachment #1: Type: text/plain, Size: 79 bytes --]

Attached is an updated version of the patch, it fixes more of the same issues.

[-- Attachment #2: 0001-Allow-double-click-select-of-URL-in-status.patch --]
[-- Type: text/x-patch, Size: 1999 bytes --]

From 0b2a17de72825b9ca0d494ea8c4d9bf121689f4e Mon Sep 17 00:00:00 2001
From: TomZ <tomz@freedommail.ch>
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