 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 urls ;
+kernel make math sequences ui ui.theme urls ;
 
 IN: hacker-news
 

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

: write-link ( title url -- )

    ] H{ } make format ;

: write-text ( str -- )
    text-color foreground associate format ;

: post>user-url ( post -- user-url )
    "by" of "http://news.ycombinator.com/user?id=" prepend >url ;
