|
|
|
@ -7,21 +7,6 @@
|
|
|
|
|
:cljs [orchestra.core :refer-macros [defn-spec]])
|
|
|
|
|
[dda.c4k-common.predicate :as cp]))
|
|
|
|
|
|
|
|
|
|
;; deprecated functions were moved to dda.c4k-common.predicate
|
|
|
|
|
(defn ^{:deprecated "0.1"} bash-env-string?
|
|
|
|
|
[input]
|
|
|
|
|
(and (string? input)
|
|
|
|
|
(not (re-matches #".*['\"\$]+.*" input))))
|
|
|
|
|
|
|
|
|
|
(defn ^{:deprecated "0.1"} fqdn-string?
|
|
|
|
|
[input]
|
|
|
|
|
(and (string? input)
|
|
|
|
|
(some? (re-matches #"(?=^.{4,253}$)(^((?!-)[a-zA-Z0-9-]{0,62}[a-zA-Z0-9]\.)+[a-zA-Z]{2,63}$)" input))))
|
|
|
|
|
|
|
|
|
|
(defn ^{:deprecated "0.1"} letsencrypt-issuer?
|
|
|
|
|
[input]
|
|
|
|
|
(contains? #{:prod :staging} input))
|
|
|
|
|
|
|
|
|
|
(defn-spec replace-named-value cp/map-or-seq?
|
|
|
|
|
[coll cp/map-or-seq?
|
|
|
|
|
name string?
|
|
|
|
|