Module:Infobox

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

local p = {}

function p.render(frame)
	local args = frame:getParent().args
	local root = mw.html.create('table')
		:addClass('infobox')
		:css('border', '1px solid var(--vw-border)')
		:css('font-size', '90%')
		:css('background', 'var(--vw-bg-subtle)')
		
-- Title
	if args.title and args.title ~= '' then
		root:tag('tr')
			:tag('th')
				:attr('colspan', '2')
				:css('width', '100%')
				:css('text-align', 'center')
				:css('font-size', '115%')
				:css('background', 'var(--vw-accent-subtle)')
				:css('padding', '6px')
				:wikitext(args.title)
	end
	
	-- Image
	if args.image and args.image ~= '' then
		local caption = args.caption or ''
		root:tag('tr')
			:tag('td')
				:attr('colspan', '2')
				:css('text-align', 'center')
				:css('padding', '6px')
				:wikitext('[[File:' .. args.image .. '|400px]]')
		if caption ~= '' then
			root:tag('tr')
				:tag('td')
					:attr('colspan', '2')
					:css('text-align', 'center')
					:css('font-size', '85%')
					:css('padding', '2px 6px')
					:wikitext(caption)
		end
	end

	-- Data rows
	local i = 1
	while args['label' .. i] or args['data' .. i] or args['header' .. i] do
		local header = args['header' .. i]
		local label  = args['label' .. i]
		local data   = args['data' .. i]

		if header and header ~= '' then
			root:tag('tr')
				:tag('th')
					:attr('colspan', '2')
					:css('width', '100%')
					:css('text-align', 'center')
					:css('background', 'var(--vw-bg-heading)')
					:css('padding', '4px 6px')
					:css('font-size', '90%')
					:wikitext(header)
		elseif data and data ~= '' then
			local row = root:tag('tr')
			if label and label ~= '' then
				row:tag('th')
					:css('text-align', 'left')
					:css('padding', '4px 6px')
					:css('background', 'var(--vw-bg-subtle)')
					:css('width', '45%')
					:wikitext(label)
			end
			row:tag('td')
				:css('padding', '4px 6px')
				:attr('colspan', (label and label ~= '') and '1' or '2')
				:wikitext(data)
		end
		i = i + 1
	end
	return tostring(root)
end

return p