rpl-names

Vocabulary

irc.messages

Definition

USING: irc.messages.base ;

IN: irc.messages

TUPLE: rpl-names < irc-message nickname channel nicks ;

Methods

USING: irc.messages irc.messages.base kernel ;

M: rpl-names irc-parameter-slots
    drop { "nickname" f "channel" } ;


USING: irc.messages irc.messages.base kernel ;

M: rpl-names irc-trailing-slot drop "nicks" ;


USING: accessors ascii irc.messages irc.messages.base kernel
sequences splitting ;

M: rpl-names post-process-irc-message
    [ [ blank? ] trim split-words ] change-nicks drop ;


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

M: rpl-names process-message
    [ nicks>> ] [ chat> ] bi dup ?clear-participants
    [ join-participant ] curry each ;