From 8e23d9dade945f87f5fc7fb15042a53a7eeb9a9e Mon Sep 17 00:00:00 2001
From: Tim <contact@bytim.eu>
Date: Sat, 14 Jun 2025 11:49:28 +0200
Subject: Refactor project structure

---
 src/chef/logic/recipes.clj | 60 ++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 60 insertions(+)
 create mode 100644 src/chef/logic/recipes.clj

(limited to 'src/chef/logic/recipes.clj')

diff --git a/src/chef/logic/recipes.clj b/src/chef/logic/recipes.clj
new file mode 100644
index 0000000..1fd1db5
--- /dev/null
+++ b/src/chef/logic/recipes.clj
@@ -0,0 +1,60 @@
+(ns chef.logic.recipes
+  (:require [clojure.java.io :as cjio]
+            [clojure.string :as cstr]
+            [honey.sql :as sql]
+            [next.jdbc :as jdbc]
+            [chef.database :as cdb])
+  (:import java.io.File))
+
+(defn get-all-recipes []
+  (->> {:select [:*]
+        :from   [:recipes]}
+       sql/format
+       (jdbc/execute! @cdb/db)))
+
+(defn get-recipe [id]
+  (->> {:select [:*]
+        :from   [:recipes]
+        :where  [:= :id id]}
+       sql/format
+       (jdbc/execute! @cdb/db)
+       first))
+
+(defn create-recipe! []
+  (->> {:insert-into [:recipes]
+        :values      [{:title "New recipe"}]}
+       sql/format
+       (jdbc/execute! @cdb/db)))
+
+(defn delete-recipe! [id]
+  (->> {:delete-from [:recipes]
+        :where       [:= :id id]}
+       sql/format
+       (jdbc/execute! @cdb/db)))
+
+(defn update-recipe! [id updates]
+  (->> {:update :recipes
+        :set    updates
+        :where  [:= :id id]}
+       sql/format
+       (jdbc/execute! @cdb/db)))
+
+(defn get-recipe-thumbnail [recipe-id]
+  (let [thumbnails-folder (File. "./thumbnails/")]
+    (->> thumbnails-folder
+         .listFiles
+         (filter #(cstr/starts-with? (.getName ^File %)
+                                     (str recipe-id ".")))
+         first)))
+
+(defn remove-recipe-thumbnail! [id]
+  (when-let [file (get-recipe-thumbnail id)]
+    (.delete ^File file)))
+
+(defn set-recipe-thumbnail! [id multipart-param]
+  (when-let [existing-thumbnail-file (get-recipe-thumbnail id)]
+    (.delete ^File existing-thumbnail-file))
+  (cjio/copy (:tempfile multipart-param)
+             (File. (str "./thumbnails/" id "." (-> (:filename multipart-param)
+                                                    (cstr/split #"\.")
+                                                    last)))))
-- 
cgit v1.2.3