add book API

Author: tamizhvendan

clojure/resultful-crud/schema.sql

@@ -3,4 +3,10 @@ CREATE TABLE "user" (
   username VARCHAR(50) UNIQUE NOT NULL,
   email VARCHAR(255) UNIQUE NOT NULL,
   password_hash TEXT NOT NULL
+);
+
+CREATE TABLE book (
+  id SERIAL PRIMARY KEY,
+  title VARCHAR(100) NOT NULL,
+  year_published INTEGER NOT NULL
 );

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

@@ -0,0 +1,62 @@
+(ns resultful-crud.book
+  (:require [schema.core :as s]
+            [resultful-crud.models.book :refer [Book]]
+            [toucan.db :as db]
+            [ring.util.http-response :refer [ok not-found created]]
+            [compojure.api.sweet :refer [GET POST PUT DELETE]]
+            [resultful-crud.string-util :as str]))
+
+(defn valid-book-title? [title]
+  (str/non-blank-with-max-length? 100 title))
+
+(defn valid-year-published? [year]
+  (<= 2000 year 2018))
+
+(s/defschema BookRequestSchema
+  {:title (s/constrained s/Str valid-book-title?)
+   :year_published (s/constrained s/Int valid-year-published?)})
+
+(defn id->created [id]
+  (created (str "/books/" id) {:id id}))
+
+(defn create-book-handler [create-book-req]
+  (-> (db/insert! Book create-book-req)
+      :id
+      id->created))
+
+(defn delete-book-handler [book-id]
+  (db/delete! Book :id book-id)
+  (ok))
+
+(defn get-books-handler []
+  (ok (db/select Book)))
+
+(defn book->response [book]
+  (if book
+    (ok book)
+    (not-found)))
+
+(defn get-book-handler [book-id]
+  (-> (Book book-id)
+      book->response))
+
+(defn update-book-handler [id update-book-req]
+  (db/update! Book id update-book-req)
+  (ok))
+
+(def book-routes
+  [(POST "/books" []
+     :body [create-book-req BookRequestSchema]
+     (create-book-handler create-book-req))
+   (GET "/books" []
+     (get-books-handler))
+   (GET "/books/:id" []
+     :path-params [id :- s/Int]
+     (get-book-handler id))
+   (PUT "/books/:id" []
+     :path-params [id :- s/Int]
+     :body [update-book-req BookRequestSchema]
+     (update-book-handler id update-book-req))
+   (DELETE "/books/:id" []
+     :path-params [id :- s/Int]
+     (delete-book-handler id))])

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

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

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

@@ -0,0 +1,4 @@
+(ns resultful-crud.models.book
+  (:require [toucan.models :refer [defmodel]]))
+
+(defmodel Book :book)

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

@@ -0,0 +1,9 @@
+(ns resultful-crud.restful
+  (:require [compojure.api.sweet :refer [routes]]))
+
+(defn create-route [{:keys [name model req-schema]}]
+  42)
+
+(defn resource [resource-config]
+  (routes
+   (create-route resource-config)))