meissa/c4k-common
6
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Deprecate replace-all-matching-values-by-new-value

Browse source 
in favor or 'replace-all-matching' as it is shorter
This commit is contained in:
bom 2024-05-17 15:49:31 +02:00
parent b4eb47d584
commit 2008322368
1 changed files with 14 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
src/main/cljc/dda/c4k_common/common.cljc
View file

@ -42,16 +42,24 @@
%) %)
coll)) coll))
(defn-spec replace-all-matching-values-by-new-value cp/map-or-seq? (defn-spec replace-all-matching cp/map-or-seq?
[coll cp/map-or-seq? [coll cp/map-or-seq?
value-to-match string? match-value string?
value-to-replace cp/str-or-number?] replace-value cp/str-or-number?]
(clojure.walk/postwalk #(if (and (= (type value-to-match) (type %)) (clojure.walk/postwalk #(if (and (= (type value-to-match) (type %))
(= value-to-match %)) (= value-to-match %))
value-to-replace value-to-replace
%) %)
coll)) coll))
(defn-spec ^{:deprecated "6.2.4"} replace-all-matching-values-by-new-value cp/map-or-seq?
"Use replace-all-matching instead"
[coll cp/map-or-seq?
value-to-match string?
value-to-replace cp/str-or-number?]
(replace-all-matching coll value-to-match value-to-replace))
(defn-spec concat-vec vector? (defn-spec concat-vec vector?
[& vs (s/* cp/string-sequence?)] [& vs (s/* cp/string-sequence?)]
(into [] (into []