Use deploy-federated key with custom pred

This commit is contained in:
erik 2023-06-07 12:15:48 +02:00
parent 4c7549c10c
commit 9d99de13eb

View file

@ -20,9 +20,15 @@
(st/blank? input) (st/blank? input)
(pred/string-of-separated-by? pred/fqdn-string? #"," input))) (pred/string-of-separated-by? pred/fqdn-string? #"," input)))
(defn boolean-string?
[input]
(and
(string? input)
(boolean? (Boolean/valueOf input))))
(s/def ::default-app-name string?) (s/def ::default-app-name string?)
(s/def ::forgejo-image-name string?)
(s/def ::fqdn pred/fqdn-string?) (s/def ::fqdn pred/fqdn-string?)
(s/def ::deploy-federated boolean-string?)
(s/def ::mailer-from pred/bash-env-string?) (s/def ::mailer-from pred/bash-env-string?)
(s/def ::mailer-host pred/bash-env-string?) (s/def ::mailer-host pred/bash-env-string?)
(s/def ::mailer-port pred/bash-env-string?) (s/def ::mailer-port pred/bash-env-string?)
@ -35,8 +41,7 @@
(def config-defaults {:issuer "staging"}) (def config-defaults {:issuer "staging"})
(def config? (s/keys :req-un [::fqdn (def config? (s/keys :req-un [::fqdn
::forgejo-image-name
::mailer-from ::mailer-from
::mailer-host ::mailer-host
::mailer-port ::mailer-port