summaryrefslogtreecommitdiff
path: root/guix/ui.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2012-11-19 23:02:59 +0100
committerLudovic Courtès <ludo@gnu.org>2012-11-19 23:04:38 +0100
commit64fc89b6ec0928f7bbd7011d6a8dc325d63f4fe5 (patch)
tree131fad75147e00ae73c7201f557df1fdd540011a /guix/ui.scm
parentba326ce41b5784f3acb99d4beae5ffc455d6a27e (diff)
guix-package: Add `--list-available'.
* guix-package.in (show-help, %options): Add `--list-available'. (guix-package)[process-query]: Add support for `--list-available'. * doc/guix.texi (Invoking guix-package): Document it. * tests/guix-package.sh: Add test. * guix/ui.scm (location->string): New procedure. * guix/utils.scm: Export <location>.
Diffstat (limited to 'guix/ui.scm')
-rw-r--r--guix/ui.scm11
1 files changed, 10 insertions, 1 deletions
diff --git a/guix/ui.scm b/guix/ui.scm
index 447c3a9a9f..4fc0dd089a 100644
--- a/guix/ui.scm
+++ b/guix/ui.scm
@@ -23,12 +23,14 @@
#:use-module (guix packages)
#:use-module (srfi srfi-26)
#:use-module (srfi srfi-34)
+ #:use-module (ice-9 match)
#:export (_
N_
leave
show-version-and-exit
call-with-error-handling
- with-error-handling))
+ with-error-handling
+ location->string))
;;; Commentary:
;;;
@@ -80,4 +82,11 @@
(lambda ()
body ...)))))
+(define (location->string loc)
+ "Return a human-friendly, GNU-standard representation of LOC."
+ (match loc
+ (#f (_ "<unknown location>"))
+ (($ <location> file line column)
+ (format #f "~a:~a:~a" file line column))))
+
;;; ui.scm ends here