luciano/specter
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

add setval convenience function to api

Browse source
This commit is contained in:
Nathan Marz 2015-04-01 18:00:22 -04:00
parent 7e192a81f0
commit 7613ffd74e
1 changed files with 2 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/clj/com/rpl/specter.clj
View file

@ -55,6 +55,8 @@
(apply update-fn (conj vals structure))) (apply update-fn (conj vals structure)))
)))) ))))
(defn setval [selector val structure]
(update selector (fn [_] val) structure))
(defn replace-in [selector update-fn structure & {:keys [merge-fn] :or {merge-fn concat}}] (defn replace-in [selector update-fn structure & {:keys [merge-fn] :or {merge-fn concat}}]
"Returns [new structure [<user-ret> <user-ret>...]" "Returns [new structure [<user-ret> <user-ret>...]"