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

fix further compiler errors

Browse Source
This commit is contained in:
Humza Shahid
2025-09-12 13:47:14 +01:00
parent 052f0efe16
commit 2ad7623848
4 changed files with 36 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
fcore/normal-mode/normal-move.sml
View File

@@ -2,7 +2,7 @@ structure NormalMove =
struct
open AppType
fun moveToStart (app: app_type) =
fun moveToStart (app: app_type) : AppType.app_type =
let
val
{ buffer
@@ -30,7 +30,8 @@ struct
, visualScrollColumn
)
val drawMsg = Vector.concat drawMsg
val drawMsg = [DrawMsg.DRAW_TEXT drawMsg]
val drawMsg = DrawMsg.DRAW_TEXT drawMsg
val drawMsg = [MailboxType.DRAW drawMsg]
val mode = NORMAL_MODE ""
in
@@ -92,7 +93,8 @@ struct
, visualScrollColumn
)
val drawMsg = Vector.concat drawMsg
val drawMsg = [DrawMsg.DRAW_TEXT drawMsg]
val drawMsg = DrawMsg.DRAW_TEXT drawMsg
val drawMsg = [MailboxType.DRAW drawMsg]
val mode = NORMAL_MODE ""
in
@@ -148,7 +150,8 @@ struct
, visualScrollColumn
)
val drawMsg = Vector.concat drawMsg
val drawMsg = [DrawMsg.DRAW_TEXT drawMsg]
val drawMsg = DrawMsg.DRAW_TEXT drawMsg
val drawMsg = [MailboxType.DRAW drawMsg]
val mode = NORMAL_MODE ""
in
@@ -207,7 +210,8 @@ struct
, visualScrollColumn
)
val drawMsg = Vector.concat drawMsg
val drawMsg = [DrawMsg.DRAW_TEXT drawMsg]
val drawMsg = DrawMsg.DRAW_TEXT drawMsg
val drawMsg = [MailboxType.DRAW drawMsg]
in
NormalModeWith.bufferAndCursorIdx
( app
@@ -269,7 +273,14 @@ struct
fun moveToNextMatch (app: app_type, count) =
let
val {cursorIdx, searchList, buffer, bufferModifyTime, ...} = app
val
{ cursorIdx
, searchList
, buffer
, bufferModifyTime
, visualScrollColumn
, ...
} = app
val newCursorIdx = SearchList.nextMatch (cursorIdx, searchList, count)
in
if newCursorIdx = ~1 then