# 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