user=> (require '[clojure.zip :as zip]) nil user=> (def zz (zip/seq-zip '(a b (c d e) (f (g h) i) j))) #'user/zz user=> zz [(a b (c d e) (f (g h) i) j) nil]
(defn seq-zip
"Returns a zipper for nested sequences, given a root sequence"
{:added "1.0"}
[root]
(zipper seq?
identity
(fn [node children] (with-meta children (meta node)))
root))
Comments top
No comments for seq-zip. Log in to add a comment.