   (def in (ByteArrayInputStream. (.toByteArray out)))
   (def r (reader in :json {:handlers ext-read-handlers}))
   (read r)
+
+  ;; write and read handler maps
+
+  (def custom-write-handler-map (write-handler-map ext-write-handlers))
+  (def custom-read-handler-map (read-handler-map ext-read-handlers))
+
+  (def out (ByteArrayOutputStream. 2000))
+  (def w (writer out :json {:handlers custom-write-handler-map}))
+
+  (write w (Point. 10 20))
+
+  (def in (ByteArrayInputStream. (.toByteArray out)))
+  (def r (reader in :json {:handlers custom-read-handler-map}))
+  (read r)
   )


  (def w (writer out :json))
  (def w (writer out :json-verbose))

  (def w (writer out :msgpack))

  (write w "foo")

          {}
          types))

(defn read-handler-map
  [custom-handlers]
  (TransitFactory/readHandlerMap custom-handlers))

(defn write-handler-map
  [custom-handlers]
  (TransitFactory/writeHandlerMap custom-handlers))

(comment

  (require 'cognitect.transit)
