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

improve compact implementation

Browse source
This commit is contained in:
nathanmarz 2017-12-24 10:50:22 -05:00
parent 70d9fef5cc
commit 09d0d071ef
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/clj/com/rpl/specter.cljc
View file

@ -1456,10 +1456,11 @@
coll? [ALL-WITH-META p]
)))
(let [compact* (stay-then-continue (if-path empty? (terminal-val NONE)))]
(let [empty->NONE (if-path empty? (terminal-val NONE))
compact* (fn [nav] (multi-path nav empty->NONE))]
(defdynamicnav compact
"During transforms, after each step of navigation in subpath check if the
value is empty. If so, remove that value by setting it to NONE."
[& path]
(interleave (repeat (count path) compact*) path)
(map compact* path)
))