add 'without-positional-zipper' and 'use-positional-zipper!'.

Author: Yannick Scherer

src/rewrite_clj/custom_zipper/core.clj

@@ -27,6 +27,12 @@
    implementation."
   false)
 
+(defn use-positional-zipper!
+  "Globally activate the position-tracking zipper. You can locally revert
+   behaviour to `clojure.zip`'s by using `without-positional-zipper`."
+  []
+  (alter-var-root #'*active?* (constantly true)))
+
 (defmacro ^:private defn-switchable
   [sym docstring params & body]
   (let [placeholders (repeatedly (count params) gensym)]
@@ -46,6 +52,13 @@
   `(binding [*active?* true]
      ~@body))
 
+(defmacro without-positional-zipper
+  "Force usage of `clojure.zip` to evaluate any rewrite-clj zipper operations in
+   `body` instead of a custom position-tracking zipper."
+  [& body]
+  `(binding [*active?* true]
+     ~@body))
+
 ;; ## Implementation
 
 (defn ^:no-doc zipper

src/rewrite_clj/zip.clj

@@ -24,7 +24,9 @@
 (import-vars
   [rewrite-clj.custom-zipper.core
    node position root
-   with-positional-zipper]
+   use-positional-zipper!
+   with-positional-zipper
+   without-positional-zipper]
 
   [rewrite-clj.zip.base
    child-sexprs