lib.lua

local love = require 'love'

local pathSep = '/'
if love.system.getOS() == "Windows" then
  pathSep = '\\'
end


local _mod = {
  pathSep = pathSep
}

---@param color table
---@return function
function _mod.SetColor(color)
  local r, g, b = love.graphics.getColor()
  love.graphics.setColor(color[1], color[2], color[3])
  return function()
    love.graphics.setColor(r, g, b)
  end
end

---@param mode "fill" | "line"
---@param color table
---@param x number
---@param y number
---@param width number
---@param height number
function _mod.DrawRect(mode, color, x, y, width, height)
  local revert = _mod.SetColor(color)
  love.graphics.rectangle(mode, x, y, width, height)
  revert()
end

---@param path string
---@return string
function _mod.ResolvePath(path)
  if path[1] ~= pathSep then
    path = os.getenv("PWD") .. pathSep .. path
  end

  return path
end

function _mod.FormatPath(path, truncate, hideUser)
  if truncate then
    local truncPath = ""
    for i = #path, 1, -1 do
      if path:sub(i, i) == pathSep then
        break
      end
      truncPath = truncPath .. path:sub(i, i)
    end
    path = truncPath
  else
    if hideUser and path:sub(1, 1) == pathSep then
      local sepCount = 0
      while sepCount < 3 do
        if path:sub(1, 1) == pathSep then
          sepCount = sepCount + 1
        end
        path = path:sub(2)
      end
      path = "~" .. pathSep .. path
    end
  end
  return path
end

---@param seq string | table
---@param item any
---@return boolean
function _mod.Contains(seq, item)
  for i = 1, #seq do
    if type(seq) == "string" then
      if seq:sub(i, i) == item then
        return true
      end
    else
      if seq[i] then
        return true
      end
    end
  end
  return false
end

---@param n number
---@param min number
---@param max number?
---@return number
function _mod.Clamp(n, min, max)
  if max == nil then
    max = n
  end

  if n < min then
    return min
  elseif n > max then
    return max
  end
  return n
end

---@param s string
---@return number, number, string
function _mod.GetCurrentLine(s, pos)
  local start, sEnd = 1, #s

  for i = pos + 1, #s, 1 do
    if s:sub(i, i) == '\n' then
      sEnd = i
      break
    end
  end

  for i = pos - 1, 1, -1 do
    if s:sub(i, i) == '\n' then
      start = i + 1
      break
    end
  end

  return start, sEnd, s:sub(start, sEnd)
end

return _mod