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