From f40577b4d9cedf8295e9e627751fa9ca46ee6052 Mon Sep 17 00:00:00 2001
From: William Schlieper <schlieper@unc.edu>
Date: Fri, 1 Aug 2008 18:44:28 -0400
Subject: [PATCH] irc.ui: Fixed inference error, can now display notices

---
 extra/irc/ui/ui.factor | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

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 ;
 
 : <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 ;