Módulo:flex

local export = {}

local insert = table.insert
local concat = table.concat

function export.renderizar_tabla(frame, titulo, tabla, cats)
	local t = {}
	insert(t, frame:extensionTag("templatestyles", nil, {src = "Módulo:flex/estilo.css"}).."\n")
	insert(t, "<div class='flex mw-collapsible mw-collapsed' style='display:grid'>\n")
	insert(t, "<div class='flex mw-collapsible-toggle'>"..titulo.."&nbsp;</div>\n")
	insert(t, "<div class='flex mw-collapsible-content'>\n")
	insert(t, "{| class='flex wikitable' width='100%'\n")
	
	for _,fila in ipairs(tabla) do
		local t_estilo_fila = {}
		if fila.header then
			insert(t_estilo_fila, "font-weight:bold")
			insert(t_estilo_fila, "text-align:center")
		end
		if fila.color then
			insert(t_estilo_fila, "background:"..fila.color)
		end
		insert(t, "|- ")
		if #t_estilo_fila > 0 then
			insert(t, "style='"..concat(t_estilo_fila, ";").."'")
		end
		insert(t, (fila.class and " class='"..fila.class.."'" or "").."\n")
		for _,celda in ipairs(fila) do
			local cont
			local t_celda = {}
			local t_estilo_celda = {}
			
			if type(celda) == "string" then
				cont = celda
				if fila.header and fila.color then
					insert(t_estilo_celda, "background:"..fila.color)
				end
			elseif type(celda) == "table" then
				cont = celda or celda.cont
				if celda.colspan then
					insert(t_celda, "colspan="..celda.colspan)
				end
				if celda.header then
					insert(t_estilo_celda, "font-weight:bold")
					insert(t_estilo_celda, "text-align:center")
				end
				if celda.color then
					insert(t_estilo_celda, "background:"..celda.color)
				elseif fila.color then
					insert(t_estilo_celda, "background:"..fila.color)
				end
			end
			
			if #t_estilo_celda > 0 then
				insert(t_celda, "style='"..concat(t_estilo_celda, ";").."'")
			end
			if celda.class then
				insert(t_celda, "class='"..celda.class.."'")
			elseif fila.class then
				insert(t_celda, "class='"..fila.class.."'")
			end
			assert(cont, "Formato de tabla incorrecto")
			insert(t, (celda.header or fila.header) and "! " or "| ")
			insert(t, concat(t_celda, " ").." | "..cont.."\n")
		end
	end
	insert(t, "|}\n")
	insert(t, "</div>\n")
	insert(t, "</div>")
	for _,cat in ipairs(cats) do
		insert(t, "]")
	end
	return concat(t)
end

return export