diff options
| -rw-r--r-- | exwm.org | 3 | ||||
| -rw-r--r-- | init.org | 6 |
2 files changed, 9 insertions, 0 deletions
@@ -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) @@ -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)) |