json support

pjagielski · pjagielski · commit c15f3c518550 · 2015-09-14T23:46:06.000+02:00
diff --git a/.gitignore b/.gitignore
@@ -0,0 +1,6 @@
+.nrepl-port
+/target/
+.lein*
+config.edn
+.idea
+*.iml
diff --git a/dev/local.clj b/dev/local.clj
@@ -0,0 +1,3 @@
+;; Local REPL configuration
+
+(alter-var-root #'config meta-merge {})
diff --git a/profiles.clj b/profiles.clj
@@ -0,0 +1,4 @@
+;; Local profile overrides
+
+{:profiles/dev  {:env {}}
+ :profiles/test {}}
diff --git a/project.clj b/project.clj
@@ -10,7 +10,9 @@
                  [meta-merge "0.1.1"]
                  [ring "1.4.0"]
                  [ring/ring-defaults "0.1.5"]
-                 [ring-jetty-component "0.2.2"]]
+                 [ring-jetty-component "0.2.2"]
+                 [ring/ring-json "0.3.1"]
+                 [cheshire "5.1.1"]]
   :plugins [[lein-environ "1.0.0"]
             [lein-gen "0.2.2"]]
   :generators [[duct/generators "0.3.0"]]
diff --git a/src/modern_clj_web/endpoint/example.clj b/src/modern_clj_web/endpoint/example.clj
@@ -1,7 +1,8 @@
 (ns modern-clj-web.endpoint.example
   (:require [compojure.core :refer :all]
-            [clojure.java.io :as io]))
+            [ring.util.response :refer [response]]))
 
 (defn example-endpoint [config]
   (routes
+    (GET "/hello" [] (response {:hello "world"}))
     (GET "/" [] "Hello World")))
diff --git a/src/modern_clj_web/system.clj b/src/modern_clj_web/system.clj
@@ -6,10 +6,13 @@
             [meta-merge.core :refer [meta-merge]]
             [ring.component.jetty :refer [jetty-server]]
             [ring.middleware.defaults :refer [wrap-defaults api-defaults]]
+            [ring.middleware.json :refer [wrap-json-body wrap-json-response]]
             [modern-clj-web.endpoint.example :refer [example-endpoint]]))
 
 (def base-config
   {:app {:middleware [[wrap-not-found :not-found]
+                      [wrap-json-body {:keywords? true}]
+                      [wrap-json-response]
                       [wrap-defaults :defaults]]
          :not-found  "Resource Not Found"
          :defaults   (meta-merge api-defaults {})}})

Original file line number	Diff line number	Diff line change
`@@ -0,0 +1,3 @@`
	`1`	`+;; Local REPL configuration`
	`2`	`+`
	`3`	`+(alter-var-root #'config meta-merge {})`