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

Merge branch 'master' of github.com:michaelklishin/monger

Browse source
This commit is contained in:
Michael S. Klishin 2012-02-28 20:12:06 +04:00
commit d768b843a9
2 changed files with 15 additions and 21 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

33
examples/basic_operations.clj
View file

@ -4,10 +4,6 @@
(:import (com.mongodb Mongo DB DBObject)) (:import (com.mongodb Mongo DB DBObject))
(:use [clojure.tools.cli])) (:use [clojure.tools.cli]))
;; Make mongodb-settings accessible from the monger.core namespace
(monger.util/with-ns 'monger.core
(def ^:dynamic *mongodb-settings*))
(defn fix-paul-maccartneys-name (defn fix-paul-maccartneys-name
"Fix Paul McCartney's name" "Fix Paul McCartney's name"
[] []
@ -20,19 +16,12 @@
(let [ (let [
args *command-line-args* args *command-line-args*
parsed-args (cli args parsed-args (cli args
(optional ["--port" "Mongodb port" :default 27017]) ["--port" "Mongodb port" :default 27017]
(optional ["--host" "Mongodb host" :default "localhost"]) ["--host" "Mongodb host" :default "127.0.0.1"]
(optional ["--db-name" :default "monger-example"])) ] ["--db-name" :default "monger-example"]) ]
;; Define Mongodb connection settings (monger.core/connect! (first parsed-args))
(monger.core/set-db! (monger.core/get-db "monger-example"))
(def ^:dynamic *mongodb-settings* parsed-args)
(monger.util/with-ns 'monger.core
;; Establish Mongodb connection
(defonce ^:dynamic *mongodb-connection* (monger.core/connect *mongodb-settings*))
;; Connect to the database
(defonce ^:dynamic *mongodb-database* (monger.core/get-db "monger-example")))
(println "Does people connection exist: " (monger.collection/exists? "people")) (println "Does people connection exist: " (monger.collection/exists? "people"))
@ -52,14 +41,18 @@
;; Fix a typo in the inserted record ;; Fix a typo in the inserted record
(monger.collection/update "people" { :first_name "Raul" } { "$set" { :first_name "Paul" } }) (monger.collection/update "people" { :first_name "Raul" } { "$set" { :first_name "Paul" } })
(println (monger.collection/find-one "people" { :first_name "Paul" })) (println (monger.collection/find-one-as-map "people" { :first_name "Paul" }))
;; Now, let's add the index to that record ;; Now, let's add the index to that record
(monger.collection/update "people" { :first_name "Paul" } { "$push" { :years_on_stage 1 } }) (monger.collection/update "people" { :first_name "Paul" } { "$set" { :years_on_stage 1 } })
(println (monger.collection/find-one-as-map "people" { :first_name "Paul" }))
;; Increment record 45 times ;; Increment record 45 times
(dotimes [n 45] (dotimes [n 45]
(monger.collection/update "people" { :first_name "Paul" } { "$inc" { :years_on_stage 1 } })) (monger.collection/update "people" { :first_name "Paul" } { "$inc" { :years_on_stage 1 } })
(println (monger.collection/find-one-as-map "people" { :first_name "Paul" }))
)
;; Remove years_on_stage field ;; Remove years_on_stage field
(monger.collection/update "people" { :first_name "Paul" } { "$unset" { :years_on_stage 1} }) (monger.collection/update "people" { :first_name "Paul" } { "$unset" { :years_on_stage 1} })
@ -72,7 +65,7 @@
;; Save can act both like insert and update ;; Save can act both like insert and update
(def ian_gillian (def ian_gillian
(monger.convertion/to-db-object (monger.conversion/to-db-object
{ :first_name "Ian" :last_name "Gillan" })) { :first_name "Ian" :last_name "Gillan" }))
;; Performs insert ;; Performs insert

3
project.clj
View file

@ -19,7 +19,8 @@
} }
:dev-dependencies [[org.clojure/data.json "0.1.2" :exclusions [org.clojure/clojure]] :dev-dependencies [[org.clojure/data.json "0.1.2" :exclusions [org.clojure/clojure]]
[clj-time "0.3.6" :exclusions [org.clojure/clojure]] [clj-time "0.3.6" :exclusions [org.clojure/clojure]]
[codox "0.3.4" :exclusions [org.clojure/clojure]]] [codox "0.3.4" :exclusions [org.clojure/clojure]]
[org.clojure/tools.cli "0.2.1" :exclusions [org.clojure/clojure]]]
:dev-resources-path "test/resources" :dev-resources-path "test/resources"
:warn-on-reflection true :warn-on-reflection true
:codox { :exclude [monger.internal.pagination] } :codox { :exclude [monger.internal.pagination] }