diff options
| -rw-r--r-- | src/app.phel | 3 | ||||
| -rw-r--r-- | src/controller/routes.phel | 8 | ||||
| -rw-r--r-- | src/db.phel | 9 |
3 files changed, 14 insertions, 6 deletions
diff --git a/src/app.phel b/src/app.phel index 8bb61c1..7df561f 100644 --- a/src/app.phel +++ b/src/app.phel @@ -1,8 +1,11 @@ (ns lezer.app (:require lezer.controller.routes) + (:require lezer.db) (:require phel.router :as r) (:require phel.http :as h)) +(db/initialize-database) + (def- router (r/router [["/" {:handler (fn [req] diff --git a/src/controller/routes.phel b/src/controller/routes.phel index 726f57b..b6335ca 100644 --- a/src/controller/routes.phel +++ b/src/controller/routes.phel @@ -5,12 +5,8 @@ (:require phel.router :as r) (:require phel.http :as h) (:require phel.pdo) - (:require phel.string :as str)) - -(def conn (pdo/connect "sqlite:test.db")) -(pdo/exec conn "create table if not exists books (id integer primary key autoincrement, title varchar(255), subtitle varchar(255))") -(pdo/exec conn "create table if not exists authors (id integer primary key autoincrement, name varchar(255))") -(pdo/exec conn "create table if not exists authors_books (author_id integer, book_id integer)") + (:require phel.string :as str) + (:require lezer.db :refer [conn])) (defn index-handler [req router] (let [books (for [b :in (pdo/select conn "select * from books")] diff --git a/src/db.phel b/src/db.phel new file mode 100644 index 0000000..3f50ccc --- /dev/null +++ b/src/db.phel @@ -0,0 +1,9 @@ +(ns lezer.db + (:require phel.pdo)) + +(def conn (pdo/connect "sqlite:test.db")) + +(defn initialize-database [] + (pdo/exec conn "create table if not exists books (id integer primary key autoincrement, title varchar(255), subtitle varchar(255))") + (pdo/exec conn "create table if not exists authors (id integer primary key autoincrement, name varchar(255))") + (pdo/exec conn "create table if not exists authors_books (author_id integer, book_id integer)")) |