diff --git a/org/config/stumpwm.org b/org/config/stumpwm.org index c995b9d..6c6b4cc 100644 --- a/org/config/stumpwm.org +++ b/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))) + <> + m)) + +(define-key *root-map* (kbd "B") '*my-bluetooth-keymap*) +#+end_src + ** NetworkManager integration :PROPERTIES: :CUSTOM_ID: Utilities-NetworkManager-integration-nm7jxbt0z9j0