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

irc.client: Forward messages before processing for now. Change text for 

some log lines
db4
Bruno Deferrari 2009-04-14 23:36:17 -03:00
parent dbb35d3500
commit 8f287b2c26
2 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
extra/irc/client/internals/internals.factor
View File

@ -112,9 +112,10 @@ M: f handle-input handle-disconnect ;
! Processing loops ! Processing loops
! FIXME: should get forward channels, process the message, and then forward
: in-multiplexer-loop ( -- ? ) : in-multiplexer-loop ( -- ? )
irc> in-messages>> mailbox-get irc> in-messages>> mailbox-get
[ process-message ] [ forward-message ] [ irc-end? not ] tri ; [ forward-message ] [ process-message ] [ irc-end? not ] tri ;
: strings>privmsg ( name string -- privmsg ) : strings>privmsg ( name string -- privmsg )
" :" prepend append "PRIVMSG " prepend string>irc-message ; " :" prepend append "PRIVMSG " prepend string>irc-message ;

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

@ -15,14 +15,14 @@ M: privmsg >log-line
[ "<" % dup sender>> % "> " % text>> % ] "" make ; [ "<" % dup sender>> % "> " % text>> % ] "" make ;
M: join >log-line M: join >log-line
[ "* " % sender>> % " has entered the channel." % ] "" make ; [ "* " % sender>> % " has joined the channel." % ] "" make ;
M: part >log-line M: part >log-line
[ "* " % dup sender>> % " has left the channel" % [ "* " % dup sender>> % " has left the channel" %
comment>> dot-or-parens % ] "" make ; comment>> dot-or-parens % ] "" make ;
M: quit >log-line M: quit >log-line
[ "* " % dup sender>> % " has left IRC" % [ "* " % dup sender>> % " has quit" %
comment>> dot-or-parens % ] "" make ; comment>> dot-or-parens % ] "" make ;
M: kick >log-line M: kick >log-line