86 lines
2.6 KiB
Factor
86 lines
2.6 KiB
Factor
! Copyright (C) 2012 Doug Coleman.
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
|
|
USING: accessors assocs calendar calendar.elapsed
|
|
colors.constants colors.hex combinators concurrency.combinators
|
|
formatting fry hashtables http.client io io.styles json.reader
|
|
kernel make math math.parser sequences ui urls ;
|
|
|
|
IN: hacker-news
|
|
|
|
<PRIVATE
|
|
|
|
: hacker-news-recent-ids ( -- seq )
|
|
"https://hacker-news.firebaseio.com/v0/topstories.json?print=pretty"
|
|
http-get nip json> ;
|
|
|
|
: hacker-news-id>json-url ( n -- url )
|
|
number>string
|
|
"https://hacker-news.firebaseio.com/v0/item/" ".json?print=pretty" surround ;
|
|
|
|
: hacker-news-items ( seq -- seq' )
|
|
[ hacker-news-id>json-url http-get nip json> ] parallel-map ;
|
|
|
|
: hacker-news-recent-items ( n -- seq )
|
|
[ hacker-news-recent-ids ] dip head hacker-news-items ;
|
|
|
|
: write-title ( title url -- )
|
|
'[
|
|
_ presented ,,
|
|
ui-running? COLOR: black COLOR: white ? foreground ,,
|
|
] H{ } make format ;
|
|
|
|
: write-link ( title url -- )
|
|
'[
|
|
_ presented ,,
|
|
HEXCOLOR: 888888 foreground ,,
|
|
] H{ } make format ;
|
|
|
|
: write-text ( str -- )
|
|
H{ { foreground HEXCOLOR: 888888 } } format ;
|
|
|
|
: post>user-url ( post -- user-url )
|
|
"by" of "http://news.ycombinator.com/user?id=" prepend >url ;
|
|
|
|
: post>comments-url ( post -- user-url )
|
|
"id" of "http://news.ycombinator.com/item?id=%d" sprintf >url ;
|
|
|
|
! Api is funky, gives id=0 and /comment/2342342 for self-post ads
|
|
: post>url ( post -- url )
|
|
dup "url" of "self" = [ post>comments-url ] [ "url" of >url ] if ;
|
|
|
|
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 ]
|
|
[ dup "by" of [ " by " write-text [ "by" of ] [ post>user-url ] bi write-link ] [ drop ] if ]
|
|
[ "time" of [ " " write-text unix-time>timestamp relative-time write-text ] when* ]
|
|
[
|
|
dup "descendants" of [
|
|
" | " write-text
|
|
[ "descendants" of [ "discuss" ] [ "%d comments" sprintf ] if-zero ]
|
|
[ post>comments-url ] bi write-link
|
|
] [
|
|
drop
|
|
] if nl nl
|
|
]
|
|
} cleave ;
|
|
|
|
: banner. ( -- )
|
|
"Hacker News"
|
|
"http://news.ycombinator.com" >url presented associate
|
|
H{
|
|
{ font-size 20 }
|
|
{ font-style bold }
|
|
{ background HEXCOLOR: ff6600 }
|
|
{ foreground COLOR: black }
|
|
} assoc-union format nl ;
|
|
|
|
: hacker-news. ( -- )
|
|
30 hacker-news-recent-items
|
|
banner.
|
|
[ 1 + post. ] each-index ;
|