[StumpWM] Add convenience keybindings

This commit is contained in:
Lucien Cartier-Tilet 2021-10-02 13:05:15 +02:00
parent 7a353ad6ec
commit dc52aa597f
Signed by: phundrak
GPG Key ID: BD7789E705CB8DCA

View File

@ -1057,6 +1057,12 @@ similar keybinds.
(define-key *groups-map* (kbd "G") "vgroups") (define-key *groups-map* (kbd "G") "vgroups")
#+end_src #+end_src
I grew accustomed to ~s-ESC~ bringing me to the previous group when
using AwesomeWM, so lets define that:
#+begin_src lisp
(define-key *top-map* (kbd "s-ESC") "gother")
#+end_src
** Frames and Windows management ** Frames and Windows management
:PROPERTIES: :PROPERTIES:
:CUSTOM_ID: Keybinds-Frames-and-Windows-management-g4s6j371v5j0 :CUSTOM_ID: Keybinds-Frames-and-Windows-management-g4s6j371v5j0
@ -1174,6 +1180,12 @@ redefine it:
((kbd "r") "resize-direction right")) ((kbd "r") "resize-direction right"))
#+end_src #+end_src
As with groups management, I grew used to ~s-TAB~ in AwesomeWM bringing
me back to the previously focused window.
#+begin_src lisp
(define-key *top-map* (kbd "s-TAB") "other-window")
#+end_src
** Windows management ** Windows management
:PROPERTIES: :PROPERTIES:
:CUSTOM_ID: Keybinds-Windows-management-ylf903j0x5j0 :CUSTOM_ID: Keybinds-Windows-management-ylf903j0x5j0
@ -1293,6 +1305,7 @@ anywhere else:
| Keychord | Function | | Keychord | Function |
|----------+------------| |----------+------------|
| ~B~ | ~beckon~ | | ~B~ | ~beckon~ |
| ~C-b~ | ~banish~ |
| ~l~ | ~exec plock~ | | ~l~ | ~exec plock~ |
| ~r~ | ~reload~ | | ~r~ | ~reload~ |
@ -1300,6 +1313,25 @@ anywhere else:
<<keybinds-gen(map="*root-map*", keybinds=misc-root-map)>> <<keybinds-gen(map="*root-map*", keybinds=misc-root-map)>>
#+end_src #+end_src
From time to time, I need to switch between different keyboard
layouts, especially to the US Qwerty layout when Im playing some
games and the bépo layout most of the time. Ill use the command
~switch-layout~ defined above.
#+name: keyboard-layout-map
| Keychord | Function |
|----------+------------------------------|
| ~b~ | ~exec setxkbmap fr bepo_afnor~ |
| ~u~ | ~exec setxkbmap us~ |
#+begin_src lisp
(defvar *my-keyboard-layout-keymap*
(let ((m (make-sparse-keymap)))
<<keybinds-gen(map="m", keybinds=keyboard-layout-map)>>
m))
(define-key *root-map* (kbd "k") '*my-keyboard-layout-keymap*)
#+end_src
* org functions :noexport: * org functions :noexport:
:PROPERTIES: :PROPERTIES:
:CUSTOM_ID: org-functions-syqgzgg0m6j0 :CUSTOM_ID: org-functions-syqgzgg0m6j0