blob: 09ea3175c5e50f6bf4fe800178bbb35a958635df (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
;;; wasp-event-handlers-binary --- Event handlers -*- lexical-binding: t; -*-
;;; Commentary:
;;; Code:
(require 'dash)
(require 's)
(require 'wasp-utils)
(require 'wasp-twitch)
(require 'wasp-bus-binary)
(setf
w/bus-binary-event-handlers
(list
(cons "monitor twitch chat incoming"
(lambda (d)
(-let [(user stags msg) (s-split-up-to " " (w/utf8 d) 2)]
(w/twitch-handle-incoming-chat
user
(--map (s-split "\t" it) (s-split "\n" stags))
msg))))
(cons "frontend redeem incoming"
(lambda (d)
(-let [(user redeem input) (s-split-up-to "\t" (w/utf8 d) 2)]
(w/twitch-handle-redeem-helper user redeem input 1000))))
;; (cons "test event 2"
;; (lambda (d)
;; (message "incoming: %s" d)))
))
(provide 'wasp-event-handlers-binary)
;;; wasp-event-handlers-binary.el ends here
|
