me
/
guix
Archived
1
0
Fork 0
Code

diagnostics: Turn diagnostic locations into hyperlinks. 

* guix/diagnostics.scm (print-diagnostic-prefix): Use
'location->hyperlink' when 'supports-hyperlinks?' returns true.
master
Ludovic Courtès 2022-04-01 16:54:52 +02:00
parent 3da62bf5aa
commit 13307c198b
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
guix/diagnostics.scm
View File

@ -204,7 +204,10 @@ macro-expansion time."
(gettext prefix %gettext-domain)))) (gettext prefix %gettext-domain))))
(if location (if location
(format (guix-warning-port) "~a: ~a" (format (guix-warning-port) "~a: ~a"
(location-color (location->string location)) (location-color
(if (supports-hyperlinks? (guix-warning-port))
(location->hyperlink location)
(location->string location)))
(prefix-color prefix)) (prefix-color prefix))
(format (guix-warning-port) "~:[~*~;guix ~a: ~]~a" (format (guix-warning-port) "~:[~*~;guix ~a: ~]~a"
(program-name) (program-name) (program-name) (program-name)