diff options
author | Ludovic Courtès <ludo@gnu.org> | 2022-04-01 15:41:00 +0200 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2022-04-08 23:59:48 +0200 |
commit | 3da62bf5aa358667621c8c390c755c5bfa45a93f (patch) | |
tree | 9ddbe7158681256943b3658297abca148e69bf28 /guix/ui.scm | |
parent | d4e858763c4303764729133c547b0a6dfe2354f9 (diff) | |
download | guix-patches-3da62bf5aa358667621c8c390c755c5bfa45a93f.tar guix-patches-3da62bf5aa358667621c8c390c755c5bfa45a93f.tar.gz |
ui: Move 'location->hyperlink' to (guix diagnostics).
* guix/ui.scm (location->hyperlink): Move to...
* guix/diagnostics.scm: ... here.
* guix/scripts/system/search.scm: Adjust imports accordingly.
Diffstat (limited to 'guix/ui.scm')
-rw-r--r-- | guix/ui.scm | 12 |
1 files changed, 0 insertions, 12 deletions
diff --git a/guix/ui.scm b/guix/ui.scm index 6f2fe62784..37d24030e4 100644 --- a/guix/ui.scm +++ b/guix/ui.scm @@ -118,8 +118,6 @@ package->recutils package-specification->name+version+output - location->hyperlink - pager-wrapped-port with-paginated-output-port relevance @@ -1484,16 +1482,6 @@ followed by \"+ \", which makes for a valid multi-line field value in the '() str))) -(define (location->hyperlink location) - "Return a string corresponding to LOCATION, with escapes for a hyperlink." - (let ((str (location->string location)) - (file (if (string-prefix? "/" (location-file location)) - (location-file location) - (search-path %load-path (location-file location))))) - (if file - (file-hyperlink file str) - str))) - (define* (package->recutils p port #:optional (width (%text-width)) #:key (hyperlinks? (supports-hyperlinks? port)) |