Add features to manage recipes in admin interface

3 files changed, 148 insertions, 14 deletions

diff --git a/src/chef/pages/admin.clj b/src/chef/pages/admin.clj
index e38dac3..25f99a6 100644
--- a/src/chef/pages/admin.clj
+++ b/src/chef/pages/admin.clj
@@ -52,21 +52,60 @@
                                                :where  [:= :parent (:categories/id child)]})
                                   (jdbc/execute! @cdb/db))))]])
 
+(defn- render-recipe-table-row [recipe]
+  (let [tr-id (str "recipe-" (:recipes/id recipe))]
+    [:tr {:id tr-id}
+     [:td
+      [:p (:recipes/title recipe)]]
+     [:td
+      (let [category (->> (sql/format {:select [:*]
+                                       :from   [:categories]
+                                       :where  [:= :id (:recipes/category recipe)]})
+                          (jdbc/execute! @cdb/db)
+                          first)]
+        [:p (cutils/category-path category)])]
+     [:td
+      [:div
+       [:button {:class   ["button" "primary"]
+                 :onclick (str "window.open(\"/admin/recipe-editor/"
+                               (:recipes/id recipe)
+                               "\", \"\", \"width=500,height=500\")")}
+        "Bearbeiten"]
+       [:button {:class      ["button error"]
+                 :hx-trigger "click"
+                 :hx-swap    :none
+                 :hx-delete  (str "/api/admin/delete-recipe/" (:recipes/id recipe))}
+        "Löschen"]]]]))
+
 (defn- render []
   (cutils/gen-page "chef - Admin"
-                   [:h1 "chef - Admin"]
-                   [:h2 "Kategorien"]
-                   [:ul
-                    (render-category (first (->> (sql/format {:select [:*]
-                                                              :from   [:categories]
-                                                              :where  [:= :id -1]})
-                                                 (jdbc/execute! @cdb/db)))
-                                     (->> (sql/format {:select [:*]
-                                                       :from   [:categories]
-                                                       :where  [:and [:is :parent :null] [:> :id 0]]})
-                                          (jdbc/execute! @cdb/db)))]
-                   [:h2 "Rezepte"]
-                   [:i "Coming soon..."]))
+                   [:div {:style {:margin-left "1em"}}
+                    [:h1 "chef - Admin"]
+                    [:h2 "Kategorien"]
+                    [:ul
+                     (render-category (first (->> (sql/format {:select [:*]
+                                                               :from   [:categories]
+                                                               :where  [:= :id -1]})
+                                                  (jdbc/execute! @cdb/db)))
+                                      (->> (sql/format {:select [:*]
+                                                        :from   [:categories]
+                                                        :where  [:and [:is :parent :null] [:> :id 0]]})
+                                           (jdbc/execute! @cdb/db)))]
+                    [:h2 "Rezepte"]
+                    [:table
+                     [:tr
+                      [:th "Titel"]
+                      [:th "Kategorie"]
+                      [:th "Aktionen"]]
+                     (for [recipe (jdbc/execute! @cdb/db
+                                                 (sql/format {:select [:*]
+                                                              :from   [:recipes]}))]
+                       (render-recipe-table-row recipe))]
+                    [:button {:class      "button primary"
+                              :hx-trigger "click"
+                              :hx-swap    :none
+                              :hx-post    "/api/admin/create-recipe"}
+                     "Rezept erstellen"]]))
 
 (defn handler [req]
   (let [access-token (get-in req [:oauth2/access-tokens :auth])
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."))))