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

hacker-news: fix typo with descendants. use unix-time>relative-time

db4
Doug Coleman 2015-07-30 09:10:48 -07:00
parent 3281541d85
commit 465dc8d231
1 changed files with 2 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -57,14 +57,9 @@ 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 ]
[ "time" of [ " " write-text unix-time>relative-time write-text ] when* ]
[
"time" of [
" " write-text now timestamp>unix-time
swap - relative-time write-text
] when*
]
[
dup "decendants" of [
dup "descendants" of [
" | " write-text
[ "descendants" of [ "discuss" ] [ "%d comments" sprintf ] if-zero ]
[ post>comments-url ] bi write-link