diff options
| author | zimoun <zimon.toutoune@gmail.com> | 2020-02-17 14:16:53 +0100 |
|---|---|---|
| committer | Pierre Neidhardt <mail@ambrevar.xyz> | 2020-02-24 11:01:52 +0100 |
| commit | d7545a6b538813e88195d084f75a3e87065c999e (patch) | |
| tree | ae0d9982e2a1f0132ec6935b6ae404b8c731c606 /guix/ui.scm | |
| parent | 0aa0e1f8f49263975095fa9b485f48d17ae0914d (diff) | |
| download | patches-d7545a6b538813e88195d084f75a3e87065c999e.tar patches-d7545a6b538813e88195d084f75a3e87065c999e.tar.gz | |
ui: Only display link in capable terminals.
* guix/ui.scm (display-generation): Display generation path on new line.
* guix/scripts/describe.scm (channel-commit-hyperlink): Add TRANSFORMER argument.
(display-profile-content): Use TRANSFORMER argument to display URL explicitly
when terminal does not support hyperlinks.
Diffstat (limited to 'guix/ui.scm')
| -rw-r--r-- | guix/ui.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/guix/ui.scm b/guix/ui.scm index db932ecacb..371af4e047 100644 --- a/guix/ui.scm +++ b/guix/ui.scm @@ -1637,7 +1637,7 @@ DURATION-RELATION with the current time." (let* ((file (generation-file-name profile number)) (link (if (supports-hyperlinks?) (cut file-hyperlink file <>) - identity)) + (cut format #f (G_ "~a~%file: ~a") <> file))) (header (format #f (link (highlight (G_ "Generation ~a\t~a"))) number (date->string |