irc.ui: Removed reference to irc.messages.private

diff --git a/extra/irc/ui/ui.factor b/extra/irc/ui/ui.factor
index 4757e366607e86f0e5bde0d9018d1036264abb4a..f144674ce931e772ba07d0f9bbd30a2524101305 100755 (executable)
--- a/extra/irc/ui/ui.factor
+++ b/extra/irc/ui/ui.factor
@@ -8,7 +8,7 @@ USING: accessors kernel threads combinators concurrency.mailboxes
        ui.gadgets.scrollers ui.commands ui.gadgets.frames ui.gestures\r
        ui.gadgets.tabs ui.gadgets.grids ui.gadgets.packs ui.gadgets.labels\r
        io io.styles namespaces calendar calendar.format models continuations\r
-       irc.client irc.client.private irc.messages irc.messages.private\r
+       irc.client irc.client.private irc.messages\r
        irc.ui.commandparser irc.ui.load ;\r
 \r
 RENAME: join sequences => sjoin\r
@@ -39,7 +39,7 @@ M: ping write-irc
 \r
 M: privmsg write-irc\r
     "<" blue write-color\r
-    [ prefix>> parse-name write ] keep\r
+    [ irc-message-sender write ] keep\r
     "> " blue write-color\r
     trailing>> write ;\r
 \r
@@ -61,24 +61,24 @@ M: own-message write-irc
 \r
 M: join write-irc\r
     "* " dark-green write-color\r
-    prefix>> parse-name write\r
+    irc-message-sender write\r
     " has entered the channel." dark-green write-color ;\r
 \r
 M: part write-irc\r
     "* " dark-red write-color\r
-    [ prefix>> parse-name write ] keep\r
+    [ irc-message-sender write ] keep\r
     " has left the channel" dark-red write-color\r
     trailing>> dot-or-parens dark-red write-color ;\r
 \r
 M: quit write-irc\r
     "* " dark-red write-color\r
-    [ prefix>> parse-name write ] keep\r
+    [ irc-message-sender write ] keep\r
     " 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
+    [ irc-message-sender write ] keep\r
     " has kicked " dark-red write-color\r
     [ who>> write ] keep\r
     " from the channel" dark-red write-color\r
@@ -89,7 +89,7 @@ M: kick write-irc
 \r
 M: mode write-irc\r
     "* " blue write-color\r
-    [ prefix>> parse-name write ] keep\r
+    [ irc-message-sender write ] keep\r
     " has applied mode " blue write-color\r
     [ full-mode write ] keep\r
     " to " blue write-color\r
@@ -97,7 +97,7 @@ M: mode write-irc
 \r
 M: nick write-irc\r
     "* " blue write-color\r
-    [ prefix>> parse-name write ] keep\r
+    [ irc-message-sender write ] keep\r
     " is now known as " blue write-color\r
     trailing>> write ;\r
 \r