Fix cursor placement for wrap

grierson · Aug 15, 2023 · 6774ec0 · 6774ec0
1 parent 0656b52
commit 6774ec0
Show file tree

Hide file tree

Showing 4 changed files with 9 additions and 11 deletions.
diff --git a/fnl/formedit/wrap.fnl b/fnl/formedit/wrap.fnl
@@ -7,7 +7,7 @@
     (vim.api.nvim_buf_set_text 0 end-row end-col end-row end-col [")"])
     (vim.api.nvim_buf_set_text 0 start-row start-col start-row start-col ["( "])
     (vim.api.nvim_win_set_cursor 0
-                                 [(+ start-row 1) (+ start-col insert-offset)])
+                                 [(+ start-row 1) (+ start-col insert-offset 1)])
     (vim.api.nvim_feedkeys :i :n true)))
 
 {: head}
diff --git a/fnl/spec/wrap_spec.fnl b/fnl/spec/wrap_spec.fnl
@@ -13,11 +13,10 @@
                 (fn []
                   (h.setup {:content "(1)" :cursor [1 0]})
                   (h.feedkeys keymap)
-                  (h.expect {:content "( (1))" :cursor [1 0]})))
+                  (h.expect {:content "( (1))" :cursor [1 1]})))
             (it "sub form"
                 (fn []
-                  (h.setup {:content "(1 (2))" :cursor [1 4]})
+                  (h.setup {:content "(1 (2))" :cursor [1 3]})
                   (h.feedkeys keymap)
-                  (h.expect {:content "(1 ( (2)))" :cursor [1 3]})))))
+                  (h.expect {:content "(1 ( (2)))" :cursor [1 4]})))))
 
-(print :foo)
diff --git a/lua/formedit/wrap.lua b/lua/formedit/wrap.lua
diff --git a/lua/spec/wrap_spec.lua b/lua/spec/wrap_spec.lua