Module:Infobox monument

La documentation pour ce module peut être créée à Module:Infobox monument/doc

local capiunto = require 'capiunto'

local p = {}

local function clean(v)
	if v == nil then return nil end
	v = mw.text.trim(tostring(v))
	if v == '' then return nil end
	return v
end

local function addRow(box, label, value)
	value = clean(value)
	if value then
		box:addRow(label, value)
	end
	return box
end

local function addSection(box, title, rows)
	local hasContent = false
	for _, r in ipairs(rows) do
		if clean(r[2]) then
			hasContent = true
			break
		end
	end
	if not hasContent then
		return box
	end

	box:addHeader(title)
	for _, r in ipairs(rows) do
		addRow(box, r[1], r[2])
	end
	return box
end

function p.main(frame)
	local args = frame:getParent().args

	local headerStyle = 'background-color:' .. (clean(args.headerstyle) or '#8a6b23') .. ';'
	local titleStyle  = 'background-color:' .. (clean(args.titlestyle) or '#8a6b23') .. ';'

	local box = capiunto.create{
		title = clean(args.title),
		titleStyle = titleStyle,
		headerStyle = headerStyle,
	}

	if clean(args.image) then
		box:addImage(args.image, clean(args.caption))
	end

	addRow(box, 'Construction', args.construction)
	addRow(box, 'Destination initiale', args.destination)
	addRow(box, 'Visite possible', args.visitable)
	addRow(box, 'Propriété', args.propriete)

	addSection(box, 'Localisation', {
		{ 'Commune', args.commune },
	})

	addSection(box, 'Protection au titre des Monuments Historiques', {
		{ 'Classé', args.mhclasse },
		{ 'Inscrit', args.mhinscrit },
        { 'Patrimonialité', args.patrimonialite },
		{ 'Objet de la protection', args.mhobjet },
	})

	return box
end

return p