Moduuli:Side box

---

local yesno = require('Module:Yesno')
local p = {}

local function makeData(args)
	local data = {}

	-- Main table classes
	data.classes = {}
	if yesno(args.metadata) ~= false then
		table.insert(data.classes, 'metadata')
	end
	
	local position = args["sijoitus"] or args["position"] or ""
	if position ~= "" and (position:lower() == 'vasen' or position:lower() == 'left') then
		table.insert(data.classes, 'side-box-left')
	else
		table.insert(data.classes, 'side-box-right')
	end
	
	local avattava = args["avattava"] or args["collapsible"] or ""
	if avattava ~= "" then
		table.insert(data.classes, 'mw-collapsible')
		if avattava == "collapsed" then
			table.insert(data.classes, 'mw-collapsed')
		end
		data.collapsible = true
	end

	table.insert(data.classes, args.class)
	
	local kuva = args["kuva"] or args["image"] or ""
	if kuva ~= "" and kuva ~= 'none' then
		data.image = kuva
	end
	local kuvaoikea = args["kuvaoikea"] or args["imageright"] or ""
	if kuvaoikea ~= "" and kuvaoikea ~= 'none' then
		data.imageright = kuvaoikea
	end
	local teksti = args["teksti"] or args["text"] or ""
	if teksti ~= "" then
		data.text = teksti
	end
	local above = args["yllä"] or args["above"] or ""
	if above ~= "" then
		data.above = above
	end
	local below = args["alla"] or args["below"] or ""
	if below ~= "" then
		data.below = below
	end

	-- Copy over data that does not need adjusting
	local argsToCopy = {
		-- aria qualities
		'role',
		'labelledby',
		
		-- Classes
		'textclass',

		-- Styles
		'style',
		'textstyle',
		--'templatestyles',

		'abovestyle',
	}
	for i, key in ipairs(argsToCopy) do
		data[key] = args[key]
	end

	return data
end

local function renderSidebox(data)
	-- Renders the sidebox HTML.

	-- Table root
	local root = mw.html.create('div')
	root:attr('role', data.role)
		:attr('aria-labelledby', data.labelledby)
		:addClass('side-box')
	for i, class in ipairs(data.classes or {}) do
		root:addClass(class)
	end
	if data.style then
		root:cssText(data.style)
	end

	-- The "above" row
	if data.above then
		local above = root:newline():tag('div')
		above:addClass('side-box-abovebelow')
			:newline()
			:wikitext(data.above)
		if data.textstyle then
			above:cssText(data.textstyle)
		end
		if data.abovestyle then
			above:cssText(data.abovestyle)
		end
	end

	-- The body row
	local body = root:newline():tag('div')
		body:addClass('side-box-flex')
			:addClass(data.collapsible and 'mw-collapsible-content')
			:newline()
	if data.image then
		body:tag('div')
			:addClass('side-box-image')
			:wikitext(data.image)
	end
	local text = body:newline():tag('div')
	text:addClass('side-box-text')
		:addClass(data.textclass or 'plainlist')
	if data.textstyle then
		text:cssText(data.textstyle)
	end
	text:wikitext(data.text)
	if data.imageright then
		body:newline():tag('div')
			:addClass('side-box-imageright')
			:wikitext(data.imageright)
	end

	-- The below row
	if data.below then
		local below = root:newline():tag('div')
		below
			:addClass('side-box-abovebelow')
			:wikitext(data.below)
		if data.textstyle then
			below:cssText(data.textstyle)
		end
	end

	root:newline()
	local frame = mw.getCurrentFrame()
	-- turn this off for now
	--local templatestyles = ''
	--if data.templatestyles then
	--	templatestyles = frame:extensionTag{
	--		name = 'templatestyles', args = { src = data.templatestyles }
	--	}
	--end
	return frame:extensionTag{
		name = 'templatestyles', args = { src = 'Module:Side box/styles.css' }
	} .. tostring(root)
end

function p._main(args)
	local data = makeData(args)
	return renderSidebox(data)
end

function p.main(frame)
	local origArgs = frame:getParent().args
	local args = {}
	for k, v in pairs(origArgs) do
		v = v:match('%s*(.-)%s*$')
		if v ~= '' then
			args[k] = v
		end
	end
	return p._main(args)
end

return p