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

parse a few additional motions for yanking

Browse Source
This commit is contained in:
Humza Shahid
2025-09-02 03:13:01 +01:00
parent ea38e95e6b
commit 74f1fb77ab
1 changed files with 4 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
fcore/normal-mode/normal-mode.sml
View File

@@ -200,7 +200,6 @@ struct
| #"a" => parseDeleteAround (app, chrCmd, time) | #"a" => parseDeleteAround (app, chrCmd, time)
| _ => NormalFinish.clearMode app | _ => NormalFinish.clearMode app
fun yankWhenMovingBack (app: app_type, fMove, count) = fun yankWhenMovingBack (app: app_type, fMove, count) =
let let
open DrawMsg open DrawMsg
@@ -270,6 +269,10 @@ struct
end end
| #"w" => yankWhenMovingForward (app, Cursor.nextWord, count) | #"w" => yankWhenMovingForward (app, Cursor.nextWord, count)
| #"W" => yankWhenMovingForward (app, Cursor.nextWORD, count) | #"W" => yankWhenMovingForward (app, Cursor.nextWORD, count)
| #"b" => yankWhenMovingBack (app, Cursor.prevWord, count)
| #"B" => yankWhenMovingBack (app, Cursor.prevWORD, count)
| #"e" => yankWhenMovingForward (app, Cursor.endOfWordForDelete, count)
| #"E" => yankWhenMovingForward (app, Cursor.endOfWORDForDelete, count)
| _ => app | _ => app
fun parseYank (strPos, str, count, app, chrCmd, time) = fun parseYank (strPos, str, count, app, chrCmd, time) =