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

irc.client: Remove prettyprints.

db4
Bruno Deferrari 2008-05-28 22:02:09 -03:00
parent bb38d31922
commit dcf89c0590
1 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
extra/irc/client/client.factor
View File

@ -113,12 +113,10 @@ TUPLE: unhandled < irc-message ;
: irc-message-origin ( irc-message -- name ) : irc-message-origin ( irc-message -- name )
dup name>> irc-client> nick>> name>> = [ sender>> ] [ name>> ] if ; dup name>> irc-client> nick>> name>> = [ sender>> ] [ name>> ] if ;
USE: prettyprint
GENERIC: handle-incoming-irc ( irc-message -- ) GENERIC: handle-incoming-irc ( irc-message -- )
M: irc-message handle-incoming-irc ( irc-message -- ) M: irc-message handle-incoming-irc ( irc-message -- )
. ; drop ;
M: logged-in handle-incoming-irc ( logged-in -- ) M: logged-in handle-incoming-irc ( logged-in -- )
name>> irc-client> nick>> (>>name) ; name>> irc-client> nick>> (>>name) ;
@ -130,8 +128,8 @@ M: nick-in-use handle-incoming-irc ( nick-in-use -- )
name>> "_" append /NICK ; name>> "_" append /NICK ;
M: privmsg handle-incoming-irc ( privmsg -- ) M: privmsg handle-incoming-irc ( privmsg -- )
dup dup . irc-message-origin irc-client> listeners>> at dup irc-message-origin irc-client> listeners>> at
[ in-messages>> mailbox-put ] [ dup "drop" . . drop ] if* ; [ in-messages>> mailbox-put ] [ drop ] if* ;
M: join handle-incoming-irc ( join -- ) M: join handle-incoming-irc ( join -- )
irc-client> join-messages>> mailbox-put ; irc-client> join-messages>> mailbox-put ;