From 299112d36e872d98896bf8dec281c34d9adad06e Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Fri, 1 Feb 2013 13:16:27 +0100 Subject: guix-package: Report `--search' matches in recutils format. * guix/ui.scm (fill-paragraph, string->recutils, package->recutils): New procedures. * guix-package.in (guix-package)[process-query]: Use `package->recutils' to display package meta-data. * tests/guix-package.sh: Adjust test. * tests/ui.scm: New file. * Makefile.am (TESTS): Add it. * doc/guix.texi (Invoking guix-package): Adjust `--search' documentation, and give an example. --- guix-package.in | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) (limited to 'guix-package.in') diff --git a/guix-package.in b/guix-package.in index 58164c6e46..e0c3287b3c 100644 --- a/guix-package.in +++ b/guix-package.in @@ -597,11 +597,7 @@ Install, remove, or upgrade PACKAGES in a single transaction.\n")) (('search regexp) (let ((regexp (and regexp (make-regexp regexp)))) - (for-each (lambda (p) - (format #t "~a\t~a\t~a~%" - (package-name p) - (package-version p) - (location->string (package-location p)))) + (for-each (cute package->recutils <> (current-output-port)) (find-packages-by-description regexp)) #t)) (_ #f)))) -- cgit v1.2.3