Connect encoding and case conversion

4 files changed, 51 insertions, 1 deletions

diff --git a/lua/clever_f/capabilities.lua b/lua/clever_f/capabilities.lua
index ff92f8f..325d015 100644
--- a/lua/clever_f/capabilities.lua
+++ b/lua/clever_f/capabilities.lua
@@ -9,6 +9,7 @@ M.read_methods = {
   count = { "read_count" },
   configuration = { "read_configuration", "configuration_present" },
   encoding = { "read_encoding" },
+  case_conversion = { "lowercase" },
   macro_state = { "read_macro_state" },
   fold_state = { "read_fold_state" },
   time = { "read_time_ms" },
diff --git a/lua/clever_f/host_adapter.lua b/lua/clever_f/host_adapter.lua
index 51591a9..7a71fb8 100644
--- a/lua/clever_f/host_adapter.lua
+++ b/lua/clever_f/host_adapter.lua
@@ -65,6 +65,25 @@ function HostAdapter:runtime()
   return adapter_records[self].runtime
 end
 
+function HostAdapter:read_encoding()
+  local runtime = self:runtime()
+  return runtime.api.nvim_get_option_value(
+    "encoding",
+    { scope = "global" }
+  )
+end
+
+function HostAdapter:lowercase(value)
+  if type(value) ~= "string" then
+    fail("case conversion value must be a string", 2)
+  end
+  local result = self:runtime().fn.tolower(value)
+  if type(result) ~= "string" then
+    fail("Nvim case conversion must return a string", 2)
+  end
+  return result
+end
+
 local function next_identity(adapter, prefix)
   local record = adapter_records[adapter]
   local identity = prefix .. "-" .. tostring(record.next_identity)
diff --git a/lua/clever_f/sequence_coordinator.lua b/lua/clever_f/sequence_coordinator.lua
index 0f233cf..6d2d31b 100644
--- a/lua/clever_f/sequence_coordinator.lua
+++ b/lua/clever_f/sequence_coordinator.lua
@@ -1,4 +1,6 @@
 local acquisition_service_factory = require("clever_f.acquisition_service")
+local case_policy = require("clever_f.case_policy")
+local direct_preview_planner = require("clever_f.direct_preview_planner")
 local domain = require("clever_f.domain")
 local feedback_service_factory = require("clever_f.feedback_service")
 local motion_executor_factory = require("clever_f.motion_executor")
@@ -73,9 +75,20 @@ function SequenceCoordinator.new(options)
       transitions = transitions,
       policy = policy_service,
     })
+  local lowercase = options.lowercase
+  if lowercase == nil and type(host.lowercase) == "function" then
+    lowercase = function(value)
+      return host:lowercase(value)
+    end
+  end
+  local case_resolver = options.case_resolver
+    or case_policy.new({ lowercase = lowercase })
   local target_factory = options.target_factory
     or options.target_plan_factory
-    or target_plan_factory.new({ policy = policy_service })
+    or target_plan_factory.new({
+      policy = policy_service,
+      case_resolver = case_resolver,
+    })
   if type(target_factory) ~= "table" or type(target_factory.build) ~= "function" then
     fail("SequenceCoordinator target factory must provide build", 2)
   end
@@ -87,6 +100,9 @@ function SequenceCoordinator.new(options)
   then
     fail("SequenceCoordinator motion factory must build contextual plans", 2)
   end
+  local direct_planner = options.direct_planner
+    or options.direct_preview_planner
+    or direct_preview_planner.new({ case_resolver = case_resolver })
   local acquisition = options.acquisition
     or options.acquisition_service
     or acquisition_service_factory.new({
@@ -95,6 +111,7 @@ function SequenceCoordinator.new(options)
       transitions = transitions,
       policy = policy_service,
       feedback = feedback,
+      direct_planner = direct_planner,
       target_factory = target_factory,
       motion_factory = motion_factory,
     })
diff --git a/lua/clever_f/testing/memory_host.lua b/lua/clever_f/testing/memory_host.lua
index 4c95721..6147d2c 100644
--- a/lua/clever_f/testing/memory_host.lua
+++ b/lua/clever_f/testing/memory_host.lua
@@ -146,6 +146,7 @@ function MemoryHost.new(options)
     _count = domain.Count.new(options.count),
     _configuration = copy(options.configuration or {}),
     _encoding = options.encoding or options.effective_encoding or "utf-8",
+    _lowercase = options.lowercase or vim.fn.tolower,
     _macro_state = macro_state(options.macro_state or options.macro_register),
     _fold_state = fold_state(options),
     _pending_operator = options.pending_operator,
@@ -295,6 +296,18 @@ function MemoryHost:read_encoding()
   return self._encoding
 end
 
+function MemoryHost:lowercase(value)
+  if type(value) ~= "string" then
+    error("case conversion value must be a string", 2)
+  end
+  local result = self._lowercase(value)
+  if type(result) ~= "string" then
+    error("case converter must return a string", 2)
+  end
+  self:_record("lowercase", { value = value, result = result })
+  return result
+end
+
 function MemoryHost:read_macro_state()
   self:_record("read_macro_state", { executing = self._macro_state.executing })
   return self._macro_state