From 19b413c15e6e683230dee515a249b69afa5b4da8 Mon Sep 17 00:00:00 2001 From: jao Date: Sat, 23 Oct 2021 04:17:19 +0100 Subject: better window transposition keybidings --- exwm.org | 3 +++ init.org | 6 ++++++ 2 files changed, 9 insertions(+) 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)) -- cgit v1.2.3