Fix handling of newlines

Author: eraserhd

src/rewrite_clj/node/protocols.clj

@@ -144,10 +144,12 @@
                    (->> s
                      reverse
                      (take-while (complement (partial = \newline)))
-                     count))]
+                     count
+                     inc))]
         [rows cols]))))
 
 (defn ^:no-doc +extent
   [[row col] [row-extent col-extent]]
   [(+ row row-extent)
    (cond-> col-extent (zero? row-extent) (+ col))])
+

test/rewrite_clj/zip/zip_test.clj

@@ -21,13 +21,14 @@
 
 (tabular
   (fact "z/right tracks position correctly"
-    (let [root (base/of-string "[hello world]")
-          zloc (nth (iterate z/right (z/down root)) ?n)]
+    (let [root (base/of-string "[hello \nworld]")
+          zloc (nth (iterate z/next root) ?n)]
       (z/position zloc) => ?pos))
   ?n ?pos
-  0  [1 2]
-  1  [1 7]
-  2  [1 8])
+  1  [1 2]
+  2  [1 7]
+  3  [1 8]
+  4  [2 1])
 
 (fact "z/rightmost tracks position correctly"
   (let [root (base/of-string "[hello world]")]