Update name of list-of-separated-by?

This commit is contained in:
bom 2022-07-27 11:28:49 +02:00
parent 9a065943c9
commit 980eec3158

View file

@ -14,7 +14,7 @@
(and (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)))) (some? (re-matches #"(?=^.{4,253}$)(^((?!-)[a-zA-Z0-9-]{0,62}[a-zA-Z0-9]\.)+[a-zA-Z]{2,63}$)" input))))
(defn list-of-separated-by? (defn string-of-separated-by?
[input spec-function separator] [input spec-function separator]
(every? true? (map spec-function (str/split input separator)))) (every? true? (map spec-function (str/split input separator))))