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

added INNER-RIGHT and INNER-LEFT

Browse source
This commit is contained in:
Nathan Marz 2016-04-24 10:42:19 -04:00
parent b68d59ca90
commit 747b080909
1 changed files with 26 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

26
src/clj/com/rpl/specter/zipper.cljx
View file

@ -26,6 +26,32 @@
(def LEFTMOST (view zip/leftmost)) (def LEFTMOST (view zip/leftmost))
(def UP (view zip/up)) (def UP (view zip/up))
(defn- inner-insert [structure next-fn inserter mover backer]
(let [to-insert (next-fn [])
inserts (reduce
(fn [z e] (-> z (inserter e) mover))
structure
to-insert
)]
(if backer
(reduce (fn [z _] (backer z)) inserts to-insert)
inserts)
))
(defpath INNER-RIGHT []
(select* [this structure next-fn]
(next-fn []))
(transform* [this structure next-fn]
(inner-insert structure next-fn zip/insert-right zip/right zip/left)
))
(defpath INNER-LEFT []
(select* [this structure next-fn]
(next-fn []))
(transform* [this structure next-fn]
(inner-insert structure next-fn zip/insert-left identity nil)
))
(defpath NODE [] (defpath NODE []
(select* [this structure next-fn] (select* [this structure next-fn]
(next-fn (zip/node structure)) (next-fn (zip/node structure))