             ] if nl nl
         ]
     } cleave ;
-
-: background-color ( -- color )
-    now dup christmas-day same-day?
-    HEXCOLOR: bc2c21 HEXCOLOR: ff6600 ? ;
 
 : banner. ( str -- )
     "http://news.ycombinator.com" >url presented associate

io.styles json.reader kernel make math sequences ui urls ;

IN: hacker-news

<PRIVATE
: hacker-news-ids ( endpoint -- ids )

PRIVATE>

: post. ( post index -- )
    write-number
    {
        [ [ "title" of ] [ "url" of ] bi write-title ]
        [ post>url host>> " (" ")" surround write-text nl ]
        [ "score" of "    %d points" sprintf write-text ]
