2024-10-08 08:53:43 +01:00
|
|
|
structure AppWith =
|
|
|
|
|
struct
|
|
|
|
|
open AppType
|
|
|
|
|
|
2025-08-20 13:50:57 +01:00
|
|
|
(* this function exists only for testing *)
|
2025-03-23 07:47:38 +00:00
|
|
|
fun idx (app, newIdx) =
|
|
|
|
|
let
|
|
|
|
|
val
|
|
|
|
|
{ startLine
|
|
|
|
|
, buffer
|
2025-08-20 12:50:39 +01:00
|
|
|
, bufferModifyTime
|
2025-03-23 07:47:38 +00:00
|
|
|
, searchList
|
|
|
|
|
, searchString
|
|
|
|
|
, mode
|
|
|
|
|
, windowWidth
|
|
|
|
|
, windowHeight
|
|
|
|
|
, msgs
|
|
|
|
|
, cursorIdx = _
|
|
|
|
|
} = app
|
|
|
|
|
in
|
|
|
|
|
{ startLine = startLine
|
|
|
|
|
, buffer = buffer
|
2025-08-20 12:50:39 +01:00
|
|
|
, bufferModifyTime = bufferModifyTime
|
2025-03-23 07:47:38 +00:00
|
|
|
, searchList = searchList
|
|
|
|
|
, searchString = searchString
|
|
|
|
|
, mode = mode
|
|
|
|
|
, windowWidth = windowWidth
|
|
|
|
|
, windowHeight = windowHeight
|
|
|
|
|
, msgs = msgs
|
|
|
|
|
, cursorIdx = newIdx
|
|
|
|
|
}
|
|
|
|
|
end
|
2024-10-08 08:53:43 +01:00
|
|
|
end
|
