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

Kick messages now supported

db4
William Schlieper 2008-08-04 15:44:40 -04:00
parent cbb4a67560
commit e253fe06d4
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -76,6 +76,14 @@ M: quit write-irc
" has left IRC" dark-red write-color " has left IRC" dark-red write-color
trailing>> dot-or-parens dark-red write-color ; trailing>> dot-or-parens dark-red write-color ;
M: kick write-irc
"* " dark-red write-color
[ prefix>> parse-name write ] keep
" has kicked " dark-red write-color
[ who>> write ] keep
" from the channel" dark-red write-color
trailing>> dot-or-parens dark-red write-color ;
: full-mode ( message -- mode ) : full-mode ( message -- mode )
parameters>> rest " " sjoin ; parameters>> rest " " sjoin ;
@ -126,7 +134,7 @@ M: irc-message write-irc
GENERIC: handle-inbox ( tab message -- ) GENERIC: handle-inbox ( tab message -- )
: value-labels ( assoc val -- seq ) : value-labels ( assoc val -- seq )
'[ nip , = ] assoc-filter keys [ string<=> ] sort [ <label> ] map ; '[ nip , = ] assoc-filter keys sort-strings [ <label> ] map ;
: add-gadget-color ( pack seq color -- pack ) : add-gadget-color ( pack seq color -- pack )
'[ , >>color add-gadget ] each ; '[ , >>color add-gadget ] each ;