add another helper function for deletion to line_gap.sml

2024-07-09 23:45:35 +01:00
parent 8d540f4df9
commit 19c5501777
1 changed files with 40 additions and 0 deletions
--- a/src/line_gap.sml
+++ b/src/line_gap.sml
@@ -1450,6 +1450,46 @@ struct
        , rightLines = rightLines
        }

+  fun deleteFromLetAndRight
+    ( start
+    , finish
+    , curIdx
+    , curLine
+    , leftStrings
+    , leftLines
+    , rightStrings
+    , rightLines
+    ) =
+    let
+      val
+        { idx = curIdx
+        , line = curLine
+        , leftStrings
+        , leftLines
+        , rightStrings
+        , rightLines
+        } = deleteRightFromHere
+        ( curIdx
+        , curLine
+        , curIdx
+        , finish
+        , leftStrings
+        , leftLines
+        , rightStrings
+        , rightLines
+        )
+    in
+      deleteLeftFromHere
+        ( start
+        , curIdx
+        , curLine
+        , leftStrings
+        , leftLines
+        , rightStrings
+        , rightLines
+        )
+    end
+

  (* TEST CODE *)
  local