in TextBuilder, forgot to build cursor when cursorIdx is over space, so now we build cursor when cursorIdx is over space

2024-10-17 02:14:09 +01:00
parent c77777cc09
commit 21652a5381
4 changed files with 67 additions and 13 deletions
--- a/fcore/app-with.sml
+++ b/fcore/app-with.sml
@@ -14,4 +14,17 @@ struct
      , cursorIdx = cursorIdx
      }
    end
+
+  fun bufferAndCursorIdx (app: app_type, newBuffer, newCursorIdx) =
+    let
+      val {buffer = _, cursorIdx = _, windowWidth, windowHeight, startLine} =
+        app
+    in
+      { buffer = newBuffer
+      , cursorIdx = newCursorIdx
+      , windowWidth = windowWidth
+      , windowHeight = windowHeight
+      , startLine = startLine
+      }
+    end
 end