gistfile1.clj

(extend-type ParseObject
  ILookup
  (-lookup [obj key]
    (case key
      :id (.-id obj)
      ;; wrap dates so they're easier to serialize
      :createdAt (js/Date. (.-createdAt obj))
      :updatedAt (js/Date. (.-updatedAt obj))
       (.get obj (name key))))

  IEquiv
  (-equiv [o other] (and (instance? (type o) other) (= (.-id o) (.-id other))))

  IHash
  (-hash [o] (hash (str (.-className o)"-"(.-id o))))

  IEncodeClojure
  (-js->clj [parse-object {:keys [keywordize-keys] :as options}]
    (reduce (fn [m key] (assoc m
                          (if keywordize-keys (keyword key) key)
                          (apply js->clj (.get parse-object key) (flatten (vec options)))))
            {}
            (.keys js/Object (.toJSON parse-object)))))