steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

hacker-news: add relative timestamp on posts.

db4
John Benediktsson 2015-07-30 08:46:44 -07:00
parent 64d8c0ccc0
commit 107de1d36e
1 changed files with 12 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
extra/hacker-news/hacker-news.factor
View File

@ -1,9 +1,11 @@
! Copyright (C) 2012 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license.
USING: accessors assocs classes.tuple colors.constants
colors.hex combinators concurrency.combinators formatting fry
hashtables http.client io io.styles json json.reader kernel make
math math.parser sequences splitting ui urls ;
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
@ -55,7 +57,12 @@ PRIVATE>
[ 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 ]
! [ dup postedAgo>> [ " " write-text postedAgo>> write-text ] [ drop ] if ]
[
"time" of [
" " write-text now timestamp>unix-time
swap - relative-time write-text
] when*
]
[
dup "decendants" of [
" | " write-text