gered/blarg
Archived
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

refactor touch-databases a bit, add code to create files db design doc

Browse source
This commit is contained in:
Gered 2013-05-20 20:12:30 -04:00
parent aa54248ab6
commit e398b337d4
1 changed files with 12 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
src/blarg/models/db.clj
View file

@ -29,14 +29,21 @@
[& body]
`(first (->view-values ~@body)))
(defn touch-design-doc
"verifies that a design doc is present in the given db, creating it if
it is not there"
[db design-doc-id doc-js-path]
(couch/with-db db
(let [doc (couch/get-document design-doc-id)]
(if (nil? doc)
(couch/put-document (load-json doc-js-path))))))
(defn touch-databases
"verifies that the required databases are present, creating them if they
are not there (including the views)."
[]
(couch/get-database users)
(couch/get-database files)
(when (couch/get-database files)
(touch-design-doc posts "_design/files" "couchdb/design_docs/files.js"))
(when (couch/get-database posts)
(couch/with-db posts
(let [doc (couch/get-document "_design/posts")]
(if (nil? doc)
(couch/put-document (load-json "couchdb/design_docs/posts.js")))))))
(touch-design-doc posts "_design/posts" "couchdb/design_docs/posts.js")))