vm_lighting_wand/core/fsbuilder.lua

local version = {major = 0, minor = 0, revison = 1}

local fsbuilder = {version = version}

local modname = minetest.get_current_modname()
local fs_esc = minetest.formspec_escape
local theme = {
	bgcolor = "#000000BB",
	boxcolor = "#87CEFA17",
	lists = {
		normal = "#172d3a75",
		hover = "#1E90FF15",
		border = "#1E90FF40",
		tt_background = "#2F2F2F",
		tt_font = "#c1c1c1"
	},
	buttons = {
		normal = "#7C8500",
		hover = "green",
		pressed = "#DAA520",
		alpha = "true"
	},
	color = "#c1c1c1"
}

fsbuilder.esc = fs_esc
fsbuilder.concat = function(t)
	if t == nil then
		return ""
	else
		if type(t) == "string" then
			return t
		end
	end
	return table.concat(t, "")
end

function fsbuilder:new(def)
	def = def or {}
	local o = {
		valid = true,
		form = {},
		id = 0,
		height = def.height or 0,
		width = def.width or 0,
		spacing = 0.25,
		padding = 0.125,
		background = def.background or modname .. "_background",
		theme = theme
	}
	setmetatable(o, self)
	self.__index = self
	return o
end

function fsbuilder:set_size(height, width)
	self:set_height(height)
	self:set_width(width)
end

function fsbuilder:set_height(height)
	self.height = height
end

function fsbuilder:set_width(width)
	self.width = width
end

function fsbuilder:set_background(background)
	self.background = background
end

function fsbuilder:set_theme(key, value, force)
	value = value == nil and "" or value
	if not key then
		return false
	end
	if not force then
		if not self.theme[key] then
			self.theme[key] = value
			return true
		end
	else
		self.theme[key] = value
		return true
	end
	return false
end

function fsbuilder:get_theme(key)
	return self.theme[key]
end

function fsbuilder:new_id()
	self.id = self.id + 1
	return self.id
end

function fsbuilder:add_form_element(data)
	self.form[self:new_id()] = self.concat(data)
	return self.id
end

function fsbuilder:get_form_element(key)
	if self.form[key] ~= nil then
		return self.form[key]
	end
	return false
end

function fsbuilder:is_valid()
	return self.valid and true or false
end

function fsbuilder:set_invalid()
	self.valid = false
end

function fsbuilder:set_valid()
	self.valid = true
end

function fsbuilder:del_form_element(key)
	if self.form[key] ~= nil then
		self.form[key] = nil
	end
end
function fsbuilder:get_form_string(add_header)
	add_header = add_header or true
	return (add_header and self:add_header() or "") .. self.concat(self.form)
end

function fsbuilder:add_header()
	return string.format(
		[[
		formspec_version[4]
		size[%f,%f]
		background9[0,0;0,0;%s.png;true;4]
		bgcolor[%s;true]
		listcolors[%s;%s;%s;%s;%s]
		theme_type[image_button,button,item_image_button;bgcolor=%s;bgcolor_hovered=%s;bgcolor_pressed=%s;alpha=%s]
	]],
		self.width,
		self.height,
		self.background,
		self.theme.bgcolor,
		self.theme.lists.normal,
		self.theme.lists.hover,
		self.theme.lists.border,
		self.theme.lists.tt_background,
		self.theme.lists.tt_font,
		self.theme.buttons.normal,
		self.theme.buttons.hover,
		self.theme.buttons.pressed,
		self.theme.buttons.alpha
	)
end
-- listring[<inventory location>;<list name>]
function fsbuilder:listring(location, listname)
	self:add_form_element("listring[" .. location .. ";" .. listname .. "]")
end

function fsbuilder:add_footer()
end

-- helper functions
function fsbuilder:slot(slot)
	return slot + (self.spacing * (slot + 1))
end

-- Minetest formspec elements
--### `list[<inventory location>;<list name>;<X>,<Y>;<W>,<H>;<starting item index>]`
function fsbuilder:list(loc, inv_name, x, y, w, h, start, x_offset, y_offset)
	y_offset = y_offset or 0 --hotbar padding
	x_offset = x_offset or 0
	start = start or ""
	self:add_form_element(
		{
			string.format(
				[[
					list[%s;%s;%f,%f;%f,%f;%s]
				]],
				fs_esc(loc),
				fs_esc(inv_name),
				x + x_offset,
				y + y_offset,
				w,
				h,
				start
			)
		}
	)
end

function fsbuilder:player_list(x, y)
	self:list("current_player", "main", self:slot(x), self:slot(y), 8, 1)
	self:list("current_player", "main", self:slot(x), self:slot(y), 8, 3, 8, 0, 1.5)
end

--### `label[<X>,<Y>;<label>]`
function fsbuilder:label(x, y, str)
	self:add_form_element(
		{
			string.format("label[%f,%f;%s]", x, y, fs_esc(str))
		}
	)
end

--### `tooltip[<X>,<Y>;<W>,<H>;<tooltip_text>;<bgcolor>;<fontcolor>]`
function fsbuilder:tooltip(x, y, w, h, tooltip_text, bgcolor, fontcolor)
	self:add_form_element(
		{
			string.format(
				[[ tooltip[%f,%f;%f,%f;%s;%s;%s] ]],
				x,
				y,
				w,
				h,
				fs_esc(tooltip_text),
				fs_esc(bgcolor and bgcolor or self:get_theme("lists").tt_background),
				fs_esc(fontcolor and fontcolor or self:get_theme("lists").tt_font)
			)
		}
	)
end

--### `tooltip[<gui_element_name>;<tooltip_text>;<bgcolor>;<fontcolor>]`
function fsbuilder:tooltip_element(gui_element_name, tooltip_text, bgcolor, fontcolor)
	self:add_form_element(
		{
			string.format(
				[[ tooltip[%s,%s,%s,%s] ]],
				fs_esc(gui_element_name),
				fs_esc(tooltip_text),
				fs_esc(bgcolor and bgcolor or self:get_theme("bgcolor")),
				fs_esc(fontcolor and fontcolor or self:get_theme("color"))
			)
		}
	)
end

-- ### `button[<X>,<Y>;<W>,<H>;<name>;<label>]`
function fsbuilder:button(x, y, w, h, name, label)
	self:add_form_element(
		{
			string.format("button[%f,%f;%f,%f;%s;%s]", x, y, w, h, fs_esc(name), fs_esc(label))
		}
	)
end

-- ### `image[<X>,<Y>;<W>,<H>;<texture name>]`
function fsbuilder:image(x, y, w, h, image)
	self:add_form_element(
		{
			string.format("image[%f,%f;%f,%f;%s]", x, y, w, h, fs_esc(image))
		}
	)
end

return fsbuilder