ace-window is evil: it badly messes the keyboard

1 files changed, 29 insertions, 0 deletions

diff --git a/attic/orgs/misc.el b/attic/misc.el
index b56c5df..a872ce7 100644
--- a/attic/orgs/misc.el
+++ b/attic/misc.el
@@ -1,3 +1,32 @@
+;;;; ace window
+(use-package ace-window
+  :ensure t
+  :demand t
+  :init (setq aw-keys '(?a ?s ?d ?f ?g ?h ?j ?k ?l)
+              aw-char-position 'top-left
+              aw-ignore-current nil
+              aw-dispatch-when-more-than 2
+              aw-leading-char-style 'path
+              aw-display-mode-overlay t
+              aw-scope 'frame)
+  :config
+
+  (defun jao-ace-consult-buffer-other-window (w)
+    (interactive)
+    (aw-switch-to-window w)
+    (consult-buffer))
+
+  (setf (alist-get ?b aw-dispatch-alist)
+        '(jao-ace-consult-buffer-other-window "Consult buffer"))
+
+  (setf (alist-get ?B aw-dispatch-alist)
+        (alist-get ?u aw-dispatch-alist))
+
+
+  :bind (("M-o" . ace-window)
+         ("M-O" . ace-swap-window)
+         ("C-x 4 t" . ace-swap-window)))
+
 ;;;; sway
 (defun jao-swaymsg (msg)
   (shell-command (format "swaymsg '%s' >/dev/null" msg)))