TakeV/guix
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

ui: 'show-what-to-build' displays download estimate more prominently.

Browse source 
* guix/ui.scm (show-what-to-build): When VERBOSITY is 1, add a newline
before the "would/will be downloaded" line, and wrap that message in
'highlight'.
This commit is contained in:
Ludovic Courtès 2020-09-14 15:16:59 +02:00
parent 8eeeedcb35
commit 846403ef62
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 14 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
guix/ui.scm
View file

@ -1075,16 +1075,19 @@ (define display-download-size?
(null? hook) (map colorized-store-item hook)))
((= verbosity 1)
;; Display the bare minimum; don't mention grafts and hooks.
(unless (null? build)
(newline (current-error-port)))
(if display-download-size?
(format (current-error-port)
;; TRANSLATORS: "MB" is for "megabyte"; it should be
;; translated to the corresponding abbreviation.
(G_ "~:[~,1h MB would be downloaded~%~;~]")
(highlight (G_ "~:[~,1h MB would be downloaded~%~;~]"))
(null? download) download-size)
(format (current-error-port)
(N_ "~:[~h item would be downloaded~%~;~]"
"~:[~h items would be downloaded~%~;~]"
(length download))
(highlight
(N_ "~:[~h item would be downloaded~%~;~]"
"~:[~h items would be downloaded~%~;~]"
(length download)))
(null? download) (length download))))))
(begin
@ -1123,16 +1126,19 @@ (define display-download-size?
(null? hook) (map colorized-store-item hook)))
((= verbosity 1)
;; Display the bare minimum; don't mention grafts and hooks.
(unless (null? build)
(newline (current-error-port)))
(if display-download-size?
(format (current-error-port)
;; TRANSLATORS: "MB" is for "megabyte"; it should be
;; translated to the corresponding abbreviation.
(G_ "~:[~,1h MB will be downloaded~%~;~]")
(highlight (G_ "~:[~,1h MB will be downloaded~%~;~]"))
(null? download) download-size)
(format (current-error-port)
(N_ "~:[~h item will be downloaded~%~;~]"
"~:[~h items will be downloaded~%~;~]"
(length download))
(highlight
(N_ "~:[~h item will be downloaded~%~;~]"
"~:[~h items will be downloaded~%~;~]"
(length download)))
(null? download) (length download)))))))
(check-available-space installed-size)