i don't like the other window and tracking next transient hydras

1 files changed, 19 insertions, 12 deletions

diff --git a/init.org b/init.org
index 7444af2..a33b4cd 100644
--- a/init.org
+++ b/init.org
@@ -445,15 +445,14 @@
     jao-exwm-enable~, which calls the function below enabling it.  This
     function, in turn, loads exwm's configuration from [[./exwm.org][exwm.org]].
     #+begin_src emacs-lisp
-      (setq exwm-workspace-current-index 0)
       (defvar jao-exwm-enabled-p nil)
-      (defvar jao-exwm--use-afio t)
-
       (defun jao-exwm-enable ()
         (jao-load-org "exwm.org")
         (setq jao-exwm-enabled-p t)
         (jao-ednc-setup 90)
         (exwm-enable)
+        (setq switch-window-input-style 'minibuffer
+              switch-window-minibuffer-shortcut nil)
         (jao-toggle-inactive-mode-line t)
         (jao-trisect t)
         (message "Welcome to exwm"))
@@ -688,14 +687,11 @@
                       tracking-sort-faces-first t
                       tracking-shorten-modes '())
           :config
-          (setq erc-track-enable-keybindings nil))
+          (setq erc-track-enable-keybindings nil)
+          :bind (("C-c C-SPC" . tracking-next-buffer)))
 
         (require 'tracking)
 
-        (defhydra jao-hydra-tracking (global-map "C-c")
-          ("C-SPC" tracking-next-buffer "next")
-          ("SPC" tracking-next-buffer "next"))
-
         (defun jao-shorten-modes (&rest modes)
           (dolist (m modes) (add-to-list 'tracking-shorten-modes m)))
 
@@ -1327,11 +1323,22 @@
       (global-set-key (kbd "s-a") #'jao-first-window)
       (global-set-key (kbd "H-s-a") #'jao-first-window)
 
-      (defhydra jao-hydra-other-window (global-map "C-x")
-        ("o" other-window "next window")
-        ("p" (other-window -1) "previous window")
-        ("O" (other-window -1) "previous window"))
+      (defun other-window-backward ()
+        (interactive)
+        (other-window -1))
 
+      (defun transient-other-window ()
+        (interactive)
+        (let ((echo-keystrokes nil))
+          (other-window 1)
+          (set-transient-map
+           (let ((map (make-sparse-keymap)))
+             (define-key map "o" #'other-window)
+             (define-key map "p" #'other-window-backward)
+             map)
+           t)))
+
+      (global-set-key (kbd "C-x o") #'transient-other-window)
     #+end_src
 *** winner mode
     #+begin_src emacs-lisp