moves service specific code to their own namespace

src/claude/core.clj

@@ -1,29 +1,30 @@
 (ns claude.core
   (:use [clojure.data.json :only [read-json]]))
 
+(defn get-vcap-env []
+  (System/getenv "VCAP_SERVICES"))
+
+(defn get-vcap-services []
+  (if-let [services (get-vcap-env)]
+    (read-json services false)))
+
 (defn cloudfoundry? []
-  (not (nil? (System/getenv "VCAP_SERVICES"))))
+  (not (nil? (get-vcap-env))))
 
 (defn service-config [label key]
-  (if-let [services (System/getenv "VCAP_SERVICES")]
-    (let [services-dict (read-json services false)]
+    (let [services-dict (get-vcap-services)]
       (-> services-dict
           (get label)
           first ;; maybe in the future allow to use multiple services
           (get "credentials")
-          (get key)))))
-
-(defn mongo-config [key]
-  (service-config "mongodb-2.0" key))
-
-(defn rabbit-config [key]
-  (service-config "rabbitmq-2.4" key))
+          (get key))))
 
-(defn redis-config [key]
-  (service-config "redis-2.2" key))
+(defn services-labels []
+  (keys (get-vcap-services)))
 
-(defn mongo-url []
-  (mongo-config "url"))
+(defmacro service-value [service key]
+  `(defn ~(symbol key) [] (service-config ~service ~key)))
 
-(defn rabbit-url []
-  (rabbit-config "url"))
+(defmacro expose-service [service keys]
+  `(do
+     ~@(map #(list 'service-value service %) keys)))