fcore/app-with.sml

structure AppWith =
struct
  open AppType

  fun bufferAndSize
    ( app: app_type
    , newBuffer
    , newWidth
    , newHeight
    , newSearchList
    , newMsgs
    , newBufferModifyTime
    ) =
    let
      val
        { mode
        , buffer = _
        , bufferModifyTime = _
        , windowWidth = _
        , windowHeight = _
        , searchList = _
        , msgs = _
        , searchString
        , startLine
        , cursorIdx
        } = app
    in
      { mode = mode
      , buffer = newBuffer
      , bufferModifyTime = newBufferModifyTime
      , windowWidth = newWidth
      , windowHeight = newHeight
      , searchList = newSearchList
      , msgs = newMsgs
      , searchString = searchString
      , startLine = startLine
      , cursorIdx = cursorIdx
      }
    end

  fun bufferAndCursorIdx
    ( app: app_type
    , newBuffer
    , newCursorIdx
    , newMode
    , newStartLine
    , newSearchList
    , newMsgs
    , newBufferModifyTime
    ) =
    let
      val
        { mode = _
        , buffer = _
        , bufferModifyTime = _
        , cursorIdx = _
        , startLine = _
        , searchList = _
        , msgs = _
        , searchString
        , windowWidth
        , windowHeight
        } = app
    in
      { mode = newMode
      , buffer = newBuffer
      , bufferModifyTime = newBufferModifyTime
      , cursorIdx = newCursorIdx
      , startLine = newStartLine
      , searchList = newSearchList
      , msgs = newMsgs
      , searchString = searchString
      , windowWidth = windowWidth
      , windowHeight = windowHeight
      }
    end

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

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

  (* this function exists only for testing *)
  fun idx (app, newIdx) =
    let
      val
        { startLine
        , buffer
        , bufferModifyTime
        , searchList
        , searchString
        , mode
        , windowWidth
        , windowHeight
        , msgs
        , cursorIdx = _
        } = app
    in
      { startLine = startLine
      , buffer = buffer
      , bufferModifyTime = bufferModifyTime
      , searchList = searchList
      , searchString = searchString
      , mode = mode
      , windowWidth = windowWidth
      , windowHeight = windowHeight
      , msgs = msgs
      , cursorIdx = newIdx
      }
    end
end
a bit of refactoring 2024-10-08 08:53:43 +01:00			`structure AppWith =`
			`struct`
			`open AppType`

address todo in text-builder.sml by adding prerequisite: always call SearchList.goToNum before calling TextBuilder.build 2024-11-25 04:37:47 +00:00			`fun bufferAndSize`
formating 2025-08-20 12:51:31 +01:00			`( app: app_type`
			`, newBuffer`
			`, newWidth`
			`, newHeight`
			`, newSearchList`
			`, newMsgs`
			`, newBufferModifyTime`
			`) =`
a bit of refactoring 2024-10-08 08:53:43 +01:00			`let`
add mode type to app type (equivalent of vi's normal mode, visual mode, insert mode, etc.) 2024-10-26 04:46:05 +01:00			`val`
			`{ mode`
			`, buffer = _`
progress fixing compile errors resulting from adding 'bufferModifyTime' field (fixed normal-mode move expressions) 2025-08-20 12:50:39 +01:00			`, bufferModifyTime = _`
add mode type to app type (equivalent of vi's normal mode, visual mode, insert mode, etc.) 2024-10-26 04:46:05 +01:00			`, windowWidth = _`
			`, windowHeight = _`
address todo in text-builder.sml by adding prerequisite: always call SearchList.goToNum before calling TextBuilder.build 2024-11-25 04:37:47 +00:00			`, searchList = _`
move msgs into AppType.app_type, and refactor AppUpdate.update function to have type (app_type -> app_type) instead of pervious case which was (app_type -> app_type * MailboxType.t list). Reason: no need to allocate/return tuple when can store messages in type directly; previous msg list will be reset after each app update. All tests after refactor are passing. 2024-12-17 10:40:06 +00:00			`, msgs = _`
add search list to app type 2024-11-14 08:12:27 +00:00			`, searchString`
add mode type to app type (equivalent of vi's normal mode, visual mode, insert mode, etc.) 2024-10-26 04:46:05 +01:00			`, startLine`
			`, cursorIdx`
			`} = app`
a bit of refactoring 2024-10-08 08:53:43 +01:00			`in`
add mode type to app type (equivalent of vi's normal mode, visual mode, insert mode, etc.) 2024-10-26 04:46:05 +01:00			`{ mode = mode`
			`, buffer = newBuffer`
progress fixing compile errors resulting from adding 'bufferModifyTime' field (fixed normal-mode move expressions) 2025-08-20 12:50:39 +01:00			`, bufferModifyTime = newBufferModifyTime`
a bit of refactoring 2024-10-08 08:53:43 +01:00			`, windowWidth = newWidth`
			`, windowHeight = newHeight`
address todo in text-builder.sml by adding prerequisite: always call SearchList.goToNum before calling TextBuilder.build 2024-11-25 04:37:47 +00:00			`, searchList = newSearchList`
move msgs into AppType.app_type, and refactor AppUpdate.update function to have type (app_type -> app_type) instead of pervious case which was (app_type -> app_type * MailboxType.t list). Reason: no need to allocate/return tuple when can store messages in type directly; previous msg list will be reset after each app update. All tests after refactor are passing. 2024-12-17 10:40:06 +00:00			`, msgs = newMsgs`
add search list to app type 2024-11-14 08:12:27 +00:00			`, searchString = searchString`
a bit of refactoring 2024-10-08 08:53:43 +01:00			`, startLine = startLine`
add cursorIdx to app type in fcore 2024-10-09 10:59:32 +01:00			`, cursorIdx = cursorIdx`
a bit of refactoring 2024-10-08 08:53:43 +01:00			`}`
			`end`
in TextBuilder, forgot to build cursor when cursorIdx is over space, so now we build cursor when cursorIdx is over space 2024-10-17 02:14:09 +01:00
begin moving text window when cursor goes off screen (currently, we only move the window when cursor goes backwards but this works fine and as expected) 2024-10-28 09:34:55 +00:00			`fun bufferAndCursorIdx`
ensure that searchList is deleted from when calling delete functions other than 'helpRemoveChr' 2024-11-23 06:10:40 +00:00			`( app: app_type`
			`, newBuffer`
			`, newCursorIdx`
			`, newMode`
			`, newStartLine`
			`, newSearchList`
move msgs into AppType.app_type, and refactor AppUpdate.update function to have type (app_type -> app_type) instead of pervious case which was (app_type -> app_type * MailboxType.t list). Reason: no need to allocate/return tuple when can store messages in type directly; previous msg list will be reset after each app update. All tests after refactor are passing. 2024-12-17 10:40:06 +00:00			`, newMsgs`
progress fixing compile errors resulting from adding 'bufferModifyTime' field (fixed normal-mode move expressions) 2025-08-20 12:50:39 +01:00			`, newBufferModifyTime`
ensure that searchList is deleted from when calling delete functions other than 'helpRemoveChr' 2024-11-23 06:10:40 +00:00			`) =`
simplify and rewrite function 'del' in search-list.sml 2024-11-16 08:33:26 +00:00			`let`
			`val`
			`{ mode = _`
			`, buffer = _`
progress fixing compile errors resulting from adding 'bufferModifyTime' field (fixed normal-mode move expressions) 2025-08-20 12:50:39 +01:00			`, bufferModifyTime = _`
simplify and rewrite function 'del' in search-list.sml 2024-11-16 08:33:26 +00:00			`, cursorIdx = _`
			`, startLine = _`
			`, searchList = _`
move msgs into AppType.app_type, and refactor AppUpdate.update function to have type (app_type -> app_type) instead of pervious case which was (app_type -> app_type * MailboxType.t list). Reason: no need to allocate/return tuple when can store messages in type directly; previous msg list will be reset after each app update. All tests after refactor are passing. 2024-12-17 10:40:06 +00:00			`, msgs = _`
simplify and rewrite function 'del' in search-list.sml 2024-11-16 08:33:26 +00:00			`, searchString`
			`, windowWidth`
			`, windowHeight`
			`} = app`
			`in`
			`{ mode = newMode`
			`, buffer = newBuffer`
progress fixing compile errors resulting from adding 'bufferModifyTime' field (fixed normal-mode move expressions) 2025-08-20 12:50:39 +01:00			`, bufferModifyTime = newBufferModifyTime`
simplify and rewrite function 'del' in search-list.sml 2024-11-16 08:33:26 +00:00			`, cursorIdx = newCursorIdx`
			`, startLine = newStartLine`
			`, searchList = newSearchList`
move msgs into AppType.app_type, and refactor AppUpdate.update function to have type (app_type -> app_type) instead of pervious case which was (app_type -> app_type * MailboxType.t list). Reason: no need to allocate/return tuple when can store messages in type directly; previous msg list will be reset after each app update. All tests after refactor are passing. 2024-12-17 10:40:06 +00:00			`, msgs = newMsgs`
simplify and rewrite function 'del' in search-list.sml 2024-11-16 08:33:26 +00:00			`, searchString = searchString`
			`, windowWidth = windowWidth`
			`, windowHeight = windowHeight`
			`}`
			`end`

move msgs into AppType.app_type, and refactor AppUpdate.update function to have type (app_type -> app_type) instead of pervious case which was (app_type -> app_type * MailboxType.t list). Reason: no need to allocate/return tuple when can store messages in type directly; previous msg list will be reset after each app update. All tests after refactor are passing. 2024-12-17 10:40:06 +00:00			`fun mode (app: app_type, newMode, newMsgs) =`
progress parsing normal mode commands 2024-10-26 06:01:48 +01:00			`let`
add search list to app type 2024-11-14 08:12:27 +00:00			`val`
			`{ mode = _`
move msgs into AppType.app_type, and refactor AppUpdate.update function to have type (app_type -> app_type) instead of pervious case which was (app_type -> app_type * MailboxType.t list). Reason: no need to allocate/return tuple when can store messages in type directly; previous msg list will be reset after each app update. All tests after refactor are passing. 2024-12-17 10:40:06 +00:00			`, msgs = _`
add search list to app type 2024-11-14 08:12:27 +00:00			`, buffer`
progress fixing compile errors resulting from adding 'bufferModifyTime' field (fixed normal-mode move expressions) 2025-08-20 12:50:39 +01:00			`, bufferModifyTime`
add search list to app type 2024-11-14 08:12:27 +00:00			`, searchList`
			`, searchString`
			`, cursorIdx`
			`, windowWidth`
			`, windowHeight`
			`, startLine`
			`} = app`
progress parsing normal mode commands 2024-10-26 06:01:48 +01:00			`in`
			`{ mode = newMode`
move msgs into AppType.app_type, and refactor AppUpdate.update function to have type (app_type -> app_type) instead of pervious case which was (app_type -> app_type * MailboxType.t list). Reason: no need to allocate/return tuple when can store messages in type directly; previous msg list will be reset after each app update. All tests after refactor are passing. 2024-12-17 10:40:06 +00:00			`, msgs = newMsgs`
progress parsing normal mode commands 2024-10-26 06:01:48 +01:00			`, 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`
add search list to app type 2024-11-14 08:12:27 +00:00			`, searchList = searchList`
			`, searchString = searchString`
progress parsing normal mode commands 2024-10-26 06:01:48 +01:00			`, cursorIdx = cursorIdx`
			`, windowWidth = windowWidth`
			`, windowHeight = windowHeight`
			`, startLine = startLine`
			`}`
			`end`
initial implementation of building search list 2024-11-15 05:37:53 +00:00
formating 2025-08-20 12:51:31 +01:00			`fun searchList`
			`( app: app_type`
			`, newSearchList`
			`, newBuffer`
			`, newSearchString`
			`, newBufferModifyTime`
			`) =`
initial implementation of building search list 2024-11-15 05:37:53 +00:00			`let`
			`val`
			`{ searchList = _`
			`, buffer = _`
progress fixing compile errors resulting from adding 'bufferModifyTime' field (fixed normal-mode move expressions) 2025-08-20 12:50:39 +01:00			`, bufferModifyTime`
when buildinng search list, also save searchString into app 2024-11-15 05:40:57 +00:00			`, searchString = _`
move msgs into AppType.app_type, and refactor AppUpdate.update function to have type (app_type -> app_type) instead of pervious case which was (app_type -> app_type * MailboxType.t list). Reason: no need to allocate/return tuple when can store messages in type directly; previous msg list will be reset after each app update. All tests after refactor are passing. 2024-12-17 10:40:06 +00:00			`, msgs`
initial implementation of building search list 2024-11-15 05:37:53 +00:00			`, mode`
			`, cursorIdx`
			`, windowWidth`
			`, windowHeight`
			`, startLine`
			`} = app`
			`in`
			`{ searchList = newSearchList`
			`, buffer = newBuffer`
progress fixing compile errors resulting from adding 'bufferModifyTime' field (fixed normal-mode move expressions) 2025-08-20 12:50:39 +01:00			`, bufferModifyTime = newBufferModifyTime`
when buildinng search list, also save searchString into app 2024-11-15 05:40:57 +00:00			`, searchString = newSearchString`
move msgs into AppType.app_type, and refactor AppUpdate.update function to have type (app_type -> app_type) instead of pervious case which was (app_type -> app_type * MailboxType.t list). Reason: no need to allocate/return tuple when can store messages in type directly; previous msg list will be reset after each app update. All tests after refactor are passing. 2024-12-17 10:40:06 +00:00			`, msgs = msgs`
initial implementation of building search list 2024-11-15 05:37:53 +00:00			`, mode = mode`
			`, cursorIdx = cursorIdx`
			`, windowWidth = windowWidth`
			`, windowHeight = windowHeight`
			`, startLine = startLine`
			`}`
			`end`
begin scaffolding for adding deletion tests 2025-03-23 07:47:38 +00:00
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`
			`, searchString`
			`, mode`
			`, windowWidth`
			`, windowHeight`
			`, msgs`
			`, 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`
			`, searchString = searchString`
			`, mode = mode`
			`, windowWidth = windowWidth`
			`, windowHeight = windowHeight`
			`, msgs = msgs`
			`, cursorIdx = newIdx`
			`}`
			`end`
a bit of refactoring 2024-10-08 08:53:43 +01:00			`end`