diff mbox series

[bug#47929,5/5] ui: Disable hyperlink support inside screen.

Message ID 20210421122108.2344-5-othacehe@gnu.org
State New
Headers show
Series Add manifest support to channel-with-substitutes-available | expand

Checks

Context Check Description
cbaines/comparison success View comparision
cbaines/git branch success View Git branch
cbaines/applying patch success View Laminar job
cbaines/issue success View issue

Commit Message

Mathieu Othacehe April 21, 2021, 12:21 p.m. UTC 
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.
---
 guix/ui.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)
diff mbox series

Patch

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."