Add debug prints

1 files changed, 12 insertions, 1 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 %))