Gate persistent highlight timeout

2 files changed, 43 insertions, 0 deletions

diff --git a/lua/clever_f/feedback_service.lua b/lua/clever_f/feedback_service.lua
index 9c2cdc3..98f51aa 100644
--- a/lua/clever_f/feedback_service.lua
+++ b/lua/clever_f/feedback_service.lua
@@ -120,6 +120,7 @@ local function require_host(host)
     or type(host.register_events) ~= "function"
     or type(host.remove_event_registration) ~= "function"
     or type(host.stop_timer) ~= "function"
+    or type(host.supports_timers) ~= "function"
     or type(host.supports_cursor_presentation) ~= "function"
     or type(host.suppress_cursor_presentation) ~= "function"
     or type(host.restore_cursor_presentation) ~= "function"
@@ -150,6 +151,8 @@ local function require_policy(service, host)
   if type(service) ~= "table"
     or type(service.evaluate_highlight_links) ~= "function"
     or type(service.sample_acquisition) ~= "function"
+    or type(service.sample_markers) ~= "function"
+    or type(service.sample_timeouts) ~= "function"
   then
     fail("FeedbackService policy must evaluate highlight links", 3)
   end
@@ -687,6 +690,18 @@ function FeedbackService:migrate_command(request)
   }
 end
 
+function FeedbackService:highlight_timer_delay()
+  local record = service_records[self]
+  if not record.policy:sample_markers().mark_char then
+    return nil
+  end
+  local delay = record.policy:sample_timeouts().highlight_timeout_ms
+  if delay == 0 or record.host:supports_timers() ~= true then
+    return nil
+  end
+  return delay
+end
+
 function FeedbackService:evaluate_feature_links()
   local record = service_records[self]
   local rules = record.policy:evaluate_highlight_links()
diff --git a/tests/run.lua b/tests/run.lua
index c626444..aa01e7f 100644
--- a/tests/run.lua
+++ b/tests/run.lua
@@ -6561,6 +6561,34 @@ test("Visual movement retains its persistent feedback anchor", function()
   truthy(host:highlights()[persistent.identity] ~= nil)
 end)
 
+test("Highlight timeout requires marks delay and timer support", function()
+  for _, mark_char in ipairs({ false, true }) do
+    for _, delay in ipairs({ 0, 25 }) do
+      for _, supported in ipairs({ false, true }) do
+        fresh_sequence_state()
+        local host = MemoryHost.new({
+          configuration = {
+            mark_char = mark_char,
+            highlight_timeout_ms = delay,
+          },
+          timer_support = supported,
+        })
+        local actual = feedback_service.new(host):highlight_timer_delay()
+        local expected = mark_char and delay > 0 and supported and delay or nil
+        same(
+          expected,
+          actual,
+          table.concat({
+            tostring(mark_char),
+            tostring(delay),
+            tostring(supported),
+          }, ":")
+        )
+      end
+    end
+  end
+end)
+
 for _, item in ipairs(tests) do
   local ok, failure = xpcall(item.body, debug.traceback)
   if not ok then