routes: Make some functions private

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)}))