 (ns qcast.server
   (:gen-class)
-  (:require [compojure.core            :refer [defroutes routes GET]]
+  (:require [clojure.string            :as s]
+            [compojure.core            :refer [defroutes routes GET]]
             [compojure.handler         :as handler]
             [compojure.route           :as route]
             [config]

    (-> api-routes
        wrap-request-logging
        handler/api
        json/wrap-json-response)
    ;; RSS Feed
    (-> feed-routes
        wrap-request-logging


(defn- respond [body]
  (fn [_req] {:body body}))

(defn- json-keyword [kw]
  (-> kw name (s/replace "-" "_")))


;;; Main
