add restful abstraction

Author: tamizhvendan

clojure/resultful-crud/src/resultful_crud/book.clj

@@ -2,6 +2,7 @@
   (:require [schema.core :as s]
             [resultful-crud.models.book :refer [Book]]
             [toucan.db :as db]
+            [resultful-crud.restful :as restful]
             [ring.util.http-response :refer [ok not-found created]]
             [compojure.api.sweet :refer [GET POST PUT DELETE]]
             [resultful-crud.string-util :as str]))
@@ -59,4 +60,9 @@
      (update-book-handler id update-book-req))
    (DELETE "/books/:id" []
      :path-params [id :- s/Int]
-     (delete-book-handler id))])
+     (delete-book-handler id))])
+
+(def book-entity-route
+  (restful/resource {:model Book
+                     :name "books"
+                     :req-schema BookRequestSchema}))

clojure/resultful-crud/src/resultful_crud/core.clj

@@ -3,8 +3,8 @@
             [toucan.db :as db]
             [toucan.models :as models]
             [compojure.api.sweet :refer [api routes]]
-            [resultful-crud.user :refer [user-routes]]
-            [resultful-crud.book :refer [book-routes]])
+            [resultful-crud.user :refer [user-entity-route]]
+            [resultful-crud.book :refer [book-entity-route]])
   (:gen-class))
 
 (def db-spec
@@ -19,7 +19,9 @@
    :options {:ui {:validatorUrl nil}
              :data {:info {:version "1.0.0", :title "Restful CRUD API"}}}})
 
-(def app (api {:swagger swagger-config} (apply routes (concat user-routes book-routes))))
+; (def app (api {:swagger swagger-config} (apply routes (concat user-routes book-routes))))
+
+(def app (api {:swagger swagger-config} (apply routes book-entity-route user-entity-route)))
 
 (defn -main
   [& args]

clojure/resultful-crud/src/resultful_crud/restful.clj

@@ -1,9 +1,64 @@
 (ns resultful-crud.restful
-  (:require [compojure.api.sweet :refer [routes]]))
+  (:require [compojure.api.sweet :refer [GET POST PUT DELETE routes]]
+            [toucan.db :as db]
+            [schema.core :as s]
+            [ring.util.http-response :refer [ok not-found created]]))
 
-(defn create-route [{:keys [name model req-schema]}]
-  42)
+(defn id->created [id]
+  (created (str "/users/" id) {:id id}))
+
+(defn create-route [{:keys [name model req-schema enter]}]
+  (let [enter-interceptor (or enter identity)
+        path (str "/" name)]
+    (POST path http-req
+      :body [req-body req-schema]
+      (->> (enter-interceptor req-body)
+           (db/insert! model)
+           :id
+           id->created))))
+
+(defn entity->response [entity]
+  (if entity
+    (ok entity)
+    (not-found)))
+
+(defn get-by-id-route [{:keys [name model leave]}]
+  (let [leave-interceptor (or leave identity)
+        path (str "/" name "/:id")]
+    (GET path []
+      :path-params [id :- s/Int]
+      (-> (model id)
+          leave-interceptor
+          entity->response))))
+
+(defn get-all-route [{:keys [name model leave]}]
+  (let [leave-interceptor (or leave identity)
+        path (str "/" name)]
+    (GET path []
+      (->> (db/select model)
+           (map leave-interceptor)
+           ok))))
+
+(defn update-route [{:keys [name model req-schema enter]}]
+  (let [enter-interceptor (or enter identity)
+        path (str "/" name "/:id")]
+    (PUT path http-req
+      :path-params [id :- s/Int]
+      :body [req-body req-schema]
+      (db/update! model id (enter-interceptor req-body))
+      (ok))))
+
+(defn delete-route [{:keys [name model]}]
+  (let [path (str "/" name "/:id")]
+    (DELETE path []
+      :path-params [id :- s/Int]
+      (db/delete! model :id id)
+      (ok))))
 
 (defn resource [resource-config]
   (routes
-   (create-route resource-config)))
+   (create-route resource-config)
+   (get-by-id-route resource-config)
+   (get-all-route resource-config)
+   (update-route resource-config)
+   (delete-route resource-config)))

clojure/resultful-crud/src/resultful_crud/user.clj

@@ -4,6 +4,7 @@
             [buddy.hashers :as hashers]
             [clojure.set :refer [rename-keys]]
             [toucan.db :as db]
+            [resultful-crud.restful :as restful]
             [ring.util.http-response :refer [ok not-found created]]
             [compojure.api.sweet :refer [GET POST PUT DELETE]]
             [resultful-crud.string-util :as str]))
@@ -70,4 +71,11 @@
      (update-user-handler id update-user-req))
    (DELETE "/users/:id" []
      :path-params [id :- s/Int]
-     (delete-user-handler id))])
+     (delete-user-handler id))])
+
+(def user-entity-route
+  (restful/resource {:model User
+                     :name "users"
+                     :req-schema UserRequestSchema
+                     :leave #(dissoc % :password_hash)
+                     :enter canonicalize-user-req}))