     drop "* Ping" blue write-color ;
 
 M: privmsg write-irc
-    "<" blue write-color
-    [ irc-message-sender write ] keep
-    "> " blue write-color
+    "<" dark-blue write-color
+    [ irc-message-sender write ] keep
+    "> " dark-blue write-color
     trailing>> write ;
 
 M: notice write-irc
-    [ type>> blue write-color ] keep
-    ": " blue write-color
+    [ type>> dark-blue write-color ] keep
+    ": " dark-blue write-color
     trailing>> write ;
 
 TUPLE: own-message message nick timestamp ;

       ui.gadgets.tabs ui.gadgets.grids ui.gadgets.packs ui.gadgets.labels
       io io.styles namespaces calendar calendar.format models continuations
       irc.client irc.client.private irc.messages
       irc.ui.commandparser irc.ui.load vocabs.loader ;

RENAME: join sequences => sjoin


    now own-message boa ;

M: own-message write-irc
    "<" dark-blue write-color
    [ nick>> bold font-style associate format ] keep
    "> " dark-blue write-color
    message>> write ;

M: join write-irc
