[nongnu] elpa/iwindow bfc5e97dfe 03/13: Add iwindow-swap

[ELPA Syncer]

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

    Add iwindow-swap
---
 iwindow.el | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

diff --git a/iwindow.el b/iwindow.el
index 90775e4ae6..9fe86a58f9 100644
--- a/iwindow.el
+++ b/iwindow.el
@@ -242,5 +242,19 @@ WINDOWS and CALLBACK is described in the docstring of
                         (not (eq window (selected-window)))))))
     (select-window window)))
 
+;;;###autoload
+(defun iwindow-swap ()
+  "Swap buffers of current window and WINDOW."
+  (interactive)
+  (when-let ((window (iwindow-choose
+                      (lambda (window)
+                        (not (eq window (selected-window)))))))
+    (unless (eq (window-frame window) (selected-frame))
+      (select-frame-set-input-focus (window-frame window)))
+    (let ((current-buffer (window-buffer (selected-window))))
+      (set-window-buffer (selected-window) (window-buffer window))
+      (set-window-buffer window current-buffer)
+      (select-window window))))
+
 (provide 'iwindow)
 ;;; iwindow.el ends here