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

irc.ui: Fixed inference error, can now display notices

db4
William Schlieper 2008-08-01 18:44:28 -04:00
parent 804a76afc8
commit f40577b4d9
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
extra/irc/ui/ui.factor
View File

@ -39,12 +39,20 @@ TUPLE: irc-tab < frame listener client userlist ;
GENERIC: write-irc ( irc-message -- )
M: ping write-irc
drop "* Ping" blue write-color ;
M: privmsg write-irc
"<" blue write-color
[ prefix>> parse-name write ] keep
"> " blue write-color
trailing>> write ;
M: notice write-irc
[ type>> blue write-color ] keep
": " blue write-color
trailing>> write ;
TUPLE: own-message message nick timestamp ;
: <own-message> ( message nick -- own-message )
@ -116,7 +124,7 @@ M: irc-message write-irc
GENERIC: handle-inbox ( tab message -- )
: filter-participants ( pack alist val color -- )
: filter-participants ( pack alist val color -- pack )
'[ , = [ <label> , >>color add-gadget ] [ drop ] if ] assoc-each ;
: update-participants ( tab -- )
@ -124,7 +132,7 @@ GENERIC: handle-inbox ( tab message -- )
[ listener>> participants>> ] bi
[ +operator+ green filter-participants ]
[ +voice+ blue filter-participants ]
[ +normal+ black filter-participants ] 2tri ;
[ +normal+ black filter-participants ] tri drop ;
M: participant-changed handle-inbox
drop update-participants ;