Add features to manage recipes in admin interface

2 files changed, 96 insertions, 1 deletions

diff --git a/src/chef/pages/admin/api.clj b/src/chef/pages/admin/api.clj
index ff11672..8b2723a 100644
--- a/src/chef/pages/admin/api.clj
+++ b/src/chef/pages/admin/api.clj
@@ -37,7 +37,6 @@
                                                         :where       [:= :id id]}))
                             (delete-category-children! id)
                             (-> (ruresp/response "Deleted.")
-                                (ruresp/status 200)
                                 (ruresp/header "HX-Refresh" "true"))))
                       (ruresp/bad-request "Bad request."))))
 
@@ -55,3 +54,38 @@
                                                                 :where  [:= :id id]})))
                           (ruresp/response "Updated."))
                       (ruresp/bad-request "Bad request."))))
+
+(defn create-recipe [req]
+  (cutils/auth-only req
+                    (jdbc/execute! @cdb/db
+                                   (sql/format {:insert-into [:recipes]
+                                                :values      [{:title "New recipe"}]}))
+                    (-> (ruresp/created "Created.")
+                        (ruresp/header "HX-Refresh" "true"))))
+
+(defn delete-recipe [req]
+  (cutils/auth-only req
+                    (if-let [id (try (Integer/parseInt (get-in req [:path-params :id]))
+                                     (catch Exception _ nil))]
+                      (do (jdbc/execute! @cdb/db
+                                         (sql/format {:delete-from [:recipes]
+                                                      :where       [:= :id id]}))
+                          (-> (ruresp/response "Deleted.")
+                              (ruresp/header "HX-Refresh" "true")))
+                      (ruresp/bad-request "Bad request."))))
+
+;;TODO: validate request
+(defn edit-recipe [req]
+  (cutils/auth-only req
+                    (if-let [id (try (Integer/parseInt (get-in req [:path-params :id]))
+                                     (catch Exception _ nil))]
+                      (do (jdbc/execute! @cdb/db
+                                         (sql/format {:update :recipes
+                                                      :set    {:title       (get-in req [:params "title"])
+                                                               :category    (get-in req [:params "category"])
+                                                               :unit        (get-in req [:params "ingredients-unit"])
+                                                               :ingredients (get-in req [:params "ingredients"])
+                                                               :preparation (get-in req [:params "preparation"])}
+                                                      :where  [:= :id id]}))
+                          (ruresp/response "Saved."))
+                      (ruresp/bad-request "Bad request."))))
diff --git a/src/chef/pages/admin/recipe_editor.clj b/src/chef/pages/admin/recipe_editor.clj
new file mode 100644
index 0000000..6afd591
--- /dev/null
+++ b/src/chef/pages/admin/recipe_editor.clj
@@ -0,0 +1,61 @@
+(ns chef.pages.admin.recipe-editor
+  (:require [hiccup2.core :as html]
+            [hiccup.util :as hutil]
+            [honey.sql :as sql]
+            [next.jdbc :as jdbc]
+            [chef.database :as cdb]
+            [ring.util.response :as ruresp]
+            [chef.utils :as cutils]))
+
+(defn render [recipe]
+  (cutils/gen-page "chef - Rezept bearbeiten"
+                   [:div {:style {:margin-left "1em"}}
+                    [:h1 "Rezept bearbeiten"]
+                    [:form {:style   {:width "50%"}
+                            :hx-post (str "/api/admin/edit-recipe/" (:recipes/id recipe))
+                            :hx-swap "none"}
+                     [:input {:type  :text :name "title" :placeholder "Titel"
+                              :value (:recipes/title recipe)}]
+                     [:h2 "Kategorie"]
+                     [:select {:name "category"}
+                      (for [category (->> (sql/format {:select [:*]
+                                                       :from   [:categories]})
+                                          (jdbc/execute! @cdb/db)
+                                          (filter #(pos? (:categories/id %))))]
+                        [:option {:value    (:categories/id category)
+                                  :selected (= (:categories/id category) (:recipes/category recipe))}
+                         (cutils/category-path category)])]
+                     [:h2 "Zutaten"]
+                     [:div {:style {:display :flex}}
+                      [:p {:style {:margin-right "0.5em"}} "Pro"]
+                      [:select {:name  "ingredients-unit"
+                                :style {:height  :fit-content
+                                        :padding "0.3em"}}
+                       [:option {:value 0 :selected (= (:recipes/unit recipe) 0)} "Portion"]
+                       [:option {:value 1 :selected (= (:recipes/unit recipe) 1)} "Person"]]
+                      [:p ":"]]
+                     [:textarea {:name "ingredients"}
+                      (:recipes/ingredients recipe)]
+                     ;; Regex: ([A-z0-9 ]*)=([0-9]*) ?([A-z]*)
+                     [:p "(Je Zeile eine Zutat, in dem Format " [:code "[Beschreibung der Zutat]=[Menge als Zahl][Einheit der Menge]"] ".)"]
+                     [:h2 "Zubereitung"]
+                     [:textarea {:name "preparation"}
+                      (:recipes/preparation recipe)]
+                     [:button {:type  :submit
+                               :style {:margin-top "1em"}} "Speichern"]]]
+                   [:script (hutil/raw-string "window.addEventListener(\"htmx:afterRequest\", () => window.close())")]))
+
+(defn handler [req]
+  (cutils/auth-only req
+                    (if-let [id (try (Integer/parseInt (get-in req [:path-params :id]))
+                                     (catch Exception _ nil))]
+                      (->> (sql/format {:select [:*]
+                                        :from   [:recipes]
+                                        :where  [:= :id id]})
+                           (jdbc/execute! @cdb/db)
+                           first
+                           render
+                           html/html
+                           str
+                           ruresp/response)
+                      (ruresp/bad-request "Bad request."))))