clojurescript relative time

gistfile1.txt

#?(:cljs (def relative-time-formatter
           (js/Intl.RelativeTimeFormat. "en" #js{:numeric "auto"})))
(defn timeago [time]
  #?(:clj (str time)
     :cljs (let [seconds-ago (t/seconds (t/between (t/now) time))
                 [divide unit] (condp #(> %1 (abs %2)) seconds-ago
                                 60 [1 "second"]
                                 3600 [60 "minute"]
                                 86400 [3600 "hour"]
                                 [86460 "day"])]
             (.format relative-time-formatter (quot seconds-ago divide) unit))))