(ns dda.c4k-nextcloud.browser (:require [clojure.tools.reader.edn :as edn] [dda.c4k-common.common :as cm] [dda.c4k-nextcloud.core :as core] [dda.c4k-common.browser :as br])) (defn generate-content [] (cm/concat-vec [(assoc (br/generate-needs-validation) :content (cm/concat-vec (br/generate-group "config" (br/generate-text-area "config" "Your config.edn:" "{:fqdn \"cloud.your.domain\" :issuer \"staging\" :pv-storage-size-gb \"400\" :pvc-storage-class-name \"local-path\" :postgres-data-volume-path \"/var/postgres\" :restic-repository \"s3://yourbucket/your-repo\" :mon-cfg {:cluster-name \"cloud\" :cluster-stage \"test\" :grafana-cloud-url \"https://prometheus-prod-01-eu-west-0.grafana.net/api/prom/push\"}}" "9")) (br/generate-group "auth" (br/generate-text-area "auth" "Your auth.edn:" "{:postgres-db-user \"nextcloud\" :postgres-db-password \"nextcloud-db-password\" :nextcloud-admin-password \"nextcloud-admin-password\" :nextcloud-admin-user \"nextcloud-admin-user\" :aws-access-key-id \"aws-id\" :aws-secret-access-key \"aws-secret\" :restic-password \"restic-password\"} :mon-auth {:grafana-cloud-user \"your-user-id\" :grafana-cloud-password \"your-cloud-password\"}}" "9")) [(br/generate-br)] (br/generate-button "generate-button" "Generate c4k yaml")))] (br/generate-output "c4k-nextcloud-output" "Your c4k deployment.yaml:" "25"))) (defn generate-content-div [] {:type :element :tag :div :content (generate-content)}) (defn validate-all! [] (br/validate! "config" core/config? :deserializer edn/read-string) (br/validate! "auth" core/auth? :deserializer edn/read-string) (br/set-form-validated!)) (defn add-validate-listener [name] (-> (br/get-element-by-id name) (.addEventListener "blur" #(do (validate-all!))))) (defn init [] (br/append-hickory (generate-content-div)) (-> js/document (.getElementById "generate-button") (.addEventListener "click" #(do (validate-all!) (-> (cm/generate-cm (br/get-content-from-element "config" :deserializer edn/read-string) (br/get-content-from-element "auth" :deserializer edn/read-string) core/config-defaults core/config-objects core/auth-objects false false) (br/set-output!))))) (add-validate-listener "config") (add-validate-listener "auth"))