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

add zipper/PREV

Browse source
This commit is contained in:
Nathan Marz 2016-04-24 16:54:07 -04:00
parent 9a3a19bb9b
commit 48ad46d5e5
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/zipper.cljx
View file

@ -27,6 +27,7 @@
s/STOP s/STOP
s/STAY))) s/STAY)))
(defn- mk-zip-nav [nav] (defn- mk-zip-nav [nav]
(path [] (path []
(select* [this structure next-fn] (select* [this structure next-fn]
@ -47,6 +48,7 @@
(def LEFT (mk-zip-nav zip/left)) (def LEFT (mk-zip-nav zip/left))
(def DOWN (mk-zip-nav zip/down)) (def DOWN (mk-zip-nav zip/down))
(def UP (mk-zip-nav zip/up)) (def UP (mk-zip-nav zip/up))
(def PREV (mk-zip-nav zip/prev))
(def RIGHTMOST (s/view zip/rightmost)) (def RIGHTMOST (s/view zip/rightmost))
(def LEFTMOST (s/view zip/leftmost)) (def LEFTMOST (s/view zip/leftmost))