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

done refactoring normal mode functions

Browse Source
This commit is contained in:
Humza Shahid
2025-08-07 18:09:52 +01:00
parent f63e416e8f
commit 14f97ecc57
6 changed files with 313 additions and 282 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
fcore/normal-mode/normal-delete.sml
View File

@@ -281,7 +281,8 @@ struct
val searchList =
SearchList.buildRange (buffer, searchString, cursorIdx - 777)
in
Finish.buildTextAndClearAfterChr (app, buffer, low, searchList, initialMsg)
Finish.buildTextAndClearAfterChr
(app, buffer, low, searchList, initialMsg)
end
else
let
@@ -363,8 +364,10 @@ struct
val {cursorIdx, searchList, ...} = app
val newCursorIdx = SearchList.nextMatch (cursorIdx, searchList, count)
in
if newCursorIdx = ~1 orelse newCursorIdx <= cursorIdx then Finish.clearMode app
else helpDeleteToMatch (app, cursorIdx, newCursorIdx)
if newCursorIdx = ~1 orelse newCursorIdx <= cursorIdx then
Finish.clearMode app
else
helpDeleteToMatch (app, cursorIdx, newCursorIdx)
end
fun deleteToPrevMatch (app: app_type, count) =
@@ -372,7 +375,9 @@ struct
val {cursorIdx, searchList, ...} = app
val newCursorIdx = SearchList.prevMatch (cursorIdx, searchList, count)
in
if newCursorIdx = ~1 orelse newCursorIdx >= cursorIdx then Finish.clearMode app
else helpDeleteToMatch (app, newCursorIdx, cursorIdx)
if newCursorIdx = ~1 orelse newCursorIdx >= cursorIdx then
Finish.clearMode app
else
helpDeleteToMatch (app, newCursorIdx, cursorIdx)
end
end