Initial commit

1 files changed, 25 insertions, 0 deletions

diff --git a/src/dionysus/web/admin/home/server_settings.clj b/src/dionysus/web/admin/home/server_settings.clj
new file mode 100644
index 0000000..e4a8d3f
--- /dev/null
+++ b/src/dionysus/web/admin/home/server_settings.clj
@@ -0,0 +1,25 @@
+(ns dionysus.web.admin.home.server-settings
+  (:require [ring.util.response :as ruresp]
+            [dionysus.web.utils :as dwutils]
+            [dionysus.web.enduser :as dwenduser]))
+
+(defn render-server-settings []
+  [:div {:id "server-settings"}
+   [:input {:type       :checkbox
+            :name       "enduser-ui"
+            :style      {:display :inline-block}
+            :checked    (dwenduser/server-runs?)
+            :hx-trigger "input"
+            :hx-post    "/server-settings"
+            :hx-swap    "outerHTML"
+            :hx-target  "#server-settings"}]
+   [:p {:style {:display      :inline-block
+                :margin-right "1ch"}} "Gäste UI"]])
+
+(defn handle [req]
+  (if (= (get-in req [:form-params "enduser-ui"]) "on")
+    (dwenduser/start-server!)
+    (dwenduser/stop-server!))
+  (-> (render-server-settings)
+      dwutils/render-html
+      ruresp/response))