Connect headphones redone to package

2025-11-05 21:32:57 +02:00
parent 9284f6459e
commit 25c532d978
1 changed files with 11 additions and 0 deletions
@@ -31,6 +31,17 @@
 )
 #+end_src

+** Headphones
+
+#+begin_src emacs-lisp
+(defun azos/connect-headphones ()
+  (interactive)
+    (start-process-shell-command "connect-headphones" nil "azos-connect-headphones-whmx4000"))
+
+(define-key azos/global-minor-mode/open-keymap
+    (kbd "h") 'azos/connect-headphones)
+#+end_src
+
 * Provide

 #+begin_src emacs-lisp