(attach-chat) ( irc-chat -- )

Vocabulary

irc.client.internals

Inputs

irc-chat

an object

Outputs

None

Definition

IN: irc.client.internals

GENERIC: (attach-chat) ( irc-chat -- )

Methods

USING: accessors assocs irc.client.base irc.client.chats
irc.client.internals kernel ;

M: irc-chat (attach-chat)
    irc>
    [ [ chats>> ] [ >>client name>> swap ] 2bi set-at ]
    [ is-ready>> [ initialize-chat ] [ drop ] if ] 2bi ;


USING: accessors assocs irc.client.base irc.client.chats
irc.client.internals kernel ;

M: irc-server-chat (attach-chat)
    irc> [ client<< ] [ chats>> +server-chat+ set-at ] 2bi ;