 M: privmsg write-irc
     "<" blue write-color
     [ prefix>> prefix>nick write ] keep
-    ">" blue write-color
-    " " write
+    "> " blue write-color
     trailing>> write ;
+
+TUPLE: own-message message nick timestamp ;
+
+: <own-message> ( message nick -- own-message )
+    now own-message boa ;
+
+M: own-message write-irc
+    "<" blue write-color
+    [ nick>> bold font-style associate format ] keep
+    "> " blue write-color
+    message>> write ;
 
 M: join write-irc
     "* " green write-color

       sequences strings hashtables splitting fry assocs hashtables
       ui ui.gadgets.panes ui.gadgets.editors ui.gadgets.scrollers
       ui.commands ui.gadgets.frames ui.gestures ui.gadgets.tabs
       io io.styles namespaces irc.client irc.messages ;

IN: irc.ui


    drop ; ! catch all unimplemented writes, THIS WILL CHANGE    

: print-irc ( irc-message -- )
    [ timestamp>> timestamp>hms write " " write ]
    [ write-irc nl ] bi ;

: send-message ( message listener client -- )
    [ nip profile>> nickname>> <own-message> print-irc ]
    [ drop write-message ] 3bi ;

: display ( stream listener -- )
    '[ , [ [ t ]
