Converts snake_case libraries (like excessive moe's) to camelCase.

alias.lua

local function breakSnake(id)
	if (type(id) ~= "string") then
		return id
	end

	return (id:gsub("(%w)_(%a)", function(a, b)
		return a .. b:upper()
	end))
end

local function makeSnake(id)
	if (type(id) ~= "string") then
		return id
	end

	return (id:gsub("(%w)(%u)", function(a, b)
		return a .. "_" .. b:lower()
	end))
end

local function aliasStatic(object)
	local keys = {}
	for key in pairs(object) do
		table.insert(keys, key)
	end

	for i, key in ipairs(keys) do
		object[breakSnake(key)] = object[key]
	end
end

local function alias(object)
	local meta = getmetatable(object)
	local index = meta and meta.__index
	local newindex = meta and meta.__newindex

	local getter, setter

	if (index) then
		getter = function(this, key)
			return index(this, makeSnake(key))
		end
	else
		getter = function(this, key)
			return rawget(this, makeSnake(key))
		end
	end

	if (newindex) then
		setter = function(this, key, value)
			return newindex(this, makeSnake(key), value)
		end
	else
		setter = function(this, key, value)
			return rawset(this, makeSnake(key), value)
		end
	end

	if (meta) then
		meta.__index = getter
		meta.__newindex = setter
	else
		setmetatable(object, {
			__index = getter,
			__newindex = setter
		})
	end
end

return {
	alias = alias,
	aliasStatic = aliasStatic,
	breakSnake = breakSnake,
	makeSnake = makeSnake
}