local M = {}

M.sep = package.config:sub(1, 1)

local source = debug.getinfo(1, 'S').source
if source:sub(1, 1) == '@' then
  local base_start = source:find(table.concat({ 'lualine.nvim', 'lua', 'lualine_require.lua' }, M.sep))
  if base_start then
    source = source:sub(2, base_start + 12 + 1 + 3) -- #lualine.nvim = 12 , #lua = 3.
    if source then
      M.plugin_dir = source
    end
  end
end

function M.is_valid_filename(name)
  local invalid_chars = '[^a-zA-Z0-9_. -]'
  return name:find(invalid_chars) == nil
end

function M.require(module)
  if package.loaded[module] then
    return package.loaded[module]
  end
  local pattern = module:gsub('%.', M.sep) .. '.lua'
  if M.plugin_dir then
    local path = M.plugin_dir .. pattern
    assert(M.is_valid_filename(module), 'Invalid filename')
    if vim.loop.fs_stat(path) then
      local mod_result = dofile(path)
      package.loaded[module] = mod_result
      return mod_result
    end
  end

  local paths = M.rtp_searcher('lua' .. M.sep .. pattern, true)
  if #paths > 0 then
    local mod_result = dofile(paths[1])
    package.loaded[module] = mod_result
    return mod_result
  end

  return require(module)
end

function M.rtp_searcher(file, once)
  local ret = {}
  for dir in vim.gsplit(vim.api.nvim_get_option 'rtp', ',') do
    local path = dir .. M.sep .. file
    if vim.loop.fs_stat(path) then
      ret[#ret + 1] = path
      if once then
        break
      end
    end
  end
  return ret
end

function M.lazy_require(modules)
  return setmetatable({}, {
    __index = function(self, key)
      local loaded = rawget(self, key)
      if loaded ~= nil then
        return loaded
      end
      local module_location = modules[key]
      if module_location == nil then
        return nil
      end
      local module = M.require(module_location)
      rawset(self, key, module)
      return module
    end,
  })
end

return M