summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMathieu Othacehe <othacehe@gnu.org>2021-04-21 14:21:08 +0200
committerGuix Patches Tester <>2021-04-21 13:23:19 +0100
commit052b0479852d86672cbc0212d0d61b42eb32d433 (patch)
treeaf1bd871643311ae57eb8c9a9e879d91c443d217
parent9e741baedd65f14fe22e750a4f2d479f637cc48b (diff)
downloadguix-patches-052b0479852d86672cbc0212d0d61b42eb32d433.tar
guix-patches-052b0479852d86672cbc0212d0d61b42eb32d433.tar.gz
ui: Disable hyperlink support inside screen.series-7677
Inside screen, the OSC escape sequence is interpreted but the link is not clickable. * guix/ui.scm (supports-hyperlinks?): Return false if STY is set.
-rw-r--r--guix/ui.scm3
1 files changed, 2 insertions, 1 deletions
diff --git a/guix/ui.scm b/guix/ui.scm
index 7fbd4c63a2..56fbbb3db3 100644
--- a/guix/ui.scm
+++ b/guix/ui.scm
@@ -1486,7 +1486,8 @@ documented at
;; However, Emacs comint as of 26.3 does not ignore it and instead lets it
;; through, hence the 'INSIDE_EMACS' special case below.
(and (isatty?* port)
- (not (getenv "INSIDE_EMACS"))))
+ (not (or (getenv "INSIDE_EMACS")
+ (getenv "STY"))))) ;screen doesn't support hyperlinks.
(define* (file-hyperlink file #:optional (text file))
"Return TEXT with escapes for a hyperlink to FILE."