[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)))
|
(bluetooth-connect-device choice)))
|
||||||
#+end_src
|
#+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
|
** NetworkManager integration
|
||||||
:PROPERTIES:
|
:PROPERTIES:
|
||||||
:CUSTOM_ID: Utilities-NetworkManager-integration-nm7jxbt0z9j0
|
:CUSTOM_ID: Utilities-NetworkManager-integration-nm7jxbt0z9j0
|
||||||
|
Loading…
Reference in New Issue
Block a user