122/184: ui: Emit hyperlinks for 'license' in package search results.

[guix-commits]

kkebreau pushed a commit to branch wip-gnome-updates
in repository guix.

commit 4cd4d44688a0628fad0823a1512fbfeed50916e4
Author: Ludovic Courtès <address@hidden>
Date:   Fri Nov 8 23:23:01 2019 +0100

    ui: Emit hyperlinks for 'license' in package search results.
    
    * guix/ui.scm (package->recutils): When HYPERLINKS is true, call
    'hyperlink' for the 'license' field.
---
 guix/ui.scm | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/guix/ui.scm b/guix/ui.scm
index bce0df5..eb17d27 100644
--- a/guix/ui.scm
+++ b/guix/ui.scm
@@ -44,7 +44,8 @@
   #:use-module (guix derivations)
   #:use-module (guix build-system)
   #:use-module (guix serialization)
-  #:use-module ((guix licenses) #:select (license? license-name))
+  #:use-module ((guix licenses)
+                #:select (license? license-name license-uri))
   #:use-module ((guix build syscalls)
                 #:select (free-disk-space terminal-columns
                                           terminal-rows))
@@ -1315,7 +1316,11 @@ HYPERLINKS? is true, emit hyperlink escape sequences 
when appropriate."
              (string-join (map license-name licenses)
                           ", "))
             ((? license? license)
-             (license-name license))
+             (let ((text (license-name license))
+                   (uri  (license-uri license)))
+               (if (and hyperlinks? uri (string-prefix? "http" uri))
+                   (hyperlink uri text)
+                   text)))
             (x
              (G_ "unknown"))))
   (format port "synopsis: ~a~%"