     foreground associate format ;
 : dark-red T{ rgba f 0.5 0.0 0.0 1 } ;
 : dark-green T{ rgba f 0.0 0.5 0.0 1 } ;
+: dark-blue T{ rgba f 0.0 0.0 0.5 1 } ;
 
 : dot-or-parens ( string -- string )
     [ "." ]

    drop "* Ping" blue write-color ;

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

M: notice write-irc
    [ type>> blue write-color ] keep
    ": " blue write-color
    trailing>> write ;

TUPLE: own-message message nick timestamp ;

    drop ;

M: irc-message write-irc
    "UNIMPLEMENTED" write
    [ class pprint ] keep
    ": " write
    line>> dark-blue write-color ;

GENERIC: time-happened ( message -- timestamp )

