<irc-client> ( profile -- irc-client )


Vocabulary
irc.client.chats

Inputs
profilean object


Outputs
irc-clientan object


Definition
USING: accessors calendar concurrency.mailboxes
io.encodings.utf8 io.sockets kernel ;

IN: irc.client.chats

: <irc-client> ( profile -- irc-client )
dup nickname>> irc-client new swap >>nick swap >>profile
<mailbox> >>in-messages <mailbox> >>out-messages
H{ } clone >>chats 30 seconds >>reconnect-time
10 >>reconnect-attempts V{ } clone >>exceptions
[ <inet> utf8 <client> drop ] >>connect ;