From cf266a56f30daae8b9af7c9bc3267c61b1973192 Mon Sep 17 00:00:00 2001
From: LLLL Colonq <llll@colonq>
Date: Fri, 7 Nov 2025 00:20:02 -0500
Subject: Update

---
 src/wasp-event-handlers.el | 28 ++++++++++++++--------------
 1 file changed, 14 insertions(+), 14 deletions(-)

(limited to 'src/wasp-event-handlers.el')

diff --git a/src/wasp-event-handlers.el b/src/wasp-event-handlers.el
index d45debaf..3aee77b5 100644
--- a/src/wasp-event-handlers.el
+++ b/src/wasp-event-handlers.el
@@ -15,11 +15,11 @@
     (cons
       '(monitor lamulana test)
       (lambda (data)
-        (w/write-chat-event (format "LA-MULANA says hi: %s" data))))
+        (w/chat-write-event (format "LA-MULANA says hi: %s" data))))
     (cons
       '(monitor nethack test)
       (lambda (data)
-        (w/write-chat-event (format "Nethack says hi: %s" data))))
+        (w/chat-write-event (format "Nethack says hi: %s" data))))
     (cons
       '(monitor nethack monster)
       (lambda (data)
@@ -29,15 +29,15 @@
     (cons
       '(overlay barrage started)
       (lambda (_)
-        (w/write-chat-event "It begins...")
+        (w/chat-write-event "It begins...")
         (setf w/overlay-barrage-active t)
         (w/overlay-update-cursor)))
     (cons
       '(overlay barrage ended)
       (lambda (msg)
         (cond
-          ((s-equals? (car msg) "won") (w/write-chat-event "Fufufu... I win..."))
-          (t (w/write-chat-event "that it's over")))
+          ((s-equals? (car msg) "won") (w/chat-write-event "Fufufu... I win..."))
+          (t (w/chat-write-event "that it's over")))
         (setf w/overlay-barrage-active nil)))
     (cons '(monitor twitch chat incoming) #'w/twitch-handle-incoming-chat-sexp)
     (cons '(monitor twitch redeem incoming) #'w/twitch-handle-redeem)
@@ -51,7 +51,7 @@
       (lambda (msg)
         (let ((user (car msg)))
           (soundboard//play-clip "rampage.mp3")
-          (w/write-chat-event (format "%s just raided!" user))
+          (w/chat-write-event (format "%s just raided!" user))
           (w/friend-respond (format "%s just came to visit" user))
           (run-with-timer
             15 nil
@@ -71,7 +71,7 @@
           (soundboard//play-clip "firstblood.mp3")
           (w/model-region-word "skin" (format "welcome_%s_" user))
           (w/friend-respond (format "%s just followed the stream" user))
-          (w/write-chat-event (format "New follower: %s" user)))))
+          (w/chat-write-event (format "New follower: %s" user)))))
     (cons
       '(monitor twitch subscribe)
       (lambda (msg)
@@ -79,7 +79,7 @@
           (w/thank-sub user)
           (w/model-region-word "skin" (format "thanks_%s_" user))
           (w/friend-respond (format "%s just subscribed to the stream" user))
-          (w/write-chat-event (format "New subscriber: %s" user)))))
+          (w/chat-write-event (format "New subscriber: %s" user)))))
     (cons
       '(monitor twitch gift)
       (lambda (msg)
@@ -88,38 +88,38 @@
           (unless (s-equals? user "lcolonq")
             (w/model-region-word "skin" (format "thanks_%s_" user))
             (w/friend-respond (format "%s just gifted subscriptions" user))
-            (w/write-chat-event (format "%s gifted %d subs" user subs))
+            (w/chat-write-event (format "%s gifted %d subs" user subs))
             (soundboard//play-monsterkill subs)))))
     (cons
       '(monitor twitch poll begin)
       (lambda (_)
-        (w/write-chat-event "Poll started")
+        (w/chat-write-event "Poll started")
         (w/friend-respond "The chatters are doing a poll")))
     (cons
       '(monitor twitch poll end)
       (lambda (msg)
         (let ((winner (car (-max-by (-on #'> #'cadr) (cadr msg)))))
-          (w/write-chat-event (format "Poll finished, winner is: %s" winner))
+          (w/chat-write-event (format "Poll finished, winner is: %s" winner))
           (when w/twitch-current-poll-callback
             (funcall w/twitch-current-poll-callback winner))
           (setq w/twitch-current-poll-callback nil))))
     (cons
       '(monitor twitch prediction begin)
       (lambda (msg)
-        (w/write-chat-event "Gamble started")
+        (w/chat-write-event "Gamble started")
         (w/friend-respond "The chatters are gambling")
         (setq w/twitch-current-prediction-ids msg)))
     (cons
       '(monitor twitch prediction end)
       (lambda (_)
-        (w/write-chat-event "Gamble finished")
+        (w/chat-write-event "Gamble finished")
         (setq w/twitch-current-prediction-ids nil)))
     ;; (cons
     ;;  '(monitor discord chat incoming)
     ;;  (lambda (data)
     ;;    (let ((user (w/decode-string (cadr data)))
     ;;          (msg (w/decode-string (cadddr data))))
-    ;;    (w/write-chat-event (format "discord from %s: %s" user msg)))))
+    ;;    (w/chat-write-event (format "discord from %s: %s" user msg)))))
     ))
 
 (provide 'wasp-event-handlers)
-- 
cgit v1.2.3