UpdateHEADmaster

1 files changed, 9 insertions, 4 deletions

diff --git a/src/wasp-obs.el b/src/wasp-obs.el
index 921f497e..2fc65553 100644
--- a/src/wasp-obs.el
+++ b/src/wasp-obs.el
@@ -11,7 +11,12 @@
 
 (defun w/obs-toggle (scene source)
   "Toggle SOURCE in SCENE."
-  (w/pub '(monitor obs toggle) (list (w/encode-string scene) (w/encode-string source))))
+  (w/binary-pub "monitor obs toggle" (s-concat scene "\0" source)))
+
+(defun w/obs-set-volume (input v)
+  "Set the volume for INPUT to V."
+  (unless (numberp v) (error "Volume should be a number, got %s" v))
+  (w/binary-pub "monitor obs set-volume" (s-concat input "\0" (format "%f" v))))
 
 (defun w/obs-toggle-modclonk ()
   "Toggle the MODCLONK panel."
@@ -60,12 +65,12 @@
 
 (defun w/obs-toggle-activate-nixos ()
   "Toggle the explosion effect."
-  (w/pub '(monitor obs toggle) (list "Main" "Activate NixOS")))
+  (w/obs-toggle "Main" "Activate NixOS"))
 
 (defun w/obs-set-clickbait-text (msg)
   "Change the clickbait text to MSG."
-  (w/pub '(monitor obs set-text)
-    (list (w/encode-string "Red Arrow Text") (w/encode-string (s-trim msg)))))
+  (w/binary-pub "monitor obs set-text"
+    (s-concat "Red Arrow Text\0" (s-trim msg))))
 
 (defun w/obs-toggle-clickbait (&optional msg)
   "Toggle the clickbait arrow.