diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/controller/routes.phel | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/src/controller/routes.phel b/src/controller/routes.phel index ab5d34e..6e825fe 100644 --- a/src/controller/routes.phel +++ b/src/controller/routes.phel @@ -10,12 +10,12 @@ (:require phel.string :as str) (:require lezer.db :refer [conn])) -(defn get-books [] +(defn- get-books [] (let [[query _] (sql/format {:select [:*] :from [:books]})] (pdo/select conn query))) -(defn get-authors-by-book [book] +(defn- get-authors-by-book [book] (let [[query params] (sql/format {:select [:*] :from [:authors] @@ -26,10 +26,10 @@ (pdo/execute params) (pdo/fetch-all)))) -(defn create-book [fields] +(defn- create-book [fields] (pdo/insert conn :books fields)) -(defn get-or-create-author-by-name [fields] +(defn- get-or-create-author-by-name [fields] (let [[query params] (sql/format {:select [:id] :from [:authors] :where [:= :name (:name fields)]})] @@ -38,7 +38,7 @@ (pdo/fetch-column)) (pdo/insert conn :authors fields)))) -(defn get-book-pages-by-id [book-id] +(defn- get-book-pages-by-id [book-id] (let [[query params] (sql/format {:select [:pages] :from [:books] :where [:= :id book-id]})] @@ -46,10 +46,10 @@ (pdo/execute params) (pdo/fetch-column)))) -(defn create-book-session [fields] +(defn- create-book-session [fields] (pdo/insert conn :books_sessions fields)) -(defn create-session-progress [fields] +(defn- create-session-progress [fields] (pdo/insert conn :sessions_progress fields)) (defn- get-book-by-id [id] @@ -60,7 +60,7 @@ (pdo/execute params) (pdo/fetch)))) -(defn get-author-by-id [id] +(defn- get-author-by-id [id] (let [[query params] (sql/format {:select [:*] :from [:authors] :where [:= :id id]})] @@ -68,7 +68,7 @@ (pdo/execute params) (pdo/fetch)))) -(defn get-books-by-author-id [id] +(defn- get-books-by-author-id [id] (let [[query params] (sql/format {:select [:*] :from [:books] :where [:in :id {:select [:book_id] @@ -78,7 +78,7 @@ (pdo/execute params) (pdo/fetch-all)))) -(defn add-author-to-book [book-id fields] +(defn- add-author-to-book [book-id fields] (pdo/insert conn :authors_books {:book_id book-id :author_id (get-or-create-author-by-name fields)})) |