From 8ea621e090a6ffe42180db01b185b83fc7bb18c3 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Thu, 30 Jul 2015 08:54:02 -0700 Subject: [PATCH] reddit: use calendar.elapsed for relative-time. --- extra/reddit/reddit.factor | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/extra/reddit/reddit.factor b/extra/reddit/reddit.factor index 20f607081c..804e8ed35f 100644 --- a/extra/reddit/reddit.factor +++ b/extra/reddit/reddit.factor @@ -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