steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

irc.logbot.log-line: print the user prefix.

locals-and-roots
Doug Coleman 2016-05-09 15:43:20 -07:00
parent d3570f2b22
commit 3f27df6d0a
1 changed files with 33 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

43
extra/irc/logbot/log-line/log-line.factor
View File

@ -1,6 +1,7 @@
! Copyright (C) 2009 Bruno Deferrari. ! Copyright (C) 2009 Bruno Deferrari.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors irc.messages irc.messages.base kernel make ; USING: accessors irc.messages irc.messages.base kernel make
combinators ;
EXCLUDE: sequences => join ; EXCLUDE: sequences => join ;
IN: irc.logbot.log-line IN: irc.logbot.log-line
@ -20,24 +21,46 @@ M: action >log-line
M: privmsg >log-line M: privmsg >log-line
[ "<" % dup sender>> % "> " % text>> % ] "" make ; [ "<" % dup sender>> % "> " % text>> % ] "" make ;
: prefix% ( string -- )
" [" % % "]" % ;
M: join >log-line M: join >log-line
[ "* " % sender>> % " has joined the channel." % ] "" make ; [
[ "* " % sender>> % ]
[ prefix>> prefix% " has joined the channel." % ] bi
] "" make ;
M: part >log-line M: part >log-line
[ "* " % dup sender>> % " has left the channel" % [
comment>> dot-or-parens % ] "" make ; [ "* " % sender>> % ]
[ prefix>> prefix% " has left the channel" % ]
[ comment>> dot-or-parens % ] tri
] "" make ;
M: quit >log-line M: quit >log-line
[ "* " % dup sender>> % " has quit" % [
comment>> dot-or-parens % ] "" make ; [ "* " % sender>> % ]
[ prefix>> prefix% " has quit" % ]
[ comment>> dot-or-parens % ] tri
] "" make ;
M: kick >log-line M: kick >log-line
[ "* " % dup sender>> % " has kicked " % dup user>> % [
" from the channel" % comment>> dot-or-parens % ] "" make ; {
[ "* " % sender>> % ]
[ " has kicked " % user>> % ]
[ " from the channel" % comment>> dot-or-parens % ]
} cleave
] "" make ;
M: participant-mode >log-line M: participant-mode >log-line
[ "* " % dup sender>> % " has set mode " % dup mode>> % [
" to " % parameter>> % ] "" make ; {
[ "* " % sender>> % ]
[ " has set mode " % mode>> % ]
[ " to " % parameter>> % ]
} cleave
] "" make ;
M: nick >log-line M: nick >log-line
[ "* " % dup sender>> % " is now known as " % nickname>> % ] "" make ; [ "* " % dup sender>> % " is now known as " % nickname>> % ] "" make ;