IN: irc.client.internals

GENERIC: process-message ( irc-message -- )

USING: accessors irc.client.base irc.client.internals
irc.client.participants irc.messages kernel ;

M: join process-message
[ sender>> ] [ chat> ] bi [ join-participant ] [ drop ] if*
;

USING: accessors irc.client.base irc.client.internals
irc.client.participants irc.messages kernel ;

M: kick process-message
[ [ user>> ] [ chat> ] bi part-participant ]
[ dup user>> me? [ unregister-chat ] [ drop ] if ] bi ;

USING: accessors irc.client.internals irc.client.participants
irc.messages kernel ;

M: nick process-message
[ trailing>> ] [ sender>> ] bi rename-participant* ;

USING: irc.client.internals kernel ;

M: object process-message drop ;

USING: accessors irc.client.base irc.client.internals
irc.client.participants irc.messages kernel ;