z/insert-left fixes the position

Author: eraserhd

src/rewrite_clj/zip/zip.clj

@@ -148,7 +148,8 @@
       (throw (new Exception "Insert at top"))
       (assoc loc
              :changed? true
-             :left (conj left [item position])))))
+             :left (conj left [item position])
+             :position (node/+extent position (node/extent item))))))
 
 (defn insert-right
   "Inserts the item as the right sibling of the node at this loc,

test/rewrite_clj/zip/zip_test.clj

@@ -82,3 +82,10 @@
     z/down
     (z/insert-right 'x)
     z/position) => [1 2])
+
+(fact "z/insert-left fixes the position"
+  (-> (base/of-string "[hello world]")
+    z/down
+    z/right
+    (z/insert-left 'x)
+    z/position) => [1 8])