Add simplistic database

This doesn't include a full database, or even a secure one, but this is the
first step into moving forward with this project. I can now write to and read
from a database.

3 files changed, 35 insertions, 16 deletions

diff --git a/src/app.phel b/src/app.phel
index 9e1e0bd..ac3b94e 100644
--- a/src/app.phel
+++ b/src/app.phel
@@ -9,7 +9,8 @@
     [["/" {:handler routes/index-handler}]
      ["/ping" {:name ::ping
                :get {:handler routes/ping-handler}
-               :post {:handler routes/ping-handler}}]])))
+               :post {:handler routes/ping-handler}}]
+     ["/book" {:post {:handler routes/book-create-handler}}]])))
 
 (when-not *build-mode*
   (h/emit-response (app (h/request-from-globals))))
diff --git a/src/controller/routes.phel b/src/controller/routes.phel
index 5f93cc2..5016bb3 100644
--- a/src/controller/routes.phel
+++ b/src/controller/routes.phel
@@ -2,12 +2,23 @@
   (:require lezer.view.main :refer [index-html])
   (:require lezer.module.greet :as g)
   (:require phel.router :as r)
-  (:require phel.http :as h))
+  (:require phel.http :as h)
+  (:require phel.pdo))
+
+(def conn (pdo/connect "sqlite:test.db"))
+(pdo/exec conn "create table if not exists books (id integer primary key autoincrement, title varchar(255))")
 
 (defn index-handler [req]
-  (h/response-from-map {:status 200
-                        :body index-html}))
+  (let [books (pdo/select conn "select * from books")]
+    (h/response-from-map {:status 200
+                          :body (index-html books)})))
 
 (defn ping-handler [req]
   (h/response-from-map {:status 200
                         :body (g/greet (str "pong - " (rand)))}))
+
+(defn book-create-handler [request]
+  (let [title (get-in request [:parsed-body "title"])]
+    (pdo/insert conn :books {:title title}))
+  (h/response-from-map {:status 201
+                        :body (pdo/select conn "select * from books")}))
diff --git a/src/view/main.phel b/src/view/main.phel
index 5d369ab..a47f308 100644
--- a/src/view/main.phel
+++ b/src/view/main.phel
@@ -20,16 +20,23 @@
    [:a {:href "https://github.com/phel-lang/phel-lang"} "GitHub"]
    [:a {:href "https://gitter.im/phel-lang/community"} "Community"]])
 
-(def- content
-  [:div {:class "flex-center position-ref full-height"}
-   [:form
-    [:label {:for "title"} "Title: "]
-    [:input {:type "text" :name "title"}]
-    [:br]
-    [:label {:for "authors"} "Author: "]
-    [:input {:type "text" :name "author"}]]])
+(defn content [books]
+  (html
+   (doctype :html5)
+   [:html
+    head
+    [:body
+     [:ul
+      (for [book :in books]
+        [:li (:title book)])]
+     [:div {:class "flex-center position-ref full-height"}
+      [:form {:action "/book" :method "POST"}
+       [:label {:for "title"} "Title: "]
+       [:input {:type "text" :name "title"}]
+       [:br]
+       [:label {:for "authors"} "Author: "]
+       [:input {:type "text" :name "author"}]
+       [:input {:type "submit"}]]]]]))
 
-(def index-html (html
-                 (doctype :html5)
-                 head
-                 content))
+(defn index-html [books]
+  (content books))