start-bot ( -- chat )

Vocabulary

irc.gitbot

Inputs

None

Outputs

chat

an object

Definition

USING: irc.client irc.client.chats kernel threads ;

IN: irc.gitbot

: start-bot ( -- chat )
    bot-profile <irc-client>
    [ connect-irc ] [
        [ bot-channel <irc-channel-chat> dup ] dip
        [ attach-chat ] curry [ [ bot-loop ] bi ] 2curry
        "GitBot" spawn drop
    ] bi ;