chore: adding endpoints and middlewares

Author: tonitienda

backend-rest-clojure/project.clj

@@ -5,7 +5,9 @@
   :dependencies [[org.clojure/clojure "1.10.0"]
                  [compojure "1.6.1"]
                  [org.clojure/data.json "2.5.0"]
-                 [ring/ring-defaults "0.3.2"]]
+                 [ring/ring-defaults "0.3.2"]
+                 [ring/ring-core "1.9.0"]
+                 [ring/ring-json "0.5.0"]]
   :plugins [[lein-ring "0.12.5"]]
   :ring {:handler kadai.handler/app}
   :profiles

backend-rest-clojure/src/kadai/handler.clj

@@ -2,17 +2,44 @@
   (:require [compojure.core :refer :all]
             [compojure.route :as route]
             [clojure.data.json :as json]
+            [ring.middleware.json :as json-middleware]
+            [ring.util.request :as request]
+            [ring.util.response :refer [response]]
             [ring.middleware.defaults :refer [wrap-defaults site-defaults]]))
 
+(defn empty-task-list []
+  [])
+
+(defn- empty-response []
+  (response {:status 200 :headers {"Content-Type" "application/json"}}))
+
+(defn log-request-before [handler]
+  (fn [request]
+    (let [response (handler request)]
+      (println (str "Request: " (:request-method request) " " (:uri request)))
+      response)))
+
+(defn log-request [handler]
+  (fn [request]
+    (let [response (handler request)]
+      (println (str "Request: " (:request-method request) " " (:uri request) " -> " (:status response)))
+      response)))
+
 (defroutes app-routes
   (GET "/" [] "Hello World")
   (GET "/healthz" [] (json/write-str {:message "ok"}))
 
-  (GET "/v0/tasks" [] [])
-  (POST "/v0/tasks" [] (json/write-str {}))
-  (DELETE "/v0/tasks/:id" [] (json/write-str {}))
+  (GET "/v0/tasks" [] (json-middleware/wrap-json-response (response (empty-task-list))))
+  (POST "/v0/tasks" [title description]
+    (let [task {:title title :description description}]
+      (empty-response)))
+  (DELETE "/v0/tasks/:id" [] (json-middleware/wrap-json-response(json/write-str {:something "something"})))
 
   (route/not-found "Not Found"))
 
-(def app
-  (wrap-defaults app-routes site-defaults))
+;; TODO - Temporarily disable the antiforgery check
+;; I will enable it and add it to the rest of backends later on
+(def app  (-> app-routes
+  (log-request-before)
+  (wrap-defaults (assoc-in site-defaults [:security :anti-forgery] false))
+  (log-request)))