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

: hacker-news-job-stories ( n -- seq )
    "jobstories" hacker-news-items ;

: write-title ( title url -- )
    '[
        _ presented ,,

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 )
