Module:Infobox

local loadLib = require('Module:LoadLib')

-- Set exports local infobox = {} mw.html.create = require('Module:Html').create

--Variables local curTitle = mw.title.getCurrentTitle

function infobox.create(attrs) local methods = {} function constructor(self, attrs) self.instance = mw.html.create('infobox'):attr(attrs or {}) return self end

function methods:done return self.instance:done end function methods:addTitle(t, parent, appendTo) t = t or {} local inst = (appendTo or self.instance) :tag('title') :attr({					source=t.source or "title",					name=t.name,				}) :wikitext(table.format(t.title or t[1] or t.default)) if t.format then inst:tag('format') :wikitext(table.format(t.format)) :done end inst:done return self end function methods:addData(t, parent) t = t or {} local dataInst = (parent or self.instance):tag('data') :attr({ 				name=table.format(t.name),				layout=table.format(t.layout),				span=tonumber(t.span),			}) :wikitext(table.format(t.data or t[1] or t.default)) if t.label then dataInst:tag('label') :wikitext(table.format(t.label)) :done end if t.format then dataInst:tag('format') :wikitext(table.format(t.format)) :done end dataInst:done return parent or self end function methods:addImage(t, parent, appendTo) t = t or {} local inst = (appendTo or self.instance) :tag('image') :attr({					source=t.source or "image",					name=t.name,				}) :wikitext(table.format(t.image or t[1] or t.default)) :tag('default') :wikitext(t.default or curTitle.text..'.png') :done if t.caption then local captionInst = inst:tag('caption') :attr({					source=t.caption.source or 'caption',				}) :wikitext(					table.includes({ 'string', 'number' }, type(t.caption))						and t.caption						or table.format(t.caption.text or t.caption[1] or t.caption.default)				) if t.caption.format then captionInst:tag('format') :wikitext(table.format(t.caption.format)) :done end end

if t.alt then local altInst = inst:tag('alt') :attr({					source=t.alt.source,				}) :wikitext(table.format(t.alt.text or t.alt[1] or t.alt.default or t.alt)) end inst:done return parent or self end function methods:addNavigation(text, parent, appendTo) (appendTo or self.instance) :tag('navigation') :wikitext(table.format(text)) :done return parent or self end function methods:addHeader(text, parent, appendTo) (appendTo or self.instance) :tag('header') :wikitext(table.format(text)) :done return parent or self end function methods:addPanel(t, parent, appendTo) t = t or {} local panelMethods = {} function panelMethods:addSection(t, parent) t = t or {} local sectionMethods = {} function sectionMethods:addData(t) self.parent:addData(t or {}, self.currentInstance) return self end function sectionMethods:addGroup(t) return self.parent.parent:addGroup(t, self, self.currentInstance) end function sectionMethods:addTitle(t) self.parent.parent:addTitle(t, self, self.currentInstance) return self end function sectionMethods:addImage(t) self.parent.parent:addImage(t, self, self.currentInstance) return self end function sectionMethods:addHeader(t) self.parent.parent:addHeader(t, self, self.currentInstance) return self end function sectionMethods:done self.currentInstance :done self.currentInstance = self.currentPanel return self._parentInstance end function constructor(self) self.currentInstance = self.currentPanel :tag('section') self._parentInstance = parent or self.parent

self.currentInstance:tag('label') :wikitext(table.format(t.label)) :done return parent or self end local currentInst = table.makeClass(constructor, sectionMethods, self)(parent) return currentInst end function panelMethods:done self.currentPanel :done self.currentPanel = appendTo or self.instance return parent or self.parentInstance end

function constructor(self, parent) self.currentPanel = (appendTo or self.instance) :tag('panel') self.parentInstance = parent or self.parent return parent or self end local currentInst = table.makeClass(constructor, panelMethods, self)(parent) return currentInst end function methods:addGroup(t, parent, appendTo) t = t or {} local groupMethods = {} function groupMethods:addTitle(t) self.parent:addTitle(t or {}, self.currentGroup) return self end function groupMethods:addImage(t) self.parent:addImage(t or {}, self.currentGroup) return self end function groupMethods:addHeader(text) self.parent:addHeader(text, self.currentGroup) return self end if t.layout ~= 'horizontal' then function groupMethods:addNavigation(text) self.parent:addNavigation(text, self, self.currentGroup) return self end end function groupMethods:addData(t) self.parent:addData(t or {}, self.currentGroup) return self end function groupMethods:addGroup(t) return self.parent:addGroup(t, self) end function groupMethods:addPanel(t) return self.parent:addPanel(t, self, self.currentGroup) end function groupMethods:done self.currentGroup :done self.currentGroup = self.parentGroup return self.parentGroupInstance end function constructor(self, parent) self.currentGroup = ((parent or {}).currentGroup or appendTo or self.instance) :tag('group') :attr({						layout=t.layout,						show=t.show,						collapse=t.collapse,						['row-items']=tonumber(t['row-items']),						name=table.format(t.name),					}) self.parentGroupInstance = parent or self.parent self.parentGroup = (parent or {}).currentGroup return parent or self end local currentInst = table.makeClass(constructor, groupMethods, self)(parent) return currentInst end function methods:__tostring return tostring(self.instance:allDone) end methods.done = methods.__tostring methods.tostring = methods.__tostring function methods:__concat(a, b)		if a == self.instance then return tostring(a)..b		else return tostring(b)..a		end end function methods:preprocess return mw.getCurrentFrame:preprocess(self:__tostring) end -- Create and invoke class local Class = table.makeClass(constructor, methods) return Class(attrs) end

function infobox.test return infobox.create :addData{ "Test" } :addPanel :addSection{ label="Test" } :addData{ "Test" } :addGroup :addData{ "Test" } :addPanel :addSection{ label="Test2" } :addData{ "Test" } :addHeader{ "Test" } :addImage{ "Test" } :done :done :addData :done :addData :done :done :addData :preprocess end

infobox.templates = templates

return infobox