amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

ui: 'show-what-to-build' highlights "would be downloaded" headings.

Browse source 
* guix/ui.scm (show-what-to-build): Highlight "X MB would be downloaded".
This commit is contained in:
Ludovic Courtès 2022-03-09 10:47:52 +01:00
parent 9e0f0123a0
commit 625fa3cfe8
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 44 additions and 30 deletions
Download patch file Download diff file Expand all files Collapse all files

58
guix/ui.scm
View file

@ -1041,21 +1041,28 @@ summary, and level 0 shows nothing."
(map colorized-store-item build))) (map colorized-store-item build)))
(cond ((>= verbosity 2) (cond ((>= verbosity 2)
(if display-download-size? (if display-download-size?
(begin
(format (current-error-port) (format (current-error-port)
;; TRANSLATORS: "MB" is for "megabyte"; it should be (highlight
;; translated to the corresponding abbreviation. ;; TRANSLATORS: "MB" is for "megabyte"; it
(G_ "~:[~,1h MB would be downloaded:~%~{ ~a~%~}~;~]") ;; should be translated to the corresponding
(null? download) ;; abbreviation.
download-size (G_ "~:[~,1h MB would be downloaded:~%~;~]"))
(map (compose colorized-store-item substitutable-path)
download))
(format (current-error-port)
(N_ "~:[The following file would be downloaded:~%~{ ~a~%~}~;~]"
"~:[The following files would be downloaded:~%~{ ~a~%~}~;~]"
(length download))
(null? download) (null? download)
download-size)
(format (current-error-port) "~{ ~a~%~}"
(map (compose colorized-store-item substitutable-path) (map (compose colorized-store-item substitutable-path)
download))) download)))
(begin
(format (current-error-port)
(highlight
(N_ "~:[The following file would be downloaded:~%~;~]"
"~:[The following files would be downloaded:~%~;~]"
(length download)))
(null? download))
(format (current-error-port) "~{ ~a~%~}"
(map (compose colorized-store-item substitutable-path)
download))))
(format (current-error-port) (format (current-error-port)
(N_ "~:[The following graft would be made:~%~{ ~a~%~}~;~]" (N_ "~:[The following graft would be made:~%~{ ~a~%~}~;~]"
"~:[The following grafts would be made:~%~{ ~a~%~}~;~]" "~:[The following grafts would be made:~%~{ ~a~%~}~;~]"
@ -1094,21 +1101,28 @@ summary, and level 0 shows nothing."
(map colorized-store-item build))) (map colorized-store-item build)))
(cond ((>= verbosity 2) (cond ((>= verbosity 2)
(if display-download-size? (if display-download-size?
(begin
(format (current-error-port) (format (current-error-port)
;; TRANSLATORS: "MB" is for "megabyte"; it should be (highlight
;; translated to the corresponding abbreviation. ;; TRANSLATORS: "MB" is for "megabyte"; it
(G_ "~:[~,1h MB will be downloaded:~%~{ ~a~%~}~;~]") ;; should be translated to the corresponding
(null? download) ;; abbreviation.
download-size (G_ "~:[~,1h MB will be downloaded:~%~;~]"))
(map (compose colorized-store-item substitutable-path)
download))
(format (current-error-port)
(N_ "~:[The following file will be downloaded:~%~{ ~a~%~}~;~]"
"~:[The following files will be downloaded:~%~{ ~a~%~}~;~]"
(length download))
(null? download) (null? download)
download-size)
(format (current-error-port) "~{ ~a~%~}"
(map (compose colorized-store-item substitutable-path) (map (compose colorized-store-item substitutable-path)
download))) download)))
(begin
(format (current-error-port)
(highlight
(N_ "~:[The following file will be downloaded:~%~;~]"
"~:[The following files will be downloaded:~%~;~]"
(length download)))
(null? download))
(format (current-error-port) "~{ ~a~%~}"
(map (compose colorized-store-item substitutable-path)
download))))
(format (current-error-port) (format (current-error-port)
(N_ "~:[The following graft will be made:~%~{ ~a~%~}~;~]" (N_ "~:[The following graft will be made:~%~{ ~a~%~}~;~]"
"~:[The following grafts will be made:~%~{ ~a~%~}~;~]" "~:[The following grafts will be made:~%~{ ~a~%~}~;~]"