From 20ffce820bafd08ff51790436c3ee36a69c13423 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Fri, 25 Jul 2014 00:29:47 +0200
Subject: ui: Improve formatting of package dependencies in recutils.

* guix/ui.scm (package->recutils)[dependencies->recutils]: New
  procedure. Use it.
---
 guix/ui.scm | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/guix/ui.scm b/guix/ui.scm
index 74ea20e6c8..1b7d334757 100644
--- a/guix/ui.scm
+++ b/guix/ui.scm
@@ -453,6 +453,13 @@ WIDTH columns."
        (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)))
 
@@ -462,8 +469,7 @@ WIDTH columns."
   (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")))
-- 
cgit v1.2.3