[elpa] externals/dtache ab1eab962a 3/3: Add prefix argument to dtache-kill-session

[ELPA Syncer]

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

    Add prefix argument to dtache-kill-session
    
    This update makes it possible to both kill and delete a session if
    prefix argument is provided to the dtache-kill-session command.
---
 dtache.el | 18 +++++++++++-------
 1 file changed, 11 insertions(+), 7 deletions(-)

diff --git a/dtache.el b/dtache.el
index d1867bdfd5..26157fa12b 100644
--- a/dtache.el
+++ b/dtache.el
@@ -380,15 +380,19 @@ The session is compiled by opening its output and enabling
       (dtache--db-remove-entry session))))
 
 ;;;###autoload
-(defun dtache-kill-session (session)
-  "Send a TERM signal to SESSION."
+(defun dtache-kill-session (session &optional delete)
+  "Send a TERM signal to SESSION.
+
+Optionally DELETE the session if prefix-argument is provided."
   (interactive
-   (list (dtache-completing-read (dtache-get-sessions))))
+   (list (dtache-completing-read (dtache-get-sessions))
+         current-prefix-arg))
   (when (dtache-valid-session session)
-    (let* ((default-directory (dtache--session-directory session))
-           (pid (dtache--session-pid session)))
-      (when pid
-        (dtache--kill-processes pid)))))
+    (when-let* ((default-directory (dtache--session-directory session))
+                (pid (dtache--session-pid session)))
+      (dtache--kill-processes pid))
+    (when delete
+      (dtache--db-remove-entry session))))
 
 ;;;###autoload
 (defun dtache-view-session (session)