blob: 8ffadccd1856dc2a44a2e0d9e2e05be37acc6195 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
|
(ns chef.pages.admin
(:require [chef.utils :as cutils]
[hiccup2.core :as html]
[ring.util.response :as ruresp]
[chef.database :as cdb]
[next.jdbc :as jdbc]
[honey.sql :as sql]))
(defn- render-category [data children]
[:li
[:p {:style {:display :inline-block}}
(if (pos? (:categories/id data))
[:input {:type :text :placeholder "Name"
:value (:categories/name data)
:name "name"
:hx-post (str "/api/admin/edit-category/" (:categories/id data))
:hx-trigger "change"}]
"Startseite")]
(when (or (neg? (:categories/id data))
(->> (sql/format {:select [:*]
:from [:categories]
:where [:= :parent (:categories/id data)]})
(jdbc/execute! @cdb/db)
count
pos?))
(list [:p {:style {:display :inline-block
:margin-left "1em"
:margin-right "1em"}} "->"]
[:input {:type :text :placeholder "Frage"
:style {:display :inline-block
:width :auto}
:value (:categories/question data)
:name "question"
:hx-post (str "/api/admin/edit-category/" (:categories/id data))
:hx-trigger "change"}]))
[:img {:src "/static/icons/plus.svg" :height "30em"
:style {:vertical-align :middle
:margin-left "1em"}
:hx-post (str "/api/admin/create-category"
(when (pos? (:categories/id data)) (str "?parent=" (:categories/id data))))
:hx-swap "none"}]
(when (pos? (:categories/id data))
[:img {:src "/static/icons/trash.svg" :height "30em"
:style {:vertical-align :middle
:margin-left "1em"}
:hx-delete (str "/api/admin/delete-category/" (:categories/id data))
:hx-swap "none"}])
[:ul
(for [child children]
(render-category child (->> (sql/format {:select [:*]
:from [:categories]
: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"
[: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 [:= :parent -1]})
(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])
resp (-> (render)
html/html
str
ruresp/response)]
(if (some? access-token)
(assoc resp :session (assoc (:session req) :oauth-token access-token))
(cutils/auth-only req resp))))
|
