TakeV
/
guix
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

diagnostics: Turn diagnostic locations into hyperlinks. 

* guix/diagnostics.scm (print-diagnostic-prefix): Use
'location->hyperlink' when 'supports-hyperlinks?' returns true.
This commit is contained in:
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))))
(if location
(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))
(format (guix-warning-port) "~:[~*~;guix ~a: ~]~a"
(program-name) (program-name)