[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
02/02: Allow double-click select of URL in status
From: |
guix-commits |
Subject: |
02/02: Allow double-click select of URL in status |
Date: |
Tue, 7 Apr 2020 15:59:27 -0400 (EDT) |
mbakke pushed a commit to branch master
in repository guix.
commit 9f1b787120b1b81abffaf0fa13fdbdf4cca39f2d
Author: TomZ <address@hidden>
AuthorDate: Tue Apr 7 21:39:04 2020 +0200
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 <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)