diff --git a/examples/basic_operations.clj b/examples/basic_operations.clj deleted file mode 100644 index 5af941b..0000000 --- a/examples/basic_operations.clj +++ /dev/null @@ -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") - ))