blob: ae373b8c24f58fce2744a7e1b92f6066cb883608 (
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
|
;;; 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 " " d 2)]
(w/twitch-handle-incoming-chat
user
(--map (s-split "\t" it) (s-split "\n" stags))
msg)))))
))
(provide 'wasp-event-handlers-binary)
;;; wasp-event-handlers-binary.el ends here
|
