[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/detached 906541da22 2/5: Add session terminal data pred
From: |
ELPA Syncer |
Subject: |
[elpa] externals/detached 906541da22 2/5: Add session terminal data predicate |
Date: |
Mon, 14 Nov 2022 12:57:37 -0500 (EST) |
branch: externals/detached
commit 906541da221c6219622453e22372eceaa1746d6b
Author: Niklas Eklund <niklas.eklund@posteo.net>
Commit: Niklas Eklund <niklas.eklund@posteo.net>
Add session terminal data predicate
---
detached.el | 12 ++++++++----
1 file changed, 8 insertions(+), 4 deletions(-)
diff --git a/detached.el b/detached.el
index c3afb434ab..bf7659af2e 100644
--- a/detached.el
+++ b/detached.el
@@ -539,7 +539,7 @@ The session is compiled by opening its output and enabling
(when (detached-valid-session session)
(with-temp-buffer
(insert (detached-session-output session))
- (when (eq 'terminal-data (detached--session-env session))
+ (when (detached-session-terminal-data-p session)
;; Enable `detached-log-mode' to parse ansi-escape sequences
(detached-log-mode))
(kill-new (buffer-string)))))
@@ -624,7 +624,7 @@ Optionally DELETE the session if prefix-argument is
provided."
(erase-buffer)
(insert (detached--session-header session1))
(insert (detached-session-output session1))
- (when (eq 'terminal-data (detached--session-env session1))
+ (when (detached-session-terminal-data-p session1)
;; Enable `detached-log-mode' to parse ansi-escape sequences
(detached-log-mode))))
(with-current-buffer (get-buffer-create buffer2)
@@ -632,7 +632,7 @@ Optionally DELETE the session if prefix-argument is
provided."
(erase-buffer)
(insert (detached--session-header session2))
(insert (detached-session-output session2))
- (when (eq 'terminal-data (detached--session-env session2))
+ (when (detached-session-terminal-data-p session2)
;; Enable `detached-log-mode' to parse ansi-escape sequences
(detached-log-mode))))
(ediff-buffers buffer1 buffer2))))
@@ -1016,6 +1016,10 @@ This function uses the `notifications' library."
(eq 'initialized
(gethash (detached-session-id session) detached--hashed-sessions)))
+(defun detached-session-terminal-data-p (session)
+ "Return t if SESSION is run with environment set to terminal data."
+ (eq 'terminal-data
+ (detached--session-env session)))
(defun detached-session-watched-p (session)
"Return t if SESSION is being watched."
@@ -1571,7 +1575,7 @@ If SESSION is degraded fallback to a command that doesn't
rely on tee."
(command
(shell-quote-argument
(format "if %s; then true; else echo \"[detached-exit-code: $?]\";
fi"
- (if (and (eq 'terminal-data (detached--session-env session))
+ (if (and (detached-session-terminal-data-p session)
detached-terminal-data-command)
(format "TERM=eterm-color %s"
(format