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

add minimal modifications to implementation of 'dge' motion, so that failing test for 'dge' motion passes

Browse Source
This commit is contained in:
Humza Shahid
2025-10-13 22:08:33 +01:00
parent 8e56eb7628
commit be7a9b3035
1 changed files with 22 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -373,28 +373,34 @@ struct
end
fun deleteToEndOfPrevWord (app: app_type, count, time) =
let
val {buffer, cursorIdx, ...} = app
if #cursorIdx app = 0 then
NormalFinish.clearMode app
else
let
val {buffer, cursorIdx, ...} = app
val buffer = LineGap.goToIdx (cursorIdx, buffer)
val low = Cursor.endOfPrevWord (buffer, cursorIdx, count)
val buffer = LineGap.goToIdx (cursorIdx, buffer)
val low = Cursor.endOfPrevWord (buffer, cursorIdx, count)
val length = (cursorIdx + 1) - low
in
deleteAndFinish (app, low, length, buffer, time)
end
val length = (cursorIdx + 1) - low
in
deleteAndFinish (app, low, length, buffer, time)
end
fun deleteToEndOfPrevWORD (app: app_type, count, time) =
let
val {buffer, cursorIdx, ...} = app
if #cursorIdx app = 0 then
NormalFinish.clearMode app
else
let
val {buffer, cursorIdx, ...} = app
val buffer = LineGap.goToIdx (cursorIdx, buffer)
val low = Cursor.endOfPrevWORD (buffer, cursorIdx, count)
val buffer = LineGap.goToIdx (cursorIdx, buffer)
val low = Cursor.endOfPrevWORD (buffer, cursorIdx, count)
val length = (cursorIdx + 1) - low
in
deleteAndFinish (app, low, length, buffer, time)
end
val length = (cursorIdx + 1) - low
in
deleteAndFinish (app, low, length, buffer, time)
end
fun deleteToEndOfLine (app: app_type, time) =
let