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: Lexicographically sort transaction entries based on their package name.

Browse source 
* guix/ui.scm (show-manifest-transaction): Sort entries to be displayed in a
tabulated view.
This commit is contained in:
Maxim Cournoyer 2020-09-02 13:08:46 -04:00
parent 7d3eb5e6b7
commit 140da556be
No known key found for this signature in database
GPG key ID: 1260E46482E63562
1 changed files with 15 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

5
guix/ui.scm
View file

@ -1240,7 +1240,8 @@ separator between subsequent columns."
#:key dry-run?) #:key dry-run?)
"Display what will/would be installed/removed from MANIFEST by TRANSACTION." "Display what will/would be installed/removed from MANIFEST by TRANSACTION."
(define* (package-strings names versions outputs #:key old-versions) (define* (package-strings names versions outputs #:key old-versions)
(tabulate (zip (map (lambda (name output) (tabulate (stable-sort
(zip (map (lambda (name output)
(if (string=? output "out") (if (string=? output "out")
name name
(string-append name ":" output))) (string-append name ":" output)))
@ -1252,6 +1253,8 @@ separator between subsequent columns."
(string-append old " " → " " new))) (string-append old " " → " " new)))
old-versions versions) old-versions versions)
versions)) versions))
(lambda (x y)
(string<? (first x) (first y))))
#:initial-indent 3)) #:initial-indent 3))
(define → ;an arrow that can be represented on stderr (define → ;an arrow that can be represented on stderr