[StumpWM] Add bluetooth keybinds
This commit is contained in:
parent
b0a356a5fe
commit
c3d53388ab
@ -1083,6 +1083,29 @@ then attempt to connect to it.
|
||||
(bluetooth-connect-device choice)))
|
||||
#+end_src
|
||||
|
||||
*** Keybinds
|
||||
:PROPERTIES:
|
||||
:CUSTOM_ID: Utilities-Bluetooth-Keybinds-gxjaagl05aj0
|
||||
:END:
|
||||
It’s all nice and all, but typing manually the commands with ~s-SPC ;~
|
||||
is a bit tiring, so let’s define our bluetooth keymap which we will
|
||||
bind to ~s-SPC B~.
|
||||
#+name: bluetooth-keymap
|
||||
| Keychord | Command |
|
||||
|----------+--------------------|
|
||||
| ~c~ | ~bluetooth-connect~ |
|
||||
| ~o~ | ~bluetooth-turn-on~ |
|
||||
| ~O~ | ~bluetooth-turn-off~ |
|
||||
|
||||
#+begin_src lisp
|
||||
(defvar *my-bluetooth-keymap*
|
||||
(let ((m (make-sparse-keymap)))
|
||||
<<keybinds-gen(map="m", keybinds=bluetooth-keymap)>>
|
||||
m))
|
||||
|
||||
(define-key *root-map* (kbd "B") '*my-bluetooth-keymap*)
|
||||
#+end_src
|
||||
|
||||
** NetworkManager integration
|
||||
:PROPERTIES:
|
||||
:CUSTOM_ID: Utilities-NetworkManager-integration-nm7jxbt0z9j0
|
||||
|
Loading…
Reference in New Issue
Block a user