Merge pull request #80 from spradnyesh/master

upgraded monger from 1.7.0 to 2.0.0

src/leiningen/new/luminus.clj

@@ -110,7 +110,7 @@
 
 (defmethod post-process :+mongodb [_ project-file]
   (add-mongo-dependencies project-file
-                          ['com.novemberain/monger "1.7.0"])
+                          ['com.novemberain/monger "2.0.0"])
   (let [docs-filename (str *name* "/resources/public/md/docs.md")]
     (spit docs-filename (str (*render* "dbs/mongo_instructions.html") (slurp docs-filename)))))
 

src/leiningen/new/luminus/dbs/mongodb.clj

@@ -5,17 +5,18 @@
 
 ;; Tries to get the Mongo URI from the environment variable
 ;; MONGOHQ_URL, otherwise default it to localhost
-(let [uri (get (System/getenv) "MONGOHQ_URL" "mongodb://127.0.0.1/{{name}}")]
-  (mg/connect-via-uri! uri))
+(defonce db (let [uri (get (System/getenv) "MONGOHQ_URL" "mongodb://127.0.0.1/{{name}}")
+                  {:keys [conn db]} (mg/connect-via-uri uri)]
+              db))
 
 (defn create-user [user]
-  (mc/insert "users" user))
+  (mc/insert db "users" user))
 
 (defn update-user [id first-name last-name email]
-  (mc/update "users" {:id id}
+  (mc/update db "users" {:id id}
              {$set {:first_name first-name
                     :last_name last-name
                     :email email}}))
 
 (defn get-user [id]
-  (mc/find-one-as-map "users" {:id id}))
+  (mc/find-one-as-map db "users" {:id id}))