nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

ui: Improve formatting of package dependencies in recutils. 

* guix/ui.scm (package->recutils)[dependencies->recutils]: New
  procedure. Use it.
This commit is contained in:
Ludovic Courtès 2014-07-25 00:29:47 +02:00
parent 3ce9aa44f1
commit 20ffce820b
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
guix/ui.scm
View File

@ -453,6 +453,13 @@ WIDTH columns."
(fill-paragraph str width (fill-paragraph str width
(string-length "description: "))))) (string-length "description: ")))))
(define (dependencies->recutils packages)
(let ((list (string-join (map package-full-name
(sort packages package<?)) " ")))
(string->recutils
(fill-paragraph list width
(string-length "dependencies: ")))))
(define (package<? p1 p2) (define (package<? p1 p2)
(string<? (package-full-name p1) (package-full-name p2))) (string<? (package-full-name p1) (package-full-name p2)))
@ -462,8 +469,7 @@ WIDTH columns."
(format port "dependencies: ~a~%" (format port "dependencies: ~a~%"
(match (package-direct-inputs p) (match (package-direct-inputs p)
(((labels packages . _) ...) (((labels packages . _) ...)
(string-join (map package-full-name (dependencies->recutils packages))))
(sort packages package<?)) ", "))))
(format port "location: ~a~%" (format port "location: ~a~%"
(or (and=> (package-location p) location->string) (or (and=> (package-location p) location->string)
(_ "unknown"))) (_ "unknown")))