[elpa] externals/dtache 4284951870 103/158: Make dtache-delete-sessions a command

[ELPA Syncer]

branch: externals/dtache
commit 4284951870389513ea2d90d2e1cf3d65dc6d951b
Author: Niklas Eklund <niklas.eklund@posteo.net>
Commit: Niklas Eklund <niklas.eklund@posteo.net>

    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)