        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 ;
+       io io.styles namespaces irc.client irc.messages calendar
+       calendar.format ;
 
 IN: irc.ui
 

M: privmsg write-irc
    "<" blue write-color
    [ prefix>> prefix>nick write ] keep
    ">" blue write-color
    " " write
    trailing>> write ;

M: join write-irc
    "* " green write-color

    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 ]
