[nongnu] elpa/swsw b10ff98f3d 079/146: Add a window deletion command

[ELPA Syncer]

branch: elpa/swsw
commit b10ff98f3d02a469d78b005d1aecb0e1315de288
Author: Daniel Semyonov <cmstr@dsemy.com>
Commit: Daniel Semyonov <cmstr@dsemy.com>

    Add a window deletion command
    
    * swsw.el (swsw-delete): New window command which deletes a window.
    (swsw-command-map): Bind 'swsw-delete' to '0' by default.
---
 swsw.el | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/swsw.el b/swsw.el
index a60120c3d1..b900245eb5 100644
--- a/swsw.el
+++ b/swsw.el
@@ -236,9 +236,22 @@ This command is intended to be used only when ‘swsw-mode’ 
is enabled."
     (if window (select-window window)
       (message "There is no active minibuffer window"))))
 
+(defun swsw-delete ()
+  "Start window deletion.
+If less than three windows have been assigned an ID, delete the window
+returned by ‘next-window’.
+Otherwise, window deletion allows either choosing a window by its ID
+\(deleting it), or using a window manipulation command.
+This command is intended to be used only when ‘swsw-mode’ is enabled."
+  (interactive)
+  (if (< swsw-window-count 3)
+      (delete-window (next-window))
+    (swsw--run-window-command #'delete-window)))
+
 (defvar swsw-command-map (let ((map (make-sparse-keymap)))
                            (define-key map [?o] #'swsw-select)
                            (define-key map [?m] #'swsw-select-minibuffer)
+                           (define-key map [?0] #'swsw-delete)
                            map)
   "Key map for window commands.
 This key map is set as the parent of ‘swsw--id-map’ during ID