- ((irc-bot-line-handler irc-bot) irc-bot username
- channel-name line-text emote?))))
- (_
- (display line)
- (newline)))))
-
-(define* (irc-bot-send-line irc-bot message
- channel line #:key emote?)
- ;; TODO: emote? handling
- (format (irc-bot-socket irc-bot) "PRIVMSG ~a :~a~a"
- channel line irc-eol))
+ (<- (actor-id irc-bot) 'handle-line
+ username channel-name
+ line-text emote?))))
+ (_ (handle-misc-input irc-bot raw-line)))))
+
+(define-method (handle-line (irc-bot <irc-bot>) message
+ username channel-name line-text emote?)
+ (echo-message irc-bot username channel-name line-text emote?))
+
+(define-method (handle-misc-input (irc-bot <irc-bot>) raw-line)
+ (display raw-line)
+ (newline))
+
+(define-method (handle-user-join (irc-bot <irc-bot>) user channel)
+ 'TODO)
+
+(define-method (handle-user-quit (irc-bot <irc-bot>) user channel)
+ 'TODO)
+