 io.styles json.reader kernel make math sequences ui urls ;
 
 IN: hacker-news
+
+CONSTANT: christmas-red HEXCOLOR: bc2c21
+CONSTANT: christmas-green HEXCOLOR: 376627
 
 <PRIVATE
 : hacker-news-ids ( endpoint -- ids )

PRIVATE>

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

            ] if nl nl
        ]
    } cleave ;

: banner. ( str -- )
    "http://news.ycombinator.com" >url presented associate
