# Module: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
if args.position and args.position:lower == '' then
table.insert(data.classes, 'side-box-')
else
table.insert(data.classes, 'side-box-')
end  
if args.collapsible then
table.insert(data.classes, 'mw-collapsible')
if args.collapsible == "collapsed" then
table.insert(data.classes, 'mw-collapsed')
end
data.collapsible = true
end  
table.insert(data.classes, args.class)  
-- Image
if args.image and args.image ~= '' then
data.image = args.image
end  
-- we have to check to see if a downstream use has plainlist like
-- Template:Sister_project. also it's the default. wikitext is :(
if args.textclass == 'plainlist' or not args.textclass then
data.text
data.plainlist_templatestyles = 'Plainlist/styles.css'
else
data.textclass = args.textclass
end  
-- Copy over data that does not need adjusting
local argsToCopy = {
-- aria qualities
'role',
'labelledby',  
-- Styles
'style',
'textstyle',
'templatestyles',  
-- Above row
'above',
'abovestyle',  
-- Body row
'text',
'imageright',  
-- Below row
'below',
}
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  
local = mw.getCurrentFrame
if data.plainlist_templatestyles then
root:wikitext(:extensionTag{
name = 'templatestyles', args = { src = data.plainlist_templatestyles }
})
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)
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 templatestyles = ''
if data.templatestyles then
templatestyles = :extensionTag{
name = 'templatestyles', args = { src = data.templatestyles }
}
end
return :extensionTag{
name = 'templatestyles', args = { src = 'Module:Side box/styles.css' }
} .. templatestyles .. tostring(root)
end  
function p._main(args)
local data = makeData(args)
return renderSidebox(data)
end  
function p.main
local origArgs = :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