From mboxrd@z Thu Jan  1 00:00:00 1970
Received: from eggs.gnu.org ([2001:470:142:3::10]:48661)
 by lists.gnu.org with esmtp (Exim 4.90_1)
 (envelope-from <Debian-debbugs@debbugs.gnu.org>) id 1jDAkZ-0001gb-JF
 for guix-patches@gnu.org; Sat, 14 Mar 2020 13:39:04 -0400
Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71)
 (envelope-from <Debian-debbugs@debbugs.gnu.org>) id 1jDAkY-0003pB-LX
 for guix-patches@gnu.org; Sat, 14 Mar 2020 13:39:03 -0400
Received: from debbugs.gnu.org ([209.51.188.43]:56185)
 by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16)
 (Exim 4.71) (envelope-from <Debian-debbugs@debbugs.gnu.org>)
 id 1jDAkY-0003mf-4B
 for guix-patches@gnu.org; Sat, 14 Mar 2020 13:39:02 -0400
Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2)
 (envelope-from <Debian-debbugs@debbugs.gnu.org>) id 1jDAkY-0007vY-1s
 for guix-patches@gnu.org; Sat, 14 Mar 2020 13:39:02 -0400
Subject: [bug#40061] Version two of the patch.
References: <4553177.31r3eYUQgx@cherry>
In-Reply-To: <4553177.31r3eYUQgx@cherry>
Resent-Message-ID: <handler.40061.B40061.158420750430425@debbugs.gnu.org>
Date: Sat, 14 Mar 2020 18:16:52 +0100
Message-ID: <5416391.DvuYhMxLoT@cherry>
MIME-Version: 1.0
Content-Type: multipart/mixed; boundary="nextPart5660554.lOV4Wx5bFT"
Content-Transfer-Encoding: 7Bit
List-Id: <guix-patches.gnu.org>
List-Unsubscribe: <https://lists.gnu.org/mailman/options/guix-patches>,
 <mailto:guix-patches-request@gnu.org?subject=unsubscribe>
List-Archive: <https://lists.gnu.org/archive/html/guix-patches>
List-Post: <mailto:guix-patches@gnu.org>
List-Help: <mailto:guix-patches-request@gnu.org?subject=help>
List-Subscribe: <https://lists.gnu.org/mailman/listinfo/guix-patches>,
 <mailto:guix-patches-request@gnu.org?subject=subscribe>
Errors-To: guix-patches-bounces+kyle=kyleam.com@gnu.org
Sender: "Guix-patches" <guix-patches-bounces+kyle=kyleam.com@gnu.org>
Reply-to: Tom Zander <tomz@freedommail.ch>, Tom Zander via Guix-patches <guix-patches@gnu.org>
From: Tom Zander via Guix-patches via <guix-patches@gnu.org>
To: 40061@debbugs.gnu.org

This is a multi-part message in MIME format.

--nextPart5660554.lOV4Wx5bFT
Content-Transfer-Encoding: 7Bit
Content-Type: text/plain; charset="us-ascii"

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

--nextPart5660554.lOV4Wx5bFT
Content-Disposition: attachment; filename="0001-Allow-double-click-select-of-URL-in-status.patch"
Content-Transfer-Encoding: 7Bit
Content-Type: text/x-patch; charset="UTF-8"; name="0001-Allow-double-click-select-of-URL-in-status.patch"

>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


--nextPart5660554.lOV4Wx5bFT--