From b21ecce6645fc17c520b722de3d96e550c77c490 Mon Sep 17 00:00:00 2001
From: LLLL Colonq <llll@colonq>
Date: Thu, 13 Mar 2025 21:30:13 -0400
Subject: Update

---
 src/wasp-audio.el | 47 +++++++++++++++++++++++++++++++++++++++++++++--
 1 file changed, 45 insertions(+), 2 deletions(-)

(limited to 'src/wasp-audio.el')

diff --git a/src/wasp-audio.el b/src/wasp-audio.el
index 580a3e7e..30e2bdfe 100644
--- a/src/wasp-audio.el
+++ b/src/wasp-audio.el
@@ -18,7 +18,7 @@
 (defvar w/audio-record-process-current nil)
 (defvar w/audio-keep-recording t)
 (defvar w/audio-voice-commands nil)
-(defvar w/last-stream-transcription "")
+(defvar w/last-stream-transcription "we're going down the rabbit hole")
 
 (defun w/tts (msg)
   "Use TTS to say MSG."
@@ -44,7 +44,9 @@ If VOLUME is specified, use it to adjust the volume (100 is default)."
 (defun w/stop-all-audio ()
   "Stop all audio by killing mpv processes."
   (interactive)
-  (start-process "pkill" nil "pkill" "mpv"))
+  (setq w/audio-muzak-queue nil)
+  (start-process "pkill" nil "pkill" "mpv")
+  (start-process "pkill" nil "pkill" "muzak"))
 
 (defun w/recorded-chatter-name? (user)
   "Return non-nil if we've recorded USER's name."
@@ -148,5 +150,46 @@ USER it's your birthday today."
   (setq w/audio-keep-recording nil)
   (w/audio-record-end))
 
+(defconst w/audio-muzak-path "/home/llll/src/muzak-rs/target/release/muzak")
+(defvar w/audio-muzak-now-playing nil)
+(defvar w/audio-muzak-queue nil)
+
+(defun w/audio-muzak (user song)
+  "Play SONG by USER using muzak-rs courtesy The0x539."
+  (setq w/audio-muzak-now-playing (cons user song))
+  (w/pub '(avatar overlay muzak) (list (w/encode-string user)))
+  (let ((proc
+          (make-process
+            :name "wasp-muzak"
+            :connection-type '(pipe . pty)
+            :buffer " *wasp-muzak-log*"
+            :command (list w/audio-muzak-path "play")
+            :sentinel 
+            (lambda (_ _)
+              (w/pub '(avatar overlay muzak clear) (list))
+              (setq w/audio-muzak-now-playing nil)))))
+    (process-send-string proc song)
+    (process-send-eof proc)))
+
+(defun w/audio-muzak-enqueue (user song)
+  "Enqueue a play for SONG by USER."
+  (setq w/audio-muzak-queue (-concat w/audio-muzak-queue (list (cons user song)))))
+
+(defun w/audio-muzak-update ()
+  "Keep playing songs from the queue if they exist."
+  (unless w/audio-muzak-now-playing
+    (when-let* ((entry (pop w/audio-muzak-queue)))
+      (w/audio-muzak (car entry) (cdr entry)))))
+(defvar w/audio-muzak-timer nil)
+(defun w/run-audio-muzak-timer ()
+  "Run the muzak timer."
+  (when w/audio-muzak-timer
+    (cancel-timer w/audio-muzak-timer))
+  (w/audio-muzak-update)
+  (setq
+   w/audio-muzak-timer
+   (run-with-timer 1 nil #'w/run-audio-muzak-timer)))
+(w/run-audio-muzak-timer)
+
 (provide 'wasp-audio)
 ;;; wasp-audio.el ends here
-- 
cgit v1.2.3