implement a couple of more yank operations

2025-09-02 11:35:29 +01:00
parent 1d631a708c
commit a90cdf7943
2 changed files with 77 additions and 13 deletions
--- a/fcore/normal-mode/normal-mode-with.sml
+++ b/fcore/normal-mode/normal-mode-with.sml
@@ -103,6 +103,35 @@ struct
      }
    end

+  fun modeAndBuffer (app: app_type, newBuffer, newMode, newMsgs) =
+    let
+      val
+        { mode = _
+        , msgs = _
+        , buffer = _
+        , bufferModifyTime
+        , searchList
+        , searchString
+        , cursorIdx
+        , windowWidth
+        , windowHeight
+        , startLine
+        } = app
+    in
+      { mode = newMode
+      , msgs = newMsgs
+      , buffer = newBuffer
+      , bufferModifyTime = bufferModifyTime
+      , searchList = searchList
+      , searchString = searchString
+      , cursorIdx = cursorIdx
+      , windowWidth = windowWidth
+      , windowHeight = windowHeight
+      , startLine = startLine
+      }
+    end
+
+
  fun searchList
    ( app: app_type
    , newSearchList