Add debug prints

3 files changed, 28 insertions, 3 deletions

diff --git a/src/chef/logic/categories.clj b/src/chef/logic/categories.clj
index aa9931e..cadcc5a 100644
--- a/src/chef/logic/categories.clj
+++ b/src/chef/logic/categories.clj
@@ -2,9 +2,11 @@
   (:require [clojure.string :as cstr]
             [honey.sql :as sql]
             [next.jdbc :as jdbc]
-            [chef.database :as cdb]))
+            [chef.database :as cdb]
+            [chef.utils :as cutils]))
 
 (defn get-all-categories []
+  (cutils/dprintln "get-all-categories")
   (->> {:select [:*]
         :from   [:categories]}
        sql/format
@@ -13,6 +15,7 @@
        ))
 
 (defn get-category [id]
+  (cutils/dprintln "get-category")
   (->> {:select [:*]
         :from   [:categories]
         :where  [:= :id id]}
@@ -21,6 +24,7 @@
        first))
 
 (defn find-categories-with-parent [parent-id]
+  (cutils/dprintln "find-categories-with-parent")
   (->> {:select [:*]
         :from   [:categories]
         :where  [:= :parent parent-id]}
@@ -28,6 +32,7 @@
        (jdbc/execute! @cdb/db)))
 
 (defn create-category! [parent]
+  (cutils/dprintln "create-category!")
   (->> {:insert-into [:categories]
         :values      [{:name   "New category"
                        :parent parent}]}
@@ -35,21 +40,25 @@
        (jdbc/execute! @cdb/db)))
 
 (defn- delete-category! [id]
+  (cutils/dprintln "delete-category!")
   (->> {:delete-from [:categories]
         :where       [:= :id id]}
        sql/format
        (jdbc/execute! @cdb/db)))
 
 (defn- delete-category-children! [id]
+  (cutils/dprintln "delete-category-children!")
   (doseq [child (find-categories-with-parent id)]
     (delete-category! (:categories/id child))
     (delete-category-children! (:categories/id child))))
 
 (defn delete-category-and-children! [id]
+  (cutils/dprintln "delete-category-and-children!")
   (delete-category! id)
   (delete-category-children! id))
 
 (defn update-category! [id updates]
+  (cutils/dprintln "update-category!")
   (->> {:update :categories
         :set    updates
         :where  [:= :id id]}
@@ -57,6 +66,7 @@
        (jdbc/execute! @cdb/db)))
 
 (defn get-parents [category]
+  (cutils/dprintln "get-parents")
   (loop [parents (list)
          category category]
     (let [updated-parents (conj parents category)]
@@ -66,6 +76,7 @@
         updated-parents))))
 
 (defn generate-path [category]
+  (cutils/dprintln "generate-path")
   (->> category
        get-parents
        (map #(:categories/name %))
diff --git a/src/chef/logic/recipes.clj b/src/chef/logic/recipes.clj
index 1fd1db5..8612948 100644
--- a/src/chef/logic/recipes.clj
+++ b/src/chef/logic/recipes.clj
@@ -3,16 +3,19 @@
             [clojure.string :as cstr]
             [honey.sql :as sql]
             [next.jdbc :as jdbc]
-            [chef.database :as cdb])
+            [chef.database :as cdb]
+            [chef.utils :as cutils])
   (:import java.io.File))
 
 (defn get-all-recipes []
+  (cutils/dprintln "get-all-recipes")
   (->> {:select [:*]
         :from   [:recipes]}
        sql/format
        (jdbc/execute! @cdb/db)))
 
 (defn get-recipe [id]
+  (cutils/dprintln "get-recipe")
   (->> {:select [:*]
         :from   [:recipes]
         :where  [:= :id id]}
@@ -21,18 +24,21 @@
        first))
 
 (defn create-recipe! []
+  (cutils/dprintln "create-recipe!")
   (->> {:insert-into [:recipes]
         :values      [{:title "New recipe"}]}
        sql/format
        (jdbc/execute! @cdb/db)))
 
 (defn delete-recipe! [id]
+  (cutils/dprintln "delete-recipe!")
   (->> {:delete-from [:recipes]
         :where       [:= :id id]}
        sql/format
        (jdbc/execute! @cdb/db)))
 
 (defn update-recipe! [id updates]
+  (cutils/dprintln "update-recipe!")
   (->> {:update :recipes
         :set    updates
         :where  [:= :id id]}
@@ -40,6 +46,7 @@
        (jdbc/execute! @cdb/db)))
 
 (defn get-recipe-thumbnail [recipe-id]
+  (cutils/dprintln "get-recipe-thumbnail")
   (let [thumbnails-folder (File. "./thumbnails/")]
     (->> thumbnails-folder
          .listFiles
@@ -48,10 +55,12 @@
          first)))
 
 (defn remove-recipe-thumbnail! [id]
+  (cutils/dprintln "remove-recipe-thumbnail!")
   (when-let [file (get-recipe-thumbnail id)]
     (.delete ^File file)))
 
 (defn set-recipe-thumbnail! [id multipart-param]
+  (cutils/dprintln "set-recipe-thumbnail!")
   (when-let [existing-thumbnail-file (get-recipe-thumbnail id)]
     (.delete ^File existing-thumbnail-file))
   (cjio/copy (:tempfile multipart-param)
diff --git a/src/chef/utils.clj b/src/chef/utils.clj
index 7329737..ff906a2 100644
--- a/src/chef/utils.clj
+++ b/src/chef/utils.clj
@@ -1,5 +1,6 @@
 (ns chef.utils
-  (:require [ring.util.response :as ruresp]))
+  (:require [dotenv :as env]
+            [ring.util.response :as ruresp]))
 
 (defn gen-page [title & content]
   [:html
@@ -35,3 +36,7 @@
        (->> s
             (re-matches #"(([A-z0-9 ]*)=([0-9]*) ?([A-z]*)\n?)*")
             some?)))
+
+(defn dprintln [& content]
+  (when (= "TRUE" (env/env "DEBUG_MODE"))
+    (apply println content)))