Module:Infobox

Documentation for this module may be created at Module:Infobox/doc

local p = {}

local function split(s)
	local t = {}
	for part in mw.text.gsplit(s or "", "%s*,%s*") do
		if part ~= "" then table.insert(t, part) end
	end
	return t
end

function p.render(frame)
	local parent = frame:getParent()
	local args = parent and parent.args or frame.args
	local title = args.title or mw.title.getCurrentTitle().text
	local width = tonumber(args.width) or 300
	local order = split(args.order or "")
	local reserved = { title=true, image=true, width=true, order=true }

	local root = mw.html.create("div"):addClass("infobox")
	root:tag("div"):addClass("infobox-title"):wikitext(title)

	local img = args.image
	if img and img ~= "" then
	    local imgDiv = root:tag("div"):addClass("infobox-image")
	    if img:match("^https?://") then
	        imgDiv:tag("img")
	            :attr("src", img)
	            :attr("alt", title)
	            :css("width", width .. "px")
	    else
	        imgDiv:wikitext(string.format("[[File:%s|%dpx]]", img, width))
	    end
	end

	local tbl = root:tag("table"):addClass("infobox-table")
	local used = {}

	for _, key in ipairs(order) do
		local val = args[key]
		if val and val ~= "" then
			used[key] = true
			local tr = tbl:tag("tr")
			tr:tag("th"):wikitext(key)
			tr:tag("td"):wikitext(val)
		end
	end

  local keys = {}
  for k, v in pairs(args) do
    	if not reserved[k] and v and v ~= "" and not used[k] then
    		table.insert(keys, k)
    	end
  end
  table.sort(keys)

	for _, k in ipairs(keys) do
    	local tr = tbl:tag("tr")
    	tr:tag("th"):wikitext(k)
    	tr:tag("td"):wikitext(args[k])
	end

	return tostring(root)
end

return p