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

reimplement 'df' motion as per previous commits, and add a new test for 'df' motion to check that cursor does not land on a 'newline following a non-newline' position, after deleting using 'df<char>'

Browse Source
This commit is contained in:
Humza Shahid
2025-10-18 14:24:16 +01:00
parent 239aaacfc5
commit 5d00da2cbb
3 changed files with 51 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -304,9 +304,7 @@ struct
| #"T" =>
NormalDelete.deleteToChr
(app, 1, Cursor.tillPrevChr, op-, chrCmd, time)
| #"f" =>
NormalDelete.deleteToChr
(app, count, Cursor.toNextChr, op+, chrCmd, time)
| #"f" => NormalDelete.deleteToNextChr (app, count, chrCmd, time)
| #"F" =>
NormalDelete.deleteToChr
(app, count, Cursor.toPrevChr, op-, chrCmd, time)
@@ -560,18 +558,13 @@ struct
* which can be made terminal by adding "w" or "e" at the end.
* *)
case String.sub (str, strPos) of
#"t" =>
(* to just before char, forward
* tillNextChr with count of 1 has same effect
* as tillNextChr with any count above 1
* so just hardcode 1 *)
NormalMove.tillNextChr (app, count, chrCmd)
#"t" => NormalMove.tillNextChr (app, count, chrCmd)
| #"T" =>
(* to just before chr, backward *)
parseMoveToChr (1, app, Cursor.tillPrevChr, chrCmd)
| #"y" => ParseYank.parseYank (strPos, str, count, app, chrCmd, time)
| #"d" => ParseDelete.parseDelete (strPos, str, count, app, chrCmd, time)
| #"f" => (* to chr, forward *) NormalMove.toNextChr (app, count, chrCmd)
| #"f" => NormalMove.toNextChr (app, count, chrCmd)
| #"F" =>
(* to chr, backward *)
parseMoveToChr (count, app, Cursor.toPrevChr, chrCmd)