[nongnu] elpa/iwindow a32c522f80 06/13: Add iwindow-delete and iwindow-delete-others

[ELPA Syncer]

branch: elpa/iwindow
commit a32c522f802b1e72883b74544c5fcb9630d89bbf
Author: Akib Azmain Turja <akib@disroot.org>
Commit: Akib Azmain Turja <akib@disroot.org>

    Add iwindow-delete and iwindow-delete-others
---
 README.org |  4 ++++
 iwindow.el | 18 +++++++++++++++++-
 2 files changed, 21 insertions(+), 1 deletion(-)

diff --git a/README.org b/README.org
index 1b0a4fb9e8..e6401006cd 100644
--- a/README.org
+++ b/README.org
@@ -14,6 +14,10 @@ to somewhere, for example:
 (global-set-key (kbd "C-x o") #'iwindow-select)
 #+end_src
 
+You can swap windows with `iwindow-swap'.  To delete a window, you can
+use `iwindow-delete'.  And there is `iwindow-delete-others' to delete
+all window except the chosen one.
+
 * Installation
 
 IWindow isn't available on any ELPA right now.  So, you have to follow
diff --git a/iwindow.el b/iwindow.el
index f63a0eb48b..d744f3230f 100644
--- a/iwindow.el
+++ b/iwindow.el
@@ -39,6 +39,10 @@
 
 ;;     (global-set-key (kbd "C-x o") #'iwindow-select)
 
+;; You can swap windows with `iwindow-swap'.  To delete a window, you
+;; can use `iwindow-delete'.  And there is `iwindow-delete-others' to
+;; delete all window except the chosen one.
+
 ;;; Code:
 
 (require 'cl-lib)
@@ -285,7 +289,7 @@ WINDOWS and CALLBACK is described in the docstring of
 
 ;;;###autoload
 (defun iwindow-swap ()
-  "Swap buffers of current window and WINDOW."
+  "Interactively swap two windows."
   (interactive)
   (when-let ((window (iwindow-choose
                       (lambda (window)
@@ -297,5 +301,17 @@ WINDOWS and CALLBACK is described in the docstring of
       (set-window-buffer window current-buffer)
       (select-window window))))
 
+;;;###autoload
+(defun iwindow-delete ()
+  "Interactively delete a window."
+  (interactive)
+  (delete-window (iwindow-choose)))
+
+;;;###autoload
+(defun iwindow-delete-others ()
+  "Interactively delete a window."
+  (interactive)
+  (delete-other-windows (iwindow-choose)))
+
 (provide 'iwindow)
 ;;; iwindow.el ends here