07/07: diagnostics: Turn diagnostic locations into hyperlinks.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit 13307c198bcd1fbd9364bcb7ef4c6d19d287cf2c
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Fri Apr 1 16:54:52 2022 +0200

    diagnostics: Turn diagnostic locations into hyperlinks.
    
    * guix/diagnostics.scm (print-diagnostic-prefix): Use
    'location->hyperlink' when 'supports-hyperlinks?' returns true.
---
 guix/diagnostics.scm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/guix/diagnostics.scm b/guix/diagnostics.scm
index 2b8cee1ccb..bf1ced8140 100644
--- a/guix/diagnostics.scm
+++ b/guix/diagnostics.scm
@@ -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)