me
/
guix
Archived
1
0
Fork 0
Code

ui: Add 'file-hyperlink'. 

* guix/ui.scm (file-hyperlink): New procedure.
(location->hyperlink): Use it.
master
Ludovic Courtès 2019-11-28 13:08:49 +01:00
parent 73765c91ce
commit fa983b8257
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
guix/ui.scm
View File

@ -111,6 +111,7 @@
package-specification->name+version+output package-specification->name+version+output
supports-hyperlinks? supports-hyperlinks?
file-hyperlink
location->hyperlink location->hyperlink
relevance relevance
@ -1255,6 +1256,13 @@ documented at
(and (isatty?* port) (and (isatty?* port)
(not (getenv "INSIDE_EMACS")))) (not (getenv "INSIDE_EMACS"))))
(define* (file-hyperlink file #:optional (text file))
"Return TEXT with escapes for a hyperlink to FILE."
(hyperlink (string-append "file://" (gethostname)
(encode-and-join-uri-path
(string-split file #\/)))
text))
(define (location->hyperlink location) (define (location->hyperlink location)
"Return a string corresponding to LOCATION, with escapes for a hyperlink." "Return a string corresponding to LOCATION, with escapes for a hyperlink."
(let ((str (location->string location)) (let ((str (location->string location))
@ -1262,10 +1270,7 @@ documented at
(location-file location) (location-file location)
(search-path %load-path (location-file location))))) (search-path %load-path (location-file location)))))
(if file (if file
(hyperlink (string-append "file://" (gethostname) (file-hyperlink file str)
(encode-and-join-uri-path
(string-split file #\/)))
str)
str))) str)))
(define* (package->recutils p port #:optional (width (%text-width)) (define* (package->recutils p port #:optional (width (%text-width))