fix: use case-insensitive indexing for paths on Windows

Author: bwpge

lua/neo-tree/sources/common/components.lua

@@ -115,7 +115,7 @@ end
 
 M.diagnostics = function(config, node, state)
   local diag = state.diagnostics_lookup or {}
-  local diag_state = diag[node:get_id()]
+  local diag_state = utils.index_by_path(diag, node:get_id())
   if config.hide_when_expanded and node.type == "directory" and node:is_expanded() then
     return {}
   end
@@ -322,7 +322,7 @@ end
 
 M.modified = function(config, node, state)
   local opened_buffers = state.opened_buffers or {}
-  local buf_info = opened_buffers[node.path]
+  local buf_info = utils.index_by_path(opened_buffers, node.path)
 
   if buf_info and buf_info.modified then
     return {

lua/neo-tree/utils/init.lua

@@ -1220,4 +1220,33 @@ M.brace_expand = function(s)
   return result
 end
 
+---Indexes a table that uses paths as keys. Case-insensitive logic is used when
+---running on Windows.
+---
+---Consideration should be taken before using this function, because it is a
+---bit expensive on Windows. However, this function helps when trying to index
+---with absolute path keys, which can have inconsistent casing on Windows (such
+---as with drive letters).
+---@param tbl table
+---@param key string
+---@return unknown
+M.index_by_path = function(tbl, key)
+  local value = tbl[key]
+  if value ~= nil then
+    return value
+  end
+
+  -- on windows, paths that differ only by case are considered equal
+  if M.is_windows then
+    local key_lower = key:lower()
+    for k, v in pairs(tbl) do
+      if key_lower == k:lower() then
+        return v
+      end
+    end
+  end
+
+  return value
+end
+
 return M