blob: 1af2bd7e7c49f17e882eb85f446fa1cd16d10b18 (
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
|
;;; wasp-voice-commands --- Voice commands -*- lexical-binding: t; -*-
;;; Commentary:
;;; Code:
(require 'soundboard)
(require 'wasp-audio)
(require 'wasp-twitch)
(require 'wasp-chat)
(require 'wasp-obs)
(setq
w/audio-voice-commands
(list
(cons "mr. beast" (lambda () (soundboard//play-clip "mrbeast.mp3")))
(cons "joel" (lambda () (w/twitch-say (w/pick-random (list "Joel" "EvilJoel")))))
(cons "i can't" (lambda () (cl-incf w/chat-icant-count) (w/chat-update-header-line)))
(cons "sorry" (lambda () (cl-incf w/chat-apology-count) (w/chat-update-header-line)))
(cons "apologies" (lambda () (cl-incf w/chat-apology-count) (w/chat-update-header-line)))
(cons "lua"
(lambda ()
(progn (w/obs-toggle-brazil)
(run-with-timer 1 nil #'w/obs-toggle-brazil))))
(cons "ruby"
(lambda ()
(progn (w/obs-toggle-japan)
(run-with-timer 1 nil #'w/obs-toggle-japan))))
))
(provide 'wasp-voice-commands)
;;; wasp-voice-commands.el ends here
|
