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

calendar.format: don't need unix-time>relative-time. 

unix-time>timestamp relative-time
db4
John Benediktsson 2015-07-30 10:34:49 -07:00
parent c6fad4aa61
commit 30506cbaee
2 changed files with 1 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
extra/calendar/elapsed/elapsed.factor
View File

@ -55,13 +55,3 @@ M: duration relative-time
M: timestamp relative-time M: timestamp relative-time
now swap time- relative-time ; now swap time- relative-time ;
GENERIC: unix-time>relative-time ( unix-seconds -- string )
M: real unix-time>relative-time
seconds since-1970 unix-time>relative-time ;
M: timestamp unix-time>relative-time
[ now ] dip
time- duration>seconds relative-time ;

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

@ -57,7 +57,7 @@ PRIVATE>
[ post>url host>> " (" ")" surround write-text nl ] [ post>url host>> " (" ")" surround write-text nl ]
[ "score" of " %d points" sprintf write-text ] [ "score" of " %d points" sprintf write-text ]
[ dup "by" of [ " by " write-text [ "by" of ] [ post>user-url ] bi write-link ] [ drop ] if ] [ 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 unix-time>timestamp relative-time write-text ] when* ]
[ [
dup "descendants" of [ dup "descendants" of [
" | " write-text " | " write-text