branch: externals/dtache
commit 4284951870389513ea2d90d2e1cf3d65dc6d951b
Author: Niklas Eklund <[email protected]>
Commit: Niklas Eklund <[email protected]>
Make dtache-delete-sessions a command
---
dtache.el | 17 ++++++++++++-----
1 file changed, 12 insertions(+), 5 deletions(-)
diff --git a/dtache.el b/dtache.el
index 708194113f..5a3567515d 100644
--- a/dtache.el
+++ b/dtache.el
@@ -411,6 +411,18 @@ This command is only activated if `dtache--buffer-session'
is set and
(message "No active dtache-session found in buffer.")))
(message "No dtache-session found in buffer.")))
+;;;###autoload
+(defun dtache-delete-sessions (&optional all-hosts)
+ "Delete `dtache' sessions on current host, unless ALL-HOSTS."
+ (interactive "P")
+ (let* ((host (dtache--host))
+ (sessions (if all-hosts
+ (dtache-get-sessions)
+ (seq-filter (lambda (it)
+ (string= (dtache--session-host it) host))
+ (dtache-get-sessions)))))
+ (seq-do #'dtache--db-remove-entry sessions)))
+
;;;###autoload
(defun dtache-quit-tail-output ()
"Quit `dtache' tail log.
@@ -600,11 +612,6 @@ If session is not valid trigger an automatic cleanup on
SESSION's host."
(funcall view-fun session)
(dtache-view-dwim session)))
-(defun dtache-delete-sessions ()
- "Delete all `dtache' sessions."
- (seq-do #'dtache--db-remove-entry
- (dtache-get-sessions)))
-
;;;;; Other
(cl-defgeneric dtache-dtach-command (entity &optional concat)
