ClojureScript (cljs) Transit Day.js

transit_format.cljs

(ns app.transit-format
  (:require ["dayjs" :as dayjs]
            ["dayjs/plugin/duration" :as duration]
            [cognitect.transit :as transit]
            [haslett.format :as fmt]))

;; Extend Day.js with more functionality
(.extend dayjs duration)

(def duration-type
  "Dummy \"duration\" type, because the Day.js lib doesn't provide one."
  (type (dayjs/duration 1)))

(def write-handlers
  {duration-type (transit/write-handler (fn [] "time/duration")
                                        (fn [duration]
                                          (.toISOString duration)))})

(def read-handlers
  {"time/duration" (transit/read-handler #(dayjs/duration %))})

(def custom
  "Read and write data encoded in transit+json."
  (reify fmt/Format
    (read  [_ s] (transit/read (transit/reader :json {:handlers read-handlers}) s))
    (write [_ v] (transit/write (transit/writer :json {:handlers write-handlers}) v))))