@ -5,12 +5,8 @@
[dda.c4k-shynet.core :as core]
[dda.c4k-shynet.shynet :as shynet]
[dda.c4k-common.browser :as br]
[dda.c4k-common.postgres :as pgc]))
;; TODO: Move these fkt up to common
(defn concat-vec [& vs]
(into []
(apply concat vs)))
[dda.c4k-common.postgres :as pgc]
[dda.c4k-common.common :as cm]))
(defn generate-group
[name
@ -27,18 +23,18 @@
:content content}]}])
(defn generate-content []
(concat-vec
(cm/c oncat-vec
[(assoc
(br/generate-needs-validation) :content
(concat-vec
(cm/c oncat-vec
(generate-group
"domain"
(concat-vec
(cm/c oncat-vec
(br/generate-input-field "fqdn" "Your fqdn:" "shynet.prod.meissa-gmbh.de")
(br/generate-input-field "issuer" "(Optional) Your issuer prod/staging:" "")))
(generate-group
"provider"
(concat-vec
(cm/c oncat-vec
(br/generate-input-field "postgres-data-volume-path" "(Optional) Your postgres-data-volume-path if Persistent Volumes are not generated by an Operator:" "")))
(generate-group
"credentials"
@ -89,9 +85,11 @@
(.getElementById "generate-button")
(.addEventListener "click"
#(do (validate-all!)
(-> (core/generate ;TODO: common/generate (?)
(-> (cm/generate-common
(config-from-document)
(br/get-content-from-element "auth" :deserializer edn/read-string))
(br/get-content-from-element "auth" :deserializer edn/read-string)
core/config-defaults
core/k8s-objects)
(br/set-output!)))))
(add-validate-listener "fqdn")
(add-validate-listener "postgres-data-volume-path")