diff options
Diffstat (limited to 'src/wasp-twitch.el')
| -rw-r--r-- | src/wasp-twitch.el | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/src/wasp-twitch.el b/src/wasp-twitch.el index 6559a45f..808f4a7f 100644 --- a/src/wasp-twitch.el +++ b/src/wasp-twitch.el @@ -87,6 +87,11 @@ ("Client-Id" . ,w/sensitive-twitch-client-id) ("Content-Type" . "application/json")) :parser #'json-parse-buffer + ;; :error + ;; (cl-function + ;; (lambda (&key response &allow-other-keys) + ;; (message "error:") + ;; (print response))) :success (cl-function (lambda (&key data &allow-other-keys) @@ -581,8 +586,8 @@ CALLBACK will be passed the winner when the poll concludes." (when (-contains? badges "subscriber/0") "💻") (when (-contains? badges "founder/0") "🖥️")))))) -(defun w/twitch-handle-incoming-chat (user tags text) - "Write the message TEXT from USER with TAGS to the chat buffer. +(defun w/twitch-handle-incoming-chat (user disp tags text) + "Write the message TEXT from USER with DISP and TAGS to the chat buffer. Process any commands included." (w/binary-pub "overlay combo message" (s-join "," (--map (format "%s" it) (w/combo-classify text)))) (w/user-bind @@ -609,7 +614,7 @@ Process any commands included." (w/hex-transform user (w/make-chat-message - :user user + :user disp :id uid :text text-with-emotes :user-color (when (s-present? color) color) |