(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))