initial implementation of building search list

2024-11-15 05:37:53 +00:00
parent f279dc0937
commit cac0d02fab
5 changed files with 117 additions and 0 deletions
--- a/fcore/app-with.sml
+++ b/fcore/app-with.sml
@@ -98,4 +98,28 @@ struct
      , startLine = startLine
      }
    end
+
+  fun searchListAndBuffer (app: app_type, newSearchList, newBuffer) =
+    let
+      val
+        { searchList = _
+        , buffer = _
+        , mode
+        , searchString
+        , cursorIdx
+        , windowWidth
+        , windowHeight
+        , startLine
+        } = app
+    in
+      { searchList = newSearchList
+      , buffer = newBuffer
+      , mode = mode
+      , searchString = searchString
+      , cursorIdx = cursorIdx
+      , windowWidth = windowWidth
+      , windowHeight = windowHeight
+      , startLine = startLine
+      }
+    end
 end