shf/fcore/app-with.sml

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
a bit of refactoring 2024-10-08 08:53:43 +01:00			`structure AppWith =`
			`struct`
			`open AppType`

done refactoring tests 2025-08-20 13:50:57 +01:00			`(* this function exists only for testing *)`
begin scaffolding for adding deletion tests 2025-03-23 07:47:38 +00:00			`fun idx (app, newIdx) =`
			`let`
			`val`
			`{ startLine`
			`, buffer`
progress fixing compile errors resulting from adding 'bufferModifyTime' field (fixed normal-mode move expressions) 2025-08-20 12:50:39 +01:00			`, bufferModifyTime`
begin scaffolding for adding deletion tests 2025-03-23 07:47:38 +00:00			`, searchList`
begin adding tests for regex 2025-10-09 05:34:32 +01:00			`, dfa`
begin scaffolding for adding deletion tests 2025-03-23 07:47:38 +00:00			`, mode`
			`, windowWidth`
			`, windowHeight`
			`, msgs`
copy new file order from shf.mlb to shf-tests.mlb, and remove split-string tests because we have tried to refactor string-search logic to be separate from the data structure 2025-09-16 01:25:27 +01:00			`, visualScrollColumn`
begin scaffolding for adding deletion tests 2025-03-23 07:47:38 +00:00			`, cursorIdx = _`
			`} = app`
			`in`
			`{ startLine = startLine`
			`, buffer = buffer`
progress fixing compile errors resulting from adding 'bufferModifyTime' field (fixed normal-mode move expressions) 2025-08-20 12:50:39 +01:00			`, bufferModifyTime = bufferModifyTime`
begin scaffolding for adding deletion tests 2025-03-23 07:47:38 +00:00			`, searchList = searchList`
begin adding tests for regex 2025-10-09 05:34:32 +01:00			`, dfa = dfa`
begin scaffolding for adding deletion tests 2025-03-23 07:47:38 +00:00			`, mode = mode`
			`, windowWidth = windowWidth`
			`, windowHeight = windowHeight`
			`, msgs = msgs`
copy new file order from shf.mlb to shf-tests.mlb, and remove split-string tests because we have tried to refactor string-search logic to be separate from the data structure 2025-09-16 01:25:27 +01:00			`, visualScrollColumn = visualScrollColumn`
begin scaffolding for adding deletion tests 2025-03-23 07:47:38 +00:00			`, cursorIdx = newIdx`
			`}`
			`end`
a bit of refactoring 2024-10-08 08:53:43 +01:00			`end`