     ] H{ } make format ;
 
 : write-text ( str -- )
-    H{ { foreground COLOR: #888888 } } format ;
+    text-color foreground associate format ;
 
 : post>user-url ( post -- user-url )
     "by" of "http://news.ycombinator.com/user?id=" prepend >url ;

: write-title ( title url -- )
    '[
        _ presented ,,
        ui-running? COLOR: black COLOR: white ? foreground ,,
    ] H{ } make format ;

: write-link ( title url -- )

USING: accessors assocs calendar calendar.format
calendar.holidays.us colors combinators concurrency.combinators
formatting hashtables http.client io io.styles json.reader
kernel make math sequences ui ui.theme urls ;

IN: hacker-news

