From 0ce19732baece3af63a60845e7c7eae7a1bcafcd Mon Sep 17 00:00:00 2001 From: Thanos Apollo Date: Sun, 3 Mar 2024 23:28:19 +0200 Subject: stumpwm:(keys) Add root map group keys --- .stumpwm.d/keybindings.lisp | 17 ++++++++++++++++- 1 file changed, 16 insertions(+), 1 deletion(-) diff --git a/.stumpwm.d/keybindings.lisp b/.stumpwm.d/keybindings.lisp index 2a97fcb..db0b521 100644 --- a/.stumpwm.d/keybindings.lisp +++ b/.stumpwm.d/keybindings.lisp @@ -57,8 +57,23 @@ ;; Next (define-key *top-map* (kbd "s-n") "fnext") -;Groups +;;Groups ;; Switch to group +;; Root map +(define-key *root-map* (kbd "1") "gselect 1") +(define-key *root-map* (kbd "2") "gselect 2") +(define-key *root-map* (kbd "3") "gselect 3") +(define-key *root-map* (kbd "4") "gselect 4") +(define-key *root-map* (kbd "5") "gselect 5") +(define-key *root-map* (kbd "0") "gselect") +;; Move winodw +(define-key *root-map* (kbd "M-1") "gmove 1") +(define-key *root-map* (kbd "M-2") "gmove 2") +(define-key *root-map* (kbd "M-3") "gmove 3") +(define-key *root-map* (kbd "M-4") "gmove 4") +(define-key *root-map* (kbd "M-5") "gmove 5") +(define-key *root-map* (kbd "M-0") "gmove") +;; Top map, using super (define-key *top-map* (kbd "s-1") "gselect 1") (define-key *top-map* (kbd "s-2") "gselect 2") (define-key *top-map* (kbd "s-3") "gselect 3") -- cgit v1.2.3