better window transposition keybidings

2 files changed, 9 insertions, 0 deletions

diff --git a/exwm.org b/exwm.org
index b7e7b43..1a7a38d 100644
--- a/exwm.org
+++ b/exwm.org
@@ -520,6 +520,7 @@
     (define-key exwm-mode-map (kbd "C-c o") #'jao-exwm-zathura-goto-org)
     (define-key exwm-mode-map (kbd "C-c O") #'jao-exwm-zathura-goto-org*)
     (define-key exwm-mode-map (kbd "M-o") #'other-window)
+    (define-key exwm-mode-map (kbd "M-p") #'jao-prev-window)
 
     (setq
      exwm-input-global-keys
@@ -537,6 +538,8 @@
        ([?\s-n] . jao-hydra-ednc/body)
        ([?\s-O] . jao-transpose-windows)
        ([?\s-o] . jao-other-window)
+       ([?\s-P] . jao-transpose-windows-prev)
+       ([?\s-p] . jao-prev-window)
        ([?\s-r] . app-launcher-run-app)
        ([?\s-x] . jao-hydra-exwm-misc/body)
        ([?\s-z] . jao-hydra-sleep/body)
diff --git a/init.org b/init.org
index bd3bbbe..a5ac84a 100644
--- a/init.org
+++ b/init.org
@@ -1057,8 +1057,13 @@
               (select-window (funcall selector)))
             (setq arg (if (> arg 0) (1- arg) (1+ arg))))))
 
+      (defun jao-transpose-windows-prev ()
+        (interactive)
+        (jao-transpose-windows -1))
+
       (define-key ctl-x-4-map (kbd "t") #'jao-transpose-windows)
       (global-set-key (kbd "M-O") #'jao-transpose-windows)
+      (global-set-key (kbd "M-P") #'jao-transpose-windows-prev)
     #+end_src
 *** Window navigation
     #+begin_src emacs-lisp
@@ -1090,6 +1095,7 @@
       (global-set-key (kbd "H-s-a") #'jao-first-window)
       (global-set-key (kbd "C-x p") 'jao-prev-window)
       (global-set-key (kbd "M-o") #'other-window)
+      (global-set-key (kbd "M-p") #'jao-prev-window)
 
       (global-set-key (kbd "C-c 0") #'jao-first-window)
       (dolist (n '(0 1 2 3 4 5 6 7 8))