From 32ee50f0f6f53f8d5dea3bf159be3f65974c4b7b Mon Sep 17 00:00:00 2001
From: Tim <contact@bytim.eu>
Date: Sat, 1 Nov 2025 17:36:48 +0100
Subject: Initial commit

---
 src/dionysus/web/admin/home/server_settings.clj | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)
 create mode 100644 src/dionysus/web/admin/home/server_settings.clj

(limited to 'src/dionysus/web/admin/home/server_settings.clj')

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))
-- 
cgit v1.2.3