From 2673c5bc0f8b94b309a44377620b50f0ad268b49 Mon Sep 17 00:00:00 2001 From: "Michael S. Klishin" Date: Mon, 19 Sep 2011 12:18:07 +0400 Subject: [PATCH] Add monger.core/with-connection and monger.core/with-db --- src/monger/core.clj | 12 ++++++++++++ 1 file changed, 12 insertions(+) diff --git a/src/monger/core.clj b/src/monger/core.clj index 49addc5..a34f93d 100644 --- a/src/monger/core.clj +++ b/src/monger/core.clj @@ -62,6 +62,18 @@ (.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! ^Mongo [& args] (def ^:dynamic *mongodb-connection* (apply connect args)))