shf/fcore/normal-mode/normal-search-mode-with.sml

structure NormalSearchModeWith =
struct
  open AppType

  fun returnToNormalMode
    ( app: app_type
    , newBuffer
    , newSearchList
    , newStartLine
    , newMode
    , newDfa
    , newMsgs
    ) =
    let
      val
        { mode = _
        , buffer = _
        , searchList = _
        , startLine = _
        , msgs = _
        , dfa = _
        , bufferModifyTime
        , windowWidth
        , windowHeight
        , cursorIdx
        , visualScrollColumn
        } = app
    in
      { mode = newMode
      , buffer = newBuffer
      , searchList = newSearchList
      , startLine = newStartLine
      , dfa = newDfa
      , bufferModifyTime = bufferModifyTime
      , msgs = newMsgs
      , windowWidth = windowWidth
      , windowHeight = windowHeight
      , cursorIdx = cursorIdx
      , visualScrollColumn = visualScrollColumn
      }
    end

  fun changeTempSearchString
    (app: app_type, newBuffer, newStartLine, newMode, newMsgs) =
    let
      val
        { mode = _
        , buffer = _
        , searchList
        , startLine = _
        , msgs = _
        , bufferModifyTime
        , windowWidth
        , windowHeight
        , cursorIdx
        , visualScrollColumn
        , dfa
        } = app
    in
      { mode = newMode
      , buffer = newBuffer
      , startLine = newStartLine
      , msgs = newMsgs
      , searchList = searchList
      , bufferModifyTime = bufferModifyTime
      , windowWidth = windowWidth
      , windowHeight = windowHeight
      , cursorIdx = cursorIdx
      , visualScrollColumn = visualScrollColumn
      , dfa = dfa
      }
    end

  fun searchList (app: app_type, newSearchList) =
    let
      val
        { mode
        , buffer
        , searchList = _
        , startLine
        , msgs
        , bufferModifyTime
        , windowWidth
        , windowHeight
        , cursorIdx
        , visualScrollColumn
        , dfa
        } = app
    in
      { mode = mode
      , searchList = newSearchList
      , buffer = buffer
      , startLine = startLine
      , msgs = msgs
      , bufferModifyTime = bufferModifyTime
      , windowWidth = windowWidth
      , windowHeight = windowHeight
      , cursorIdx = cursorIdx
      , visualScrollColumn = visualScrollColumn
      , dfa = dfa
      }
    end

  fun bufferAndSize
    ( app: app_type
    , newMode
    , newBuffer
    , newWindowWidth
    , newWindowHeight
    , newMsgs
    ) =
    let
      val
        { mode = _
        , windowWidth = _
        , windowHeight = _
        , msgs = _
        , buffer = _
        , searchList
        , startLine
        , bufferModifyTime
        , cursorIdx
        , visualScrollColumn
        , dfa
        } = app
    in
      { mode = newMode
      , buffer = newBuffer
      , windowWidth = newWindowWidth
      , windowHeight = newWindowHeight
      , msgs = newMsgs
      , searchList = searchList
      , startLine = startLine
      , bufferModifyTime = bufferModifyTime
      , cursorIdx = cursorIdx
      , visualScrollColumn = visualScrollColumn
      , dfa = dfa
      }
    end
end
add functionality to return from NORMAL_SEARCH_MODE back to NORMAL_MODE, saving new search string and new search list 2025-08-31 07:40:31 +01:00			`structure NormalSearchModeWith =`
			`struct`
			`open AppType`

			`fun returnToNormalMode`
			`( app: app_type`
			`, newBuffer`
			`, newSearchList`
			`, newStartLine`
			`, newMode`
add dfa field to app_type so that we don't rebuild DFA each time we want to execute a search again (like after deleting) 2025-10-08 05:02:15 +01:00			`, newDfa`
add functionality to return from NORMAL_SEARCH_MODE back to NORMAL_MODE, saving new search string and new search list 2025-08-31 07:40:31 +01:00			`, newMsgs`
			`) =`
			`let`
			`val`
			`{ mode = _`
			`, buffer = _`
			`, searchList = _`
			`, startLine = _`
			`, msgs = _`
add dfa field to app_type so that we don't rebuild DFA each time we want to execute a search again (like after deleting) 2025-10-08 05:02:15 +01:00			`, dfa = _`
add functionality to return from NORMAL_SEARCH_MODE back to NORMAL_MODE, saving new search string and new search list 2025-08-31 07:40:31 +01:00			`, bufferModifyTime`
			`, windowWidth`
			`, windowHeight`
			`, cursorIdx`
add visualScrollColumn' field to app type, which will record the scroll position for us 2025-09-11 15:26:30 +01:00			`, visualScrollColumn`
add functionality to return from NORMAL_SEARCH_MODE back to NORMAL_MODE, saving new search string and new search list 2025-08-31 07:40:31 +01:00			`} = app`
			`in`
			`{ mode = newMode`
			`, buffer = newBuffer`
			`, searchList = newSearchList`
			`, startLine = newStartLine`
add dfa field to app_type so that we don't rebuild DFA each time we want to execute a search again (like after deleting) 2025-10-08 05:02:15 +01:00			`, dfa = newDfa`
add functionality to return from NORMAL_SEARCH_MODE back to NORMAL_MODE, saving new search string and new search list 2025-08-31 07:40:31 +01:00			`, bufferModifyTime = bufferModifyTime`
			`, msgs = newMsgs`
			`, windowWidth = windowWidth`
			`, windowHeight = windowHeight`
			`, cursorIdx = cursorIdx`
add visualScrollColumn' field to app type, which will record the scroll position for us 2025-09-11 15:26:30 +01:00			`, visualScrollColumn = visualScrollColumn`
add functionality to return from NORMAL_SEARCH_MODE back to NORMAL_MODE, saving new search string and new search list 2025-08-31 07:40:31 +01:00			`}`
			`end`
extract reusable function which can be used when a search string is changed, in NORMAL_SEARCH_MODE 2025-09-01 02:18:23 +01:00
			`fun changeTempSearchString`
			`(app: app_type, newBuffer, newStartLine, newMode, newMsgs) =`
			`let`
			`val`
			`{ mode = _`
			`, buffer = _`
			`, searchList`
			`, startLine = _`
			`, msgs = _`
			`, bufferModifyTime`
			`, windowWidth`
			`, windowHeight`
			`, cursorIdx`
add visualScrollColumn' field to app type, which will record the scroll position for us 2025-09-11 15:26:30 +01:00			`, visualScrollColumn`
add dfa field to app_type so that we don't rebuild DFA each time we want to execute a search again (like after deleting) 2025-10-08 05:02:15 +01:00			`, dfa`
extract reusable function which can be used when a search string is changed, in NORMAL_SEARCH_MODE 2025-09-01 02:18:23 +01:00			`} = app`
			`in`
			`{ mode = newMode`
			`, buffer = newBuffer`
			`, startLine = newStartLine`
			`, msgs = newMsgs`
			`, searchList = searchList`
			`, bufferModifyTime = bufferModifyTime`
			`, windowWidth = windowWidth`
			`, windowHeight = windowHeight`
			`, cursorIdx = cursorIdx`
add visualScrollColumn' field to app type, which will record the scroll position for us 2025-09-11 15:26:30 +01:00			`, visualScrollColumn = visualScrollColumn`
add dfa field to app_type so that we don't rebuild DFA each time we want to execute a search again (like after deleting) 2025-10-08 05:02:15 +01:00			`, dfa = dfa`
extract reusable function which can be used when a search string is changed, in NORMAL_SEARCH_MODE 2025-09-01 02:18:23 +01:00			`}`
			`end`
handle resize event and concurrent (permanent and full) search result in NORMAL_SEARCH_MODE 2025-09-01 12:52:26 +01:00
			`fun searchList (app: app_type, newSearchList) =`
			`let`
			`val`
			`{ mode`
			`, buffer`
			`, searchList = _`
			`, startLine`
			`, msgs`
			`, bufferModifyTime`
			`, windowWidth`
			`, windowHeight`
			`, cursorIdx`
add visualScrollColumn' field to app type, which will record the scroll position for us 2025-09-11 15:26:30 +01:00			`, visualScrollColumn`
add dfa field to app_type so that we don't rebuild DFA each time we want to execute a search again (like after deleting) 2025-10-08 05:02:15 +01:00			`, dfa`
handle resize event and concurrent (permanent and full) search result in NORMAL_SEARCH_MODE 2025-09-01 12:52:26 +01:00			`} = app`
			`in`
			`{ mode = mode`
			`, searchList = newSearchList`
			`, buffer = buffer`
			`, startLine = startLine`
			`, msgs = msgs`
			`, bufferModifyTime = bufferModifyTime`
			`, windowWidth = windowWidth`
			`, windowHeight = windowHeight`
			`, cursorIdx = cursorIdx`
add visualScrollColumn' field to app type, which will record the scroll position for us 2025-09-11 15:26:30 +01:00			`, visualScrollColumn = visualScrollColumn`
add dfa field to app_type so that we don't rebuild DFA each time we want to execute a search again (like after deleting) 2025-10-08 05:02:15 +01:00			`, dfa = dfa`
handle resize event and concurrent (permanent and full) search result in NORMAL_SEARCH_MODE 2025-09-01 12:52:26 +01:00			`}`
			`end`

			`fun bufferAndSize`
a few bug fixes to NORMAL_SEARCH_MODE: the main one is that we were passing the general searchString to the resize function before, and we were drawing the wrong string because of that; another bug fix is that, on resizing, we have to update the mode to contain the recalculated searchScrollColumn 2025-09-14 10:28:42 +01:00			`( app: app_type`
			`, newMode`
			`, newBuffer`
			`, newWindowWidth`
			`, newWindowHeight`
			`, newMsgs`
			`) =`
handle resize event and concurrent (permanent and full) search result in NORMAL_SEARCH_MODE 2025-09-01 12:52:26 +01:00			`let`
			`val`
a few bug fixes to NORMAL_SEARCH_MODE: the main one is that we were passing the general searchString to the resize function before, and we were drawing the wrong string because of that; another bug fix is that, on resizing, we have to update the mode to contain the recalculated searchScrollColumn 2025-09-14 10:28:42 +01:00			`{ mode = _`
handle resize event and concurrent (permanent and full) search result in NORMAL_SEARCH_MODE 2025-09-01 12:52:26 +01:00			`, windowWidth = _`
			`, windowHeight = _`
			`, msgs = _`
			`, buffer = _`
			`, searchList`
			`, startLine`
			`, bufferModifyTime`
			`, cursorIdx`
add visualScrollColumn' field to app type, which will record the scroll position for us 2025-09-11 15:26:30 +01:00			`, visualScrollColumn`
add dfa field to app_type so that we don't rebuild DFA each time we want to execute a search again (like after deleting) 2025-10-08 05:02:15 +01:00			`, dfa`
handle resize event and concurrent (permanent and full) search result in NORMAL_SEARCH_MODE 2025-09-01 12:52:26 +01:00			`} = app`
			`in`
a few bug fixes to NORMAL_SEARCH_MODE: the main one is that we were passing the general searchString to the resize function before, and we were drawing the wrong string because of that; another bug fix is that, on resizing, we have to update the mode to contain the recalculated searchScrollColumn 2025-09-14 10:28:42 +01:00			`{ mode = newMode`
handle resize event and concurrent (permanent and full) search result in NORMAL_SEARCH_MODE 2025-09-01 12:52:26 +01:00			`, buffer = newBuffer`
			`, windowWidth = newWindowWidth`
			`, windowHeight = newWindowHeight`
			`, msgs = newMsgs`
			`, searchList = searchList`
			`, startLine = startLine`
			`, bufferModifyTime = bufferModifyTime`
			`, cursorIdx = cursorIdx`
add visualScrollColumn' field to app type, which will record the scroll position for us 2025-09-11 15:26:30 +01:00			`, visualScrollColumn = visualScrollColumn`
add dfa field to app_type so that we don't rebuild DFA each time we want to execute a search again (like after deleting) 2025-10-08 05:02:15 +01:00			`, dfa = dfa`
handle resize event and concurrent (permanent and full) search result in NORMAL_SEARCH_MODE 2025-09-01 12:52:26 +01:00			`}`
			`end`
add functionality to return from NORMAL_SEARCH_MODE back to NORMAL_MODE, saving new search string and new search list 2025-08-31 07:40:31 +01:00			`end`