gistfile1.txt

(ns cheshire-cat.core
  (:require [ring.adapter.jetty :refer [run-jetty]]
            [ring.util.response :as rr] 
            [compojure.core :refer :all]
            [compojure.route :as route]
            [ring.middleware.defaults :refer [wrap-defaults site-defaults]]
            [ring.middleware.resource :refer [wrap-resource]]
            [clojure.data.json :as json])
  (:gen-class))

;; https://github.com/ring-clojure/ring/wiki/Concepts#middleware
(defn json-response [response]
  (-> response
      (update :body json/write-str)
      (rr/content-type "application/json; charset=utf-8")))
               
(defn wrap-json-response [handler]
  (fn
    ([request]
     (-> (handler request) (json-response)))
    ([request respond raise]
     (handler request #(respond (json-response)) raise))))
  
(defroutes app-routes
  (GET "/" [] "Hello world!")
  (GET "/cheshire-cat" [] (rr/response {:name "Cheshire Cat" :status "grinning!!"}))
  (route/not-found "Not found."))

(def app
  (-> app-routes
      (wrap-json-response)
      (wrap-defaults site-defaults)))

(defn -main [& args]
  (run-jetty app {:port 3000}))