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

add touch-databases to ensure db structure is present

Browse source
This commit is contained in:
Gered 2013-05-20 20:07:11 -04:00
parent 88ce5616e0
commit 78170ceb10
2 changed files with 14 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

0
resources/couchdb/design docs/posts.js → resources/couchdb/design_docs/posts.js
View file

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

@ -1,4 +1,5 @@
(ns blarg.models.db (ns blarg.models.db
(:use [blarg.util])
(:require [blarg.config :as config] (:require [blarg.config :as config]
[com.ashafa.clutch :as couch])) [com.ashafa.clutch :as couch]))
@ -27,3 +28,15 @@
"returns only the first value from the sequence returned by running a view" "returns only the first value from the sequence returned by running a view"
[& body] [& body]
`(first (->view-values ~@body))) `(first (->view-values ~@body)))
(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 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")))))))