kick

Vocabulary

irc.messages

Definition

USING: irc.messages.base ;

IN: irc.messages

TUPLE: kick < irc-message channel user comment ;

Methods

USING: accessors combinators irc.logbot.log-line irc.messages
make ;

M: kick >log-line
    [
        {
            [ "* " % sender>> % ]
            [ " has kicked " % user>> % ]
            [ " from the channel" % comment>> dot-or-parens % ]
        } cleave
    ] "" make ;


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

M: kick irc-parameter-slots drop { "channel" "user" } ;


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

M: kick irc-trailing-slot drop "comment" ;


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 ;