humza/sml-projects
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

reimplement '/home/humza/Downloads/sml/shf/todo.md' motion so that it has the same behaviour as Vim. (If the cursor is not at a pair character, then check after the cursor to see if we find a pair-character there. If some location after the cursor has a pair-character, then move the cursor to it and find the pair of the character, if any.)

Browse Source
This commit is contained in:
Humza Shahid
2026-01-01 06:58:30 +00:00
parent a65b950b77
commit 44dbe1ffb0
5 changed files with 121 additions and 72 deletions
Download Patch File Download Diff File Expand all files Collapse all files

46
test/normal-move.sml
View File

@@ -1752,21 +1752,39 @@ struct
(* assert *)
Expect.isTrue (getChr app = #"<")
end)
(* testing that % on a non-pair character is a no-op *)
, test "does not move when cursor is on a non-pair-character" (fn _ =>
let
(* arrange *)
val app = TestUtils.init "hello, world\n"
val app = AppWith.idx (app, 5)
val oldIdx = #cursorIdx app
, test
"does not move when cursor is on a non-pair-character, \
\and there is no pair-character where the cursor is at or after the cursor"
(fn _ =>
let
(* arrange *)
val app = TestUtils.init "he()o, world\n"
val app = AppWith.idx (app, 5)
val oldIdx = #cursorIdx app
(* act *)
val app = TestUtils.update (app, CHAR_EVENT #"%")
val newIdx = #cursorIdx app
in
(* assert *)
Expect.isTrue (newIdx = oldIdx)
end)
(* act *)
val app = TestUtils.update (app, CHAR_EVENT #"%")
val newIdx = #cursorIdx app
in
(* assert *)
Expect.isTrue (newIdx = oldIdx)
end)
, test
"moves cursor when the cursor is not on a \
\pair-character, but there is a pair-character \
\after the cursor"
(fn _ =>
let
(* arrange *)
val app = TestUtils.init "he()o world\n"
val app = AppWith.idx (app, 0)
(* act *)
val {cursorIdx, ...} = TestUtils.update (app, CHAR_EVENT #"%")
in
(* assert *)
Expect.isTrue (cursorIdx = 3)
end)
]
(* movements which use multiple chars *)