action

Vocabulary

irc.messages

Definition

USING: accessors sequences ;

IN: irc.messages

PREDICATE: action < ctcp trailing>> rest "ACTION" head? ;

Methods

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

M: action >log-line
    [ "* " % dup sender>> % " " % text>> % ] "" make ;


USING: accessors generic irc.messages irc.messages.base
sequences ;

M: action post-process-irc-message
    [ 7 tail ] change-text
    M\ action post-process-irc-message (call-next-method) ;