irc.logbot: Format for actions

db4
Bruno Deferrari 2009-04-16 22:19:45 -03:00
parent 460de5bbef
commit 7503c98768
1 changed files with 6 additions and 0 deletions

View File

@ -11,6 +11,12 @@ GENERIC: >log-line ( object -- line )
M: irc-message >log-line line>> ;
M: ctcp >log-line
[ "CTCP: " % dup sender>> % " " % text>> % ] "" make ;
M: action >log-line
[ "* " % dup sender>> % " " % text>> % ] "" make ;
M: privmsg >log-line
[ "<" % dup sender>> % "> " % text>> % ] "" make ;