reddit: use calendar.elapsed for relative-time.

db4
John Benediktsson 2015-07-30 08:54:02 -07:00
parent 107de1d36e
commit 8ea621e090
1 changed files with 6 additions and 5 deletions

View File

@ -1,9 +1,10 @@
! Copyright (C) 2011-2012 John Benediktsson
! See http://factorcode.org/license.txt for BSD license
USING: accessors assocs calendar colors.constants colors.hex
combinators formatting fry http.client io io.styles json
json.reader kernel make math math.statistics sequences urls ;
USING: accessors assocs calendar calendar.elapsed
colors.constants colors.hex combinators formatting fry
http.client io io.styles json json.reader kernel make math
math.statistics sequences urls ;
IN: reddit
@ -104,8 +105,8 @@ PRIVATE>
[ story>comments-url ] bi write-link
]
[
"created_utc" of unix-time>timestamp now swap time-
duration>hours ", posted %d hours ago" sprintf write-text
"created_utc" of now timestamp>unix-time swap -
relative-time ", posted " write-text write-text
]
[ " by " write-text [ "author" of ] [ story>author-url ] bi write-link nl nl ]
} cleave