Use common generate-group
This commit is contained in:
parent
4860e62fc2
commit
f8638137d7
1 changed files with 3 additions and 17 deletions
|
@ -8,35 +8,21 @@
|
||||||
[dda.c4k-common.postgres :as pgc]
|
[dda.c4k-common.postgres :as pgc]
|
||||||
[dda.c4k-common.common :as cm]))
|
[dda.c4k-common.common :as cm]))
|
||||||
|
|
||||||
(defn generate-group
|
|
||||||
[name
|
|
||||||
content]
|
|
||||||
[{:type :element
|
|
||||||
:tag :div
|
|
||||||
:attrs {:class "rounded border border-3 m-3 p-2"}
|
|
||||||
:content [{:type :element
|
|
||||||
:tag :b
|
|
||||||
:attrs {:style "z-index: 1; position: relative; top: -1.3rem;"}
|
|
||||||
:content name}
|
|
||||||
{:type :element
|
|
||||||
:tag :fieldset
|
|
||||||
:content content}]}])
|
|
||||||
|
|
||||||
(defn generate-content []
|
(defn generate-content []
|
||||||
(cm/concat-vec
|
(cm/concat-vec
|
||||||
[(assoc
|
[(assoc
|
||||||
(br/generate-needs-validation) :content
|
(br/generate-needs-validation) :content
|
||||||
(cm/concat-vec
|
(cm/concat-vec
|
||||||
(generate-group
|
(br/generate-group
|
||||||
"domain"
|
"domain"
|
||||||
(cm/concat-vec
|
(cm/concat-vec
|
||||||
(br/generate-input-field "fqdn" "Your fqdn:" "shynet.prod.meissa-gmbh.de")
|
(br/generate-input-field "fqdn" "Your fqdn:" "shynet.prod.meissa-gmbh.de")
|
||||||
(br/generate-input-field "issuer" "(Optional) Your issuer prod/staging:" "")))
|
(br/generate-input-field "issuer" "(Optional) Your issuer prod/staging:" "")))
|
||||||
(generate-group
|
(br/generate-group
|
||||||
"provider"
|
"provider"
|
||||||
(cm/concat-vec
|
(cm/concat-vec
|
||||||
(br/generate-input-field "postgres-data-volume-path" "(Optional) Your postgres-data-volume-path if Persistent Volumes are not generated by an Operator:" "")))
|
(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
|
(br/generate-group
|
||||||
"credentials"
|
"credentials"
|
||||||
(br/generate-text-area
|
(br/generate-text-area
|
||||||
"auth" "Your auth.edn:"
|
"auth" "Your auth.edn:"
|
||||||
|
|
Loading…
Reference in a new issue