From 3addfcf7148c8da62c3523de7fff7ea55d31084a Mon Sep 17 00:00:00 2001
From: Adam <adam@adambard.com>
Date: Thu, 11 Sep 2014 16:17:06 +0200
Subject: Updated compojure tut

---
 compojure.html.markdown | 69 +++++++++++++++++++++++++++++++++++++++----------
 1 file changed, 56 insertions(+), 13 deletions(-)

(limited to 'compojure.html.markdown')

diff --git a/compojure.html.markdown b/compojure.html.markdown
index 96555273..444c8c58 100644
--- a/compojure.html.markdown
+++ b/compojure.html.markdown
@@ -102,29 +102,72 @@ You can adjust what each parameter matches by supplying a regex:
 ```clojure
 (defroutes myapp
   (GET ["/file/:name.:ext" :name #".*", :ext #".*"] [name ext]
-    (str "File: " name ext)) 
+    (str "File: " name ext)))
 ```
 
-Handlers may utilize query parameters:
+### Middleware
+
+Clojure uses [Ring](https://github.com/ring-clojure/ring) for routing.
+Handlers are just functions that accept a request map and return a
+response map (Compojure will turn strings into 200 responses for you).
+
+You can easily write middleware that wraps all or part of your
+application to modify requests or responses:
+
+```clojure
+(defroutes myapp
+  (GET "/" req (str "Hello World v" (:app-version req))))
+
+(defn wrap-version [handler]
+  (fn [request]
+    (handler (assoc request :app-version "1.0.1"))))
+
+(defn -main []
+  (run-server (wrap-version myapp) {:port 5000}))
+```
+
+[Ring-Defaults](https://github.com/ring-clojure/ring-defaults) provides some handy
+middlewares for sites and apis, so add it to your dependencies:
+
+```
+[ring/ring-defaults "0.1.1"]
+```
+
+Then, you can import it in your ns:
+
+```
+(ns myapp.core
+  (:require [compojure.core :refer :all]
+            [ring.middleware.defaults :refer :all]
+            [org.httpkit.server :refer [run-server]]))
+```
+
+And use `wrap-defaults` to add the `site-defaults` middleware to your
+app:
+
+```
+(defn -main []
+  (run-server (wrap-defaults myapp site-defaults) {:port 5000}))
+```
+
+Now, your handlers may utilize query parameters:
 
 ```clojure
 (defroutes myapp
-  (GET "/posts" []
-    (fn [req]
-      (let [title (get (:params req) "title")
-            author (get (:params req) "title")]
-        " Do something with title and author"))))
+  (GET "/posts" req
+    (let [title (get (:params req) "title")
+          author (get (:params req) "title")]
+      (str "Title: " title ", Author: " author))))
 ```
 
-Or, for POST and PUT requests, form parameters
+Or, for POST and PUT requests, form parameters as well
 
 ```clojure
 (defroutes myapp
-  (POST "/posts" []
-    (fn [req]
-      (let [title (get (:params req) "title")
-            author (get (:params req) "title")]
-        "Do something with title and author"))))
+  (POST "/posts" req
+    (let [title (get (:params req) "title")
+          author (get (:params req) "title")]
+      (str "Title: " title ", Author: " author))))
 ```
 
 
-- 
cgit v1.2.3