diff options
author | Marius Bakke <mbakke@fastmail.com> | 2020-02-28 19:07:46 +0100 |
---|---|---|
committer | Marius Bakke <mbakke@fastmail.com> | 2020-02-28 19:07:46 +0100 |
commit | d614f0bba90c86c836131eea3ebb9cbd30f19abf (patch) | |
tree | 22e6250fc344f86e0e356e0dcad254b95373877a /guix/scripts/describe.scm | |
parent | 7fe962788ac330fce18d7cc39f613bb1f961d6ea (diff) | |
parent | 20c87138a9ca1bbccef2ee91589f11ec70985555 (diff) | |
download | patches-d614f0bba90c86c836131eea3ebb9cbd30f19abf.tar patches-d614f0bba90c86c836131eea3ebb9cbd30f19abf.tar.gz |
Merge branch 'master' into staging
Diffstat (limited to 'guix/scripts/describe.scm')
-rw-r--r-- | guix/scripts/describe.scm | 15 |
1 files changed, 4 insertions, 11 deletions
diff --git a/guix/scripts/describe.scm b/guix/scripts/describe.scm index 5e00067ef8..f13f221da9 100644 --- a/guix/scripts/describe.scm +++ b/guix/scripts/describe.scm @@ -201,11 +201,7 @@ way and displaying details about the channel's source code." (format #t (G_ " commit: ~a~%") (if (supports-hyperlinks?) (channel-commit-hyperlink channel commit) - commit)) - (when (not (supports-hyperlinks?)) - (format #t (G_ " URL: ~a~%") - (channel-commit-hyperlink channel commit - (lambda (url msg) url)))))) + commit)))) (_ #f))) ;; Show most recently installed packages last. @@ -237,12 +233,9 @@ way and displaying details about the channel's source code." (define* (channel-commit-hyperlink channel #:optional - (commit (channel-commit channel)) - (transformer hyperlink)) + (commit (channel-commit channel))) "Return a hyperlink for COMMIT in CHANNEL, using COMMIT as the hyperlink's -text. The hyperlink links to a web view of COMMIT, when available. -TRANSFORMER is a procedure of 2 arguments, a URI and text, and returns a -string for display." +text. The hyperlink links to a web view of COMMIT, when available." (let* ((url (channel-url channel)) (uri (string->uri url)) (host (and uri (uri-host uri)))) @@ -251,7 +244,7 @@ string for display." (#f commit) ((_ template) - (transformer (template url commit) commit))) + (hyperlink (template url commit) commit))) commit))) |