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/diagnostics.scm | |
| parent | d4e858763c4303764729133c547b0a6dfe2354f9 (diff) | |
| download | guix-3da62bf5aa358667621c8c390c755c5bfa45a93f.tar guix-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/diagnostics.scm')
| -rw-r--r-- | guix/diagnostics.scm | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/guix/diagnostics.scm b/guix/diagnostics.scm index 337a73c1a2..2b8cee1ccb 100644 --- a/guix/diagnostics.scm +++ b/guix/diagnostics.scm @@ -39,6 +39,7 @@ source-properties->location location->source-properties location->string + location->hyperlink &error-location error-location? @@ -259,6 +260,16 @@ a location object." (($ <location> file line column) (format #f "~a:~a:~a" file line column)))) +(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-condition-type &error-location &error error-location? (location error-location)) ;<location> |