From f8de73478e87d2e7b2e0d6ceb2a15f8bf8efa011 Mon Sep 17 00:00:00 2001 From: gered Date: Sun, 6 Apr 2014 13:17:39 -0400 Subject: [PATCH] add general couchdb functions --- src/toascii/models/db.clj | 26 ++++++++++++++++++++++++++ 1 file changed, 26 insertions(+) create mode 100644 src/toascii/models/db.clj diff --git a/src/toascii/models/db.clj b/src/toascii/models/db.clj new file mode 100644 index 0000000..bc31fcb --- /dev/null +++ b/src/toascii/models/db.clj @@ -0,0 +1,26 @@ +(ns toascii.models.db + (:require [com.ashafa.clutch :as couch] + [cemerick.url :as url] + [toascii.config :refer [config-val]])) + +(defn db-url [db-name] + (let [db-config (config-val :database) + url (:url db-config) + user (:user db-config) + pass (:pass db-config)] + (if (and user pass) + (assoc (url/url url db-name) + :username user + :password pass) + (url/url url db-name)))) + +(defn db-library [] + (db-url "ascii_library")) + +(defn check-status [] + (as-> {} x + (assoc x (str (db-library)) (couch/database-info-with-db (db-library))) + (filter #(nil? (second %)) x) + (map first x) + (seq x))) +