From c3d53388ab2ab34312f99fb11367250ca87fa6a6 Mon Sep 17 00:00:00 2001
From: Lucien Cartier-Tilet <lucien@phundrak.com>
Date: Tue, 23 Nov 2021 23:37:17 +0100
Subject: [PATCH] [StumpWM] Add bluetooth keybinds

---
 org/config/stumpwm.org | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)

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)))
+    <<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