[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/detached 0d607044d9 03/38: Add session started predicat
From: |
ELPA Syncer |
Subject: |
[elpa] externals/detached 0d607044d9 03/38: Add session started predicate |
Date: |
Thu, 17 Nov 2022 17:57:53 -0500 (EST) |
branch: externals/detached
commit 0d607044d9c7ae2e8bfb34763df14654342cf579
Author: Niklas Eklund <niklas.eklund@posteo.net>
Commit: Niklas Eklund <niklas.eklund@posteo.net>
Add session started predicate
---
detached-compile.el | 2 +-
detached.el | 4 ++++
2 files changed, 5 insertions(+), 1 deletion(-)
diff --git a/detached-compile.el b/detached-compile.el
index 60d0b1ea82..9481b97782 100644
--- a/detached-compile.el
+++ b/detached-compile.el
@@ -113,7 +113,7 @@ Optionally EDIT-COMMAND."
(pcase-let ((`(,_command ,mode ,name-function ,highlight-regexp)
args))
(if (eq detached-session-mode 'create)
(detached-start-detached-session
detached--current-session)
- (apply compilation-start `(,(if (eq detached-session-mode
'attach)
+ (apply compilation-start `(,(if (detached-session-started-p
detached--current-session)
(detached--shell-command
detached--current-session t)
(detached-session-start-command
detached--current-session
:type
'string))
diff --git a/detached.el b/detached.el
index f9d87df320..08ece25a5e 100644
--- a/detached.el
+++ b/detached.el
@@ -1073,6 +1073,10 @@ This function uses the `notifications' library."
"Return command run in SESSION."
(detached--session-command session))
+(defun detached-session-started-p (session)
+ "Return t if SESSION has been started."
+ (not (eq 'unknown (detached-session-state session))))
+
(defun detached-session-validated-p (session)
"Return t if SESSION has been validated."
(not
- [elpa] externals/detached 51858bceb7 26/38: Begin rework of how to start a session, (continued)
- [elpa] externals/detached 51858bceb7 26/38: Begin rework of how to start a session, ELPA Syncer, 2022/11/17
- [elpa] externals/detached 65c661bc9c 27/38: Change detached env to text-mode, ELPA Syncer, 2022/11/17
- [elpa] externals/detached 3dc3651e98 18/38: Add session working directory function, ELPA Syncer, 2022/11/17
- [elpa] externals/detached 88618a9cee 17/38: Add public function for session command, ELPA Syncer, 2022/11/17
- [elpa] externals/detached 4b3609385d 01/38: Start session rewrite, ELPA Syncer, 2022/11/17
- [elpa] externals/detached f0f9728e2c 31/38: Make local predicate private, ELPA Syncer, 2022/11/17
- [elpa] externals/detached 09b37f681c 30/38: Add detached-with-session macro, ELPA Syncer, 2022/11/17
- [elpa] externals/detached a57a728382 22/38: Remove detached-session-mode 'attach, ELPA Syncer, 2022/11/17
- [elpa] externals/detached 4e36d9de69 10/38: Make current session public, ELPA Syncer, 2022/11/17
- [elpa] externals/detached f896cd9777 32/38: Reformat code, ELPA Syncer, 2022/11/17
- [elpa] externals/detached 0d607044d9 03/38: Add session started predicate,
ELPA Syncer <=
- [elpa] externals/detached 4eb5e3e9aa 04/38: Add side effect to start command, ELPA Syncer, 2022/11/17
- [elpa] externals/detached b3fa3b9893 13/38: Move functions to end to prepare for deprecation, ELPA Syncer, 2022/11/17
- [elpa] externals/detached 1604a7b5b8 11/38: Make detached-buffer-session public, ELPA Syncer, 2022/11/17
- [elpa] externals/detached 26210dc5a8 28/38: Improve the core structure, ELPA Syncer, 2022/11/17