diff options
Diffstat (limited to 'src/wasp-event-handlers.el')
| -rw-r--r-- | src/wasp-event-handlers.el | 28 |
1 files changed, 14 insertions, 14 deletions
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) |