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

implement ALL NONE removal for some of default cases

Browse source
This commit is contained in:
nathanmarz 2017-01-08 13:30:14 -05:00
parent fca11410b4
commit 9617aa1931
1 changed files with 10 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
src/clj/com/rpl/specter/navs.cljc
View file

@ -149,24 +149,27 @@
(let [empty-structure (empty structure)]
(cond (and (list? empty-structure) (not (queue? empty-structure)))
;; this is done to maintain order, otherwise lists get reversed
;;TODO: need to handle NONE here
;;TODO: need to handle NONE here
(doall (map next-fn structure))
(map? structure)
;; reduce-kv is much faster than doing r/map through call to (into ...)
;; reduce-kv is much faster than doing r/map through call to (into ...)
(reduce-kv
(fn [m k v]
;;TODO: need to handle NONE here
(let [[newk newv] (next-fn [k v])]
(assoc m newk newv)))
(let [newkv (next-fn [k v])]
(if (identical? newkv i/NONE)
m
(assoc m (nth newkv 0) (nth newkv 1)))))
empty-structure
structure)
:else
;;TODO: need to handle NONE here
(->> structure (r/map next-fn) (into empty-structure))))))
(->> structure
(r/map next-fn)
(r/filter #(-> % (identical? i/NONE) not))
(into empty-structure))))))
#?(:cljs default)