(fill-paragraph str width
(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)
(string<? (package-full-name p1) (package-full-name p2)))
(format port "dependencies: ~a~%"
(match (package-direct-inputs p)
(((labels packages . _) ...)
- (string-join (map package-full-name
- (sort packages package<?)) ", "))))
+ (dependencies->recutils packages))))
(format port "location: ~a~%"
(or (and=> (package-location p) location->string)
(_ "unknown")))