[StumpWM] Add bluetooth keybinds

org/config/stumpwm.org

@@ -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