Section 4 video 2

Author: tlipski

src/project1/core.clj

@@ -5,8 +5,16 @@
  	   [ring.middleware.params]
 	   [ring.middleware.keyword-params]
    	   [ring.middleware.multipart-params]
+  	   [project1.html :as html]
            [clojure.string]))
 
+(defn layout [contents]
+ (html/emit
+  [:html
+   [:body 
+    [:h1 "Clojure webapps example"]
+    [:p "This content comes from layout function"]
+    contents]]))
 (defn case-middleware [handler request]
  (let [request (update-in request [:uri] clojure.string/lower-case)
        response (handler request)]
@@ -62,10 +70,20 @@
 
 (defn form-handler [request]
  {:status 200
-  :headers {"Content-type" "text/plain"}
-  :body (str "local path:\n" (.getAbsolutePath (get-in request [:params :file :tempfile]))
-"\nmultipart-params:\n" (:multipart-params request)
-"\nparams:\n" (:params request) "\nquery-params:\n" (:query-params request) "\nform-params:\n" (:form-params request))})
+  :headers {"Content-type" "text/html"}
+  :body (layout
+    	 [:div
+  	   [:p "Params:"]
+  	[:pre (:params request)]
+ 	[:p "Query string params:"]
+	[:pre (:query-params request)]
+	[:p "Form params:"]
+	[:pre (:form-params request)]
+	[:p "Multipart params:"]
+	[:pre (:multipart-params request)]
+	[:p "Local path:"]
+	[:b (when-let [f (get-in request [:params :file :tempfile])]
+  		(.getAbsolutePath f))]])})
 
 (defn route-handler [request]
  (condp = (:uri request)