(match action
("botsnack"
(irc-format socket "PRIVMSG ~a :Yippie! *does a dance!*" channel))
+ ((or "hello" "hello!" "hello." "greetings" "greetings." "greetings!"
+ "hei" "hei." "hei!")
+ (irc-format socket "PRIVMSG ~a :Oh hi ~a!" channel speaker))
;; Add yours here
(_
(irc-format socket "PRIVMSG ~a :*stupid puppy look*" channel))))
- (_
- (cond
+ (_
+ (cond
(is-action
(format #t "~a emoted ~s in channel ~a\n"
speaker message channel))