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

a bit of refactoring

Browse Source
This commit is contained in:
Humza Shahid
2025-07-20 09:56:32 +01:00
parent 10b76d98c5
commit cf15077480
3 changed files with 31 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
fcore/cursor.sml
View File

@@ -886,7 +886,7 @@ struct
toNextWord (lineGap, cursorIdx, helpNextWord)
(* equivalent of vi's 'W' command *)
val nextWORD = ViWORDDfa.next
val nextWORD = ViWORDDfa.startOfNextWORD
fun helpPrevWord (strPos, str, absIdx, strTl, lineTl) =
if strPos < 0 then
@@ -1077,8 +1077,7 @@ struct
toEndOfPrevWord (lineGap, cursorIdx, helpEndOfPrevWord)
(* equivalent of vi's 'gE' command *)
fun endOfPrevWORD (lineGap, cursorIdx) =
toEndOfPrevWord (lineGap, cursorIdx, helpEndOfPrevWORD)
val endOfPrevWORD = ViWORDDfa.endOfPrevWORD
fun helpEndOfWord (strPos, str, absIdx, stl, ltl) =
if strPos = String.size str then