Add 'shf/' from commit 'b6c5a95b664aeb861d7b33ffc9eefe447ba99dd7'

git-subtree-dir: shf
git-subtree-mainline: 401408448f
git-subtree-split: b6c5a95b66

shf/fcore/app-with.sml

@@ -0,0 +1,35 @@
+structure AppWith =
+struct
+  open AppType
+
+  (* this function exists only for testing *)
+  fun idx (app, newIdx) =
+    let
+      val
+        { startLine
+        , buffer
+        , bufferModifyTime
+        , searchList
+        , dfa
+        , mode
+        , windowWidth
+        , windowHeight
+        , msgs
+        , visualScrollColumn
+        , cursorIdx = _
+        } = app
+    in
+      { startLine = startLine
+      , buffer = buffer
+      , bufferModifyTime = bufferModifyTime
+      , searchList = searchList
+      , dfa = dfa
+      , mode = mode
+      , windowWidth = windowWidth
+      , windowHeight = windowHeight
+      , msgs = msgs
+      , visualScrollColumn = visualScrollColumn
+      , cursorIdx = newIdx
+      }
+    end
+end