humza/sml-projects
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

move buffer around when calling 'SearchList.buildRange'

Browse Source
This commit is contained in:
Humza Shahid
2025-09-30 05:40:57 +01:00
parent e03eecf940
commit 45fbd85183
4 changed files with 18 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
fcore/normal-mode/make-normal-delete.sml
View File

@@ -17,7 +17,8 @@ struct
val msgs = SEARCH (buffer, searchString, time) :: msgs
val buffer = LineGap.goToIdx (low - 1111, buffer)
val searchList = SearchList.buildRange (buffer, searchString, low + 1111)
val (buffer, searchList) =
SearchList.buildRange (buffer, searchString, low + 1111)
val buffer = LineGap.goToIdx (low, buffer)
in
@@ -239,7 +240,7 @@ struct
val initialMsg = SEARCH (buffer, searchString, time) :: initialMsg
val buffer = LineGap.goToIdx (cursorIdx - 1111, buffer)
val searchList =
val (buffer, searchList) =
SearchList.buildRange (buffer, searchString, cursorIdx + 1111)
(* If we have deleted from the buffer so that cursorIdx
@@ -717,7 +718,7 @@ struct
val initialMsg = SEARCH (buffer, #searchString app, time) :: initialMsg
val buffer = LineGap.goToIdx (cursorIdx - 1111, buffer)
val searchList =
val (buffer, searchList) =
SearchList.buildRange (buffer, searchString, cursorIdx + 1111)
val cursorIdx = 0
@@ -765,7 +766,8 @@ struct
val initialMsg = SEARCH (buffer, searchString, time) :: initialMsg
val buffer = LineGap.goToIdx (low - 1111, buffer)
val searchList = SearchList.buildRange (buffer, searchString, low + 1111)
val (buffer, searchList) =
SearchList.buildRange (buffer, searchString, low + 1111)
val buffer = LineGap.goToIdx (low, buffer)
in
@@ -823,7 +825,7 @@ struct
val initialMsg = SEARCH (buffer, searchString, time) :: initialMsg
val buffer = LineGap.goToIdx (low - 1111, buffer)
val searchList =
val (buffer, searchList) =
SearchList.buildRange (buffer, searchString, low + 1111)
val buffer = LineGap.goToIdx (low, buffer)
@@ -855,7 +857,7 @@ struct
val initialMsg = SEARCH (buffer, searchString, time) :: initialMsg
val buffer = LineGap.goToIdx (low - 1111, buffer)
val searchList =
val (buffer, searchList) =
SearchList.buildRange (buffer, searchString, low + 1111)
val buffer = LineGap.goToIdx (low, buffer)
@@ -884,7 +886,7 @@ struct
val initialMsg = SEARCH (buffer, searchString, time) :: initialMsg
val buffer = LineGap.goToIdx (low - 1111, buffer)
val searchList =
val (buffer, searchList) =
SearchList.buildRange (buffer, searchString, low + 1111)
val buffer = LineGap.goToIdx (origLow, buffer)
@@ -998,7 +1000,7 @@ struct
val initialMsg = SEARCH (buffer, searchString, time) :: initialMsg
val buffer = LineGap.goToIdx (low - 1111, buffer)
val searchList =
val (buffer, searchList) =
SearchList.buildRange (buffer, searchString, low + 1111)
val buffer = LineGap.goToIdx (low, buffer)

5
fcore/normal-mode/normal-search-mode.sml
View File

@@ -29,7 +29,8 @@ struct
val searchCursorIdx = searchCursorIdx + 1
val buffer = LineGap.goToIdx (cursorIdx - 1111, buffer)
val tempSearchList = buildTempSearchList (searchString, buffer, cursorIdx)
val (buffer, tempSearchList) =
buildTempSearchList (searchString, buffer, cursorIdx)
in
NormalSearchFinish.onSearchChanged
( app
@@ -120,7 +121,7 @@ struct
val {cursorIdx, buffer, ...} = app
val buffer = LineGap.goToIdx (cursorIdx - 1111, buffer)
val tempSearchList =
val (buffer, tempSearchList) =
buildTempSearchList (searchString, buffer, cursorIdx)
in
NormalSearchFinish.onSearchChanged