|
|
@ -6,8 +6,7 @@
|
|
|
|
(re-matches #".*\s.*" s))
|
|
|
|
(re-matches #".*\s.*" s))
|
|
|
|
|
|
|
|
|
|
|
|
(defn tag-names-from-input [s]
|
|
|
|
(defn tag-names-from-input [s]
|
|
|
|
(->> (split s #",")
|
|
|
|
(map trim (split s #",")))
|
|
|
|
(map trim)))
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
(defn any-tag-name-contains-whitespace [s]
|
|
|
|
(defn any-tag-name-contains-whitespace [s]
|
|
|
|
(some contains-whitespace? (tag-names-from-input s)))
|
|
|
|
(some contains-whitespace? (tag-names-from-input s)))
|
|
|
|