back to switch-window

1 files changed, 39 insertions, 41 deletions

diff --git a/init.org b/init.org
index 0dac37b..b0b77f9 100644
--- a/init.org
+++ b/init.org
@@ -1255,49 +1255,47 @@
 
       (global-set-key (kbd "C-x _") #'delete-other-windows-vertically)
     #+end_src
-*** ace-window
-    An alternative is switch-window.  The problem with it is that
-    commands such as C-x 4 f will use as default-dir the destination's
-    rather than the origin's, which kills the fun of it.  ace-window
-    is not without warts, notably, lack of overlay for org buffers,
-    although, to be fair, that's possibly org's fault (but then, why
-    does switch-window's overlays work?).
-    #+begin_src emacs-lisp
-      (use-package ace-window
+*** switch window
+    An alternative for this one is ace-window, but it has the problem
+    of not displaying its overlay over org buffers (sometimes) and
+    introducing a dependency (avy).
+    #+begin_src emacs-lisp :load no
+      (use-package switch-window
         :ensure t
         :demand t
-        :init (setq aw-keys '(?a ?s ?d ?f ?g ?h ?j ?k ?l ?\;)
-                    aw-ignore-current nil
-                    aw-dispatch-when-more-than 3
-                    aw-leading-char-style 'path
-                    aw-display-mode-overlay t
-                    aw-scope 'frame)
-        :bind (("M-o" . ace-window)
-               ("M-O" . ace-swap-window)
-               ("H-s-o" . ace-window)
-               ("H-s-O" . ace-swap-window)
-               ("C-x p" . ace-window)))
-
-      (defun jao-ace-switch-buffer-other-window ()
-        (interactive)
-        (aw-select "Other window"
-                   (if (eq jao-completion-engine 'consult)
-                       (lambda (w)
-                         (aw-switch-to-window w)
-                         (call-interactively 'consult-buffer))
-                     #'aw-switch-buffer-in-window)))
-
-      (defun jao-ace-find-file-other-window ()
-        (interactive)
-        (aw-select "Other window"
-                   (lambda (w)
-                     (let ((df default-directory))
-                       (aw-switch-to-window w)
-                       (let ((default-directory df))
-                         (call-interactively 'find-file))))))
-
-      (global-set-key (kbd "C-x 4 f") #'jao-ace-find-file-other-window)
-      (global-set-key (kbd "C-x 4 b") #'jao-ace-switch-buffer-other-window)
+        :custom ((switch-window-minibuffer-shortcut ?z)
+                 (switch-window-background t)
+                 (switch-window-shortcut-style 'qwerty)
+                 (switch-window-timeout 7)
+                 (switch-window-threshold 3))
+        :config
+        (defun jao-switch-window--then (prompt cmd)
+          (let ((d default-directory))
+            (switch-window--then prompt
+                                 cmd
+                                 `(lambda ()
+                                    (let ((default-directory ,d))
+                                      (call-interactively ',cmd))))))
+
+        (defun jao-switch-window-then-dired ()
+          (interactive)
+          (jao-switch-window--then "Find directory" 'dired))
+
+        (defun jao-switch-window-then-find-file ()
+          (interactive)
+          (jao-switch-window--then "Find file" 'find-file))
+
+        (defun jao-switch-window-then-consult-buffer ()
+          (interactive)
+          (jao-switch-window--then "Switch to buffer" 'consult-buffer))
+
+        :bind (("M-o" . switch-window)
+               ("M-O" . switch-window-then-swap-buffer)
+               ("H-s-o" . switch-window)
+               ("H-s-O" . switch-window-then-swap-buffer)
+               ("C-x 4 d" . jao-switch-window-then-dired)
+               ("C-x 4 f" . jao-switch-window-then-find-file)
+               ("C-x 4 b" . jao-switch-window-then-consult-buffer)))
     #+end_src
 *** first window and transient other window
     #+begin_src emacs-lisp