From 25c532d978bfabcd3c7958fcbf026af66021efc4 Mon Sep 17 00:00:00 2001
From: Aner Zakobar <aner@zakobar.com>
Date: Wed, 5 Nov 2025 21:32:57 +0200
Subject: [PATCH] Connect headphones redone to package

---
 pkgs/elisp/azos-emacs-lauretta.org | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/pkgs/elisp/azos-emacs-lauretta.org b/pkgs/elisp/azos-emacs-lauretta.org
index 3712c89..b7ce923 100644
--- a/pkgs/elisp/azos-emacs-lauretta.org
+++ b/pkgs/elisp/azos-emacs-lauretta.org
@@ -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