Fix tail insertion

grierson · Aug 18, 2023 · 7dab75f · 7dab75f
1 parent a6596e4
commit 7dab75f
Show file tree

Hide file tree

Showing 4 changed files with 9 additions and 12 deletions.
diff --git a/fnl/formedit/insertion.fnl b/fnl/formedit/insertion.fnl
@@ -14,7 +14,7 @@
         [end-row end-col] [(form:end_)]
         end-col (- end-col 1)]
     (vim.api.nvim_buf_set_text 0 end-row end-col end-row end-col [" "])
-    (vim.api.nvim_win_set_cursor 0 [(+ end-row 1) end-row])
+    (vim.api.nvim_win_set_cursor 0 [(+ end-row 1) (+ end-col 1)])
     (vim.api.nvim_feedkeys :i :n true)))
 
 {: head : tail}
diff --git a/fnl/spec/insertion_spec.fnl b/fnl/spec/insertion_spec.fnl
@@ -3,7 +3,7 @@
 (local insertion (require :formedit.insertion))
 
 (local head-keymap :<localleader>h)
-(local tail-keymap :<localleader>t)
+(local tail-keymap :<localleader>H)
 
 (describe "head insertion"
           (fn []
@@ -35,11 +35,9 @@
                 (fn []
                   (h.setup {:content "(1)" :cursor [1 0]})
                   (h.feedkeys tail-keymap)
-                  (h.expect {:content "(1 )" :cursor [1 3]})))
+                  (h.expect {:content "(1 )" :cursor [1 2]})))
             (it :sub
                 (fn []
                   (h.setup {:content "(1 (2))" :cursor [1 3]})
                   (h.feedkeys tail-keymap)
-                  (h.expect {:content "(1 (2 ))" :cursor [1 6]})))))
-
-(print "foo")
+                  (h.expect {:content "(1 (2 ))" :cursor [1 5]})))))
diff --git a/lua/formedit/insertion.lua b/lua/formedit/insertion.lua
diff --git a/lua/spec/insertion_spec.lua b/lua/spec/insertion_spec.lua