From 521241f9745f590346839027206b10c99d75099a Mon Sep 17 00:00:00 2001 From: Thanos Apollo Date: Sun, 4 Jun 2023 17:30:07 +0300 Subject: stumpwm: fix bindings --- desktop.org | 36 +++++++++++++++++------------------- 1 file changed, 17 insertions(+), 19 deletions(-) (limited to 'desktop.org') diff --git a/desktop.org b/desktop.org index 5aee6a3..c90bd17 100644 --- a/desktop.org +++ b/desktop.org @@ -1311,8 +1311,6 @@ (let ((cmd (read-one-line (current-screen) ": " :initial-input initial))) (when cmd (eval-command cmd t)))) - - ;(define-key *top-map* (kbd "Super-2") (gselect 1)) ;; Run rofi (define-key *root-map* (kbd "C-r") "exec rofi -show drun") (define-key *root-map* (kbd ".") "exec rofi-pass") @@ -1341,25 +1339,25 @@ ;;; Groups ;; Switch to group - (define-key *top-map* (kbd "M-1") "gselect 1") - (define-key *top-map* (kbd "M-2") "gselect 2") - (define-key *top-map* (kbd "M-3") "gselect 3") - (define-key *top-map* (kbd "M-4") "gselect 4") - (define-key *top-map* (kbd "M-5") "gselect 5") - (define-key *top-map* (kbd "M-6") "gselect 6") - (define-key *top-map* (kbd "M-7") "gselect 7") + (define-key *root-map* (kbd "M-1") "gselect 1") + (define-key *root-map* (kbd "M-2") "gselect 2") + (define-key *root-map* (kbd "M-3") "gselect 3") + (define-key *root-map* (kbd "M-4") "gselect 4") + (define-key *root-map* (kbd "M-5") "gselect 5") + (define-key *root-map* (kbd "M-6") "gselect 6") + (define-key *root-map* (kbd "M-7") "gselect 7") ;; Move window to group - (define-key *top-map* (kbd "M-!") "gmove 1") - (define-key *top-map* (kbd "M-@") "gmove 2") - (define-key *top-map* (kbd "M-#") "gmove 3") - (define-key *top-map* (kbd "M-$") "gmove 4") - (define-key *top-map* (kbd "M-%") "gmove 5") - (define-key *top-map* (kbd "M-^") "gmove 6") - (define-key *top-map* (kbd "M-&") "gmove 7") + (define-key *root-map* (kbd "M-!") "gmove 1") + (define-key *root-map* (kbd "M-@") "gmove 2") + (define-key *root-map* (kbd "M-#") "gmove 3") + (define-key *root-map* (kbd "M-$") "gmove 4") + (define-key *root-map* (kbd "M-%") "gmove 5") + (define-key *root-map* (kbd "M-^") "gmove 6") + (define-key *root-map* (kbd "M-&") "gmove 7") ;; Focus - (define-key *top-map* (kbd "M-b") "move-focus left") - (define-key *top-map* (kbd "M-f") "move-focus right") - (define-key *top-map* (kbd "M-n") "move-focus down") + (define-key *root-map* (kbd "M-b") "move-focus left") + (define-key *root-map* (kbd "M-f") "move-focus right") + (define-key *root-map* (kbd "M-n") "move-focus down") ;; Web jump (works for DuckDuckGo and Imdb) (defmacro make-web-jump (name prefix) -- cgit v1.2.3