ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-25 05:48:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

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

Browse source 
* guix/ui.scm (package->recutils): When HYPERLINKS is true, call
'hyperlink' for the 'license' field.
This commit is contained in:
Ludovic Courtès 2019-11-08 23:23:01 +01:00
parent 7f0f38b54c
commit edd25a8cac
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 7 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
guix/ui.scm
View file

@ -44,7 +44,8 @@ (define-module (guix ui)
#: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 @@ (define (package<? p1 p2)
(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~%"