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

Remove examples/*, with http://clojuremongodb.info they are no longer necessary (at least in this repository)

Browse source
This commit is contained in:
Michael S. Klishin 2012-06-08 22:18:47 +04:00
parent d12f33e1e8
commit bab15c2ca8
1 changed files with 0 additions and 82 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

82
examples/basic_operations.clj
View file

@ -1,82 +0,0 @@
(ns examples.basic_operations
(:gen-class)
(:require [monger core collection util])
(:import (com.mongodb Mongo DB DBObject))
(:use [clojure.tools.cli]))
(defn fix-paul-maccartneys-name
"Fix Paul McCartney's name"
[]
(let [ paul_mccartney (monger.collection/find-one "people" { :first_name "Raul" }) ]
))
(do
(let [
args *command-line-args*
parsed-args (cli args
["--port" "Mongodb port" :default 27017]
["--host" "Mongodb host" :default "127.0.0.1"]
["--db-name" :default "monger-example"]) ]
(monger.core/connect! (first parsed-args))
(monger.core/set-db! (monger.core/get-db "monger-example"))
(println "Does people connection exist: " (monger.collection/exists? "people"))
;; Insert a record to people collection
(monger.collection/insert "people" { :first_name "John" :last_name "Lennon" })
;; Count an amount of records just inserted
(println "People collection is: " (monger.collection/count "people"))
;; Insert several records
(monger.collection/insert-batch "people" [{ :first_name "Ringo" :last_name "Starr" }
{ :first_name "Raul" :last_name "McCartney" }
{ :first_name "George" :last_name "Harrison" } ])
(println "People collection is: " (monger.collection/count "people"))
;; Fix a typo in the inserted record
(monger.collection/update "people" { :first_name "Raul" } { "$set" { :first_name "Paul" } })
(println (monger.collection/find-one-as-map "people" { :first_name "Paul" }))
;; Now, let's add the index to that record
(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
(dotimes [n 45]
(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
(monger.collection/update "people" { :first_name "Paul" } { "$unset" { :years_on_stage 1} })
;; Insert the record to the data set if it wasn't there yet
(monger.collection/update "people" { :first_name "Yoko" } { :first_name "Yoko" :last_name "Ono" } :upsert true)
;; Update multiple records
(monger.collection/update "people" { } { "$set" { :band "The Beatles" }} :multi true)
;; Save can act both like insert and update
(def ian_gillian
(monger.conversion/to-db-object
{ :first_name "Ian" :last_name "Gillan" }))
;; Performs insert
(monger.collection/save "people" ian_gillian)
;; Performs update
(monger.collection/save "people"
{ :_id (monger.util/get-id ian_gillian)
:first_name "Ian"
:last_name "Gillan" :band "Deep Purple" })
;; Remove people collection
(monger.collection/drop "people")
))