diff --git a/extra/irc/ui/ui.factor b/extra/irc/ui/ui.factor index 0ceeed1d35..662fca6d79 100755 --- a/extra/irc/ui/ui.factor +++ b/extra/irc/ui/ui.factor @@ -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 ; : ( 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 ) '[ , = [