Create enabled acquisition cursor marker

1 files changed, 13 insertions, 0 deletions

diff --git a/lua/clever_f/testing/memory_host.lua b/lua/clever_f/testing/memory_host.lua
index 929b357..b815c2f 100644
--- a/lua/clever_f/testing/memory_host.lua
+++ b/lua/clever_f/testing/memory_host.lua
@@ -139,6 +139,7 @@ function MemoryHost.new(options)
   local self = setmetatable({
     _text = text_snapshot(options.text or options.buffer_lines or { "" }),
     _cursor = domain.Position.coerce(options.cursor or { line = 1, byte_column = 1 }),
+    _window = options.window or "window-1",
     _mode = raw_mode,
     _selection = selection_value(options.selection),
     _count = domain.Count.new(options.count),
@@ -228,6 +229,11 @@ function MemoryHost:read_cursor()
   return self._cursor
 end
 
+function MemoryHost:read_window()
+  self:_record("read_window", { window = self._window })
+  return self._window
+end
+
 function MemoryHost:read_mode()
   self:_record("read_mode", { mode = self._mode })
   return self._mode
@@ -316,6 +322,13 @@ function MemoryHost:set_cursor(position)
   self._cursor = domain.Position.coerce(position)
 end
 
+function MemoryHost:set_window(window)
+  if window == nil then
+    error("window identity must be present", 2)
+  end
+  self._window = window
+end
+
 function MemoryHost:set_mode(full_mode)
   if domain.ModeContext.is(full_mode) then
     full_mode = full_mode.full_mode