Kick messages now supported

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