section 3 video 3

Author: tlipski

src/project1/core.clj

@@ -1,5 +1,16 @@
 (ns project1.core
- (:require [project1.handlers :as handlers]))
+ (:require [project1.handlers :as handlers]
+           [clojure.string]))
+
+(defn case-middleware [handler request]
+ (let [request (update-in request [:uri] clojure.string/lower-case)
+       response (handler request)]
+  (if (string? (:body response))
+   (update-in response [:body] clojure.string/capitalize)
+   response)))
+
+(defn wrap-case-middleware [handler]
+  (fn [request] (case-middleware handler request)))
 
 (defn exception-middleware-fn [handler request]
  (try (handler request)
@@ -62,5 +73,6 @@
 (def full-handler 
  (-> route-handler
   not-found-middleware
+  wrap-case-middleware
   wrap-exception-middleware
   simple-log-middleware))