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

make implementation of 'di<symbol>' more robust (we check if the cursor is inside a symbol-pair before checking if there is a symbol pair after the cursor), and add tests for 'di<symbol>' motion

Browse Source
This commit is contained in:
Humza Shahid
2026-01-03 08:09:08 +00:00
parent bce2a5a22d
commit ba6798f476
5 changed files with 153 additions and 42 deletions
Download Patch File Download Diff File Expand all files Collapse all files

58
fcore/cursor.sml
View File

@@ -209,61 +209,69 @@ struct
val toPrevChr = ToPrevChr.foldPrev
structure ToCloseChrNext =
MakeIfCharFolderNext
structure ToOpenChrPrev =
MakeIfCharFolderPrev
(struct
type env = {openChr: char, closeChr: char}
fun loop (strPos, str, absIdx, stl, openChr, closeChr, openCount) =
if strPos = String.size str then
fun loop (strPos, str, absIdx, stl, openChr, closeChr, closeCount) =
if strPos < 0 then
case stl of
str :: stl =>
loop (0, str, absIdx, stl, openChr, closeChr, openCount)
loop
( String.size str - 1
, str
, absIdx
, stl
, openChr
, closeChr
, closeCount
)
| [] => ~1
else
let
val chr = String.sub (str, strPos)
in
if chr = openChr then
loop
( strPos + 1
, str
, absIdx + 1
, stl
, openChr
, closeChr
, openCount + 1
)
else if chr = closeChr then
if openCount = 0 then
if closeCount = 0 then
absIdx
else
loop
( strPos + 1
( strPos - 1
, str
, absIdx + 1
, absIdx - 1
, stl
, openChr
, closeChr
, openCount - 1
, closeCount - 1
)
else
else if chr = closeChr then
loop
( strPos + 1
( strPos - 1
, str
, absIdx + 1
, absIdx - 1
, stl
, openChr
, closeChr
, openCount
, closeCount + 1
)
else
loop
( strPos - 1
, str
, absIdx - 1
, stl
, openChr
, closeChr
, closeCount
)
end
fun fStart (strPos, str, _, absIdx, stl, _, {openChr, closeChr}) =
loop (strPos + 1, str, absIdx + 1, stl, openChr, closeChr, 0)
loop (strPos, str, absIdx, stl, openChr, closeChr, 0)
end)
val toCloseChrNext = ToCloseChrNext.foldNext
val toOpenChrPrev = ToOpenChrPrev.foldPrev
structure NextPairChr =
MakeIfCharFolderNext

56
fcore/normal-mode/make-normal-delete.sml
View File

@@ -1068,29 +1068,56 @@ struct
val cursorChr = LineGap.sub (cursorIdx, buffer)
in
if cursorChr = openChr orelse cursorChr = closeChr then
(* cursor is at pair, so match and delete *)
let
val otherIdx = Cursor.matchPair (buffer, cursorIdx)
in
finishDeletingInsidePair (app, buffer, cursorIdx, otherIdx, dfa, time)
end
else
let
val nextIdx =
Cursor.toCloseChrNext
(buffer, cursorIdx, {openChr = openChr, closeChr = closeChr})
in
if nextIdx = ~1 then
if otherIdx = ~1 then
NormalFinish.clearMode app
else
finishDeletingInsidePair
(app, buffer, cursorIdx, otherIdx, dfa, time)
end
else
(* check to see if we are inside pair *)
let
val prevIdx =
Cursor.toOpenChrPrev
(buffer, cursorIdx, {openChr = openChr, closeChr = closeChr})
in
if prevIdx = ~1 then
(* no openChr before cursor, so check after cursor *)
let
val buffer = LineGap.goToIdx (nextIdx, buffer)
val matchIdx = Cursor.matchPair (buffer, nextIdx)
val nextIdx =
Cursor.toNextChr
(buffer, cursorIdx, {findChr = openChr, count = 1})
in
if matchIdx = ~1 then
if nextIdx = ~1 then
NormalFinish.clearMode app
else
let
val buffer = LineGap.goToIdx (nextIdx, buffer)
val matchIdx = Cursor.matchPair (buffer, nextIdx)
in
if matchIdx = ~1 then
NormalFinish.clearMode app
else
finishDeletingInsidePair
(app, buffer, nextIdx, matchIdx, dfa, time)
end
end
else
(* there is an openChr before cursor, so match it,
* and if there is a match, then delete *)
let
val buffer = LineGap.goToIdx (prevIdx, buffer)
val otherIdx = Cursor.matchPair (buffer, prevIdx)
in
if otherIdx = ~1 then
NormalFinish.clearMode app
else
finishDeletingInsidePair
(app, buffer, nextIdx, matchIdx, dfa, time)
(app, buffer, prevIdx, otherIdx, dfa, time)
end
end
end
@@ -1155,8 +1182,7 @@ struct
else
let
val nextIdx =
Cursor.toCloseChrNext
(buffer, cursorIdx, {openChr = openChr, closeChr = closeChr})
Cursor.toNextChr (buffer, cursorIdx, {findChr = openChr, count = 1})
in
if nextIdx = ~1 then
NormalFinish.clearMode app