diff --git a/src/data_readers.clj b/src/data_readers.clj new file mode 100644 index 0000000..f1e2569 --- /dev/null +++ b/src/data_readers.clj @@ -0,0 +1 @@ +{mongo/id mongo-driver-3.data-literals/mongo-id} \ No newline at end of file diff --git a/src/mongo_driver_3/data_literals.clj b/src/mongo_driver_3/data_literals.clj new file mode 100644 index 0000000..a28b4ae --- /dev/null +++ b/src/mongo_driver_3/data_literals.clj @@ -0,0 +1,10 @@ +(ns mongo-driver-3.data-literals + (:import (org.bson.types ObjectId) + (java.io Writer))) + + +(defmethod print-method ObjectId [c ^Writer w] (.write w ^String (str "#mongo/id \"" (.toHexString c) "\""))) +(defmethod print-dup ObjectId [c ^Writer w] (.write w ^String (str "#mongo/id \"" (.toHexString c) "\""))) + +(defn mongo-id [o] + (ObjectId. o))