luciano/monger
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add monger.core/with-connection and monger.core/with-db

Browse source
This commit is contained in:
Michael S. Klishin 2011-09-19 12:18:07 +04:00
parent 5e12f9aec2
commit 2673c5bc0f
1 changed files with 12 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
src/monger/core.clj
View file

@ -62,6 +62,18 @@
(.getDB connection name))) (.getDB connection name)))
(defmacro with-connection
[conn & body]
`(binding [*mongodb-connection* conn]
(do ~@body)))
(defmacro with-db
[db & body]
`(binding [*mongodb-database* db]
(do ~@body)))
(defn connect! (defn connect!
^Mongo [& args] ^Mongo [& args]
(def ^:dynamic *mongodb-connection* (apply connect args))) (def ^:dynamic *mongodb-connection* (apply connect args)))