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

remove a couple of unneded functions

Browse Source
This commit is contained in:
Humza Shahid
2025-08-03 14:32:44 +01:00
parent ff9d61bba0
commit 9662540889
2 changed files with 2 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
fcore/app-update.sml
View File

@@ -805,12 +805,8 @@ struct
| #"W" => deleteByDfa (app, count, Cursor.nextWORD)
| #"b" => deleteByDfa (app, count, Cursor.prevWord)
| #"B" => deleteByDfa (app, count, Cursor.prevWORD)
(* todo: fix as 'plusOne' needs reimplementing
| #"e" => deleteByDfa (app, count, Cursor.endOfWordPlusOne)
| #"E" => deleteByDfa (app, count, Cursor.endOfWORDPlusOne)
*)
| #"e" => deleteByDfa (app, count, Cursor.endOfWord)
| #"E" => deleteByDfa (app, count, Cursor.endOfWORD)
| #"0" => delete (app, 1, Cursor.vi0)
| #"$" => deleteToEndOfLine app
| #"^" => deleteToFirstNonSpaceChr app

11
fcore/cursor.sml
View File

@@ -733,17 +733,6 @@ struct
(* equivalent of vi's `E` command *)
val endOfWORD = ViWORDDfa.endOfCurrentWORD
(* vi's 'e' command takes user last char in word
* but 'de' deletes up to and including last char of word
* So we need to increment by one for deletion. *)
fun endOfWordPlusOne (lineGap, cursorIdx) =
(* todo: fix *)
endOfWord (lineGap, cursorIdx, 1) + 1
fun endOfWORDPlusOne (lineGap, cursorIdx) =
(* todo: fix *)
endOfWORD (lineGap, cursorIdx, 1) + 1
fun helpFirstNonSpaceChr (strPos, str, absIdx, stl, ltl) =
if strPos = String.size str then
case (stl, ltl) of