ctcp

Vocabulary

irc.messages

Definition

USING: accessors combinators.short-circuit kernel math sequences
;

IN: irc.messages

PREDICATE: ctcp < privmsg
    trailing>> { [ length 1 > ] [ first 1 = ] [ last 1 = ] } 1&&
    ;

Methods

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

M: ctcp >log-line
    [ "CTCP: " % dup sender>> % " " % text>> % ] "" make ;


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

M: ctcp post-process-irc-message
    [ rest but-last ] change-text drop ;