Custom record reader handler request about fress HOT 7 CLOSED

  (defrecord IncognitoTaggedLiteral [tag value])

  (defn incognito-write-handlers [write-handlers]
    {"record" (fn [w rec]
                (let [{:keys [tag] :as r} (if (isa? (type rec) incognito.base.IncognitoTaggedLiteral)
                                            (into {} rec)
                                            (incognito-writer @write-handlers rec))]
                  (write-tag w "record" 2)
                  (write-object w (str tag))
                  (write-tag w "map" 1)
                  (beginClosedList w)
                  (doseq [[field value] r]
                    (write-object w field true)
                    (write-object w value))
                  (endList w)))})

  (defn incognito-reader [read-handlers m]
    (if (read-handlers (:tag m))
      ((read-handlers (:tag m)) (:value m))
      (map->IncognitoTaggedLiteral m)))

  (defn incognito-read-handlers [read-handlers]
    {"record" (fn [rdr tag _]
                (let [tag   (read-object rdr)
                      value (read-object rdr)]
                  (incognito-reader @read-handlers
                                    {:tag tag :value val})))})

  (defrecord SomeRecord [f1 f2])
  (def rec (SomeRecord. "field1" "field2"))
  (def buf (fress.api/byte-stream))
  (def writer (fress.api/create-writer buf :handlers (incognito-write-handlers (atom {'incognito.fressian.SomeRecord (fn [foo] (println "foos") (assoc foo :c "donkey"))}))))
  (fress.api/write-object writer rec)
  (fress.api/read buf :handlers (incognito-read-handlers (atom {})))
  ;read returns  => #fress.reader.TaggedObject{:tag "record", :value #js ["incognito.fressian/SomeRecord" {:value {:f1 "field1", :c "donkey", :f2 "field2"}, :tag incognito.fressian/SomeRecord}]}


  ;it should return => #incognito.base.IncognitoTaggedLiteral{:tag incognito.fressian/SomeRecord, :value {:f1 "field1", :c "donkey", :f2 "field2"}}