Module:Side box

    From Nonbinary Wiki
    Revision as of 03:16, 1 June 2014 by wikipedia>Mr. Stradivarius (create Lua version of Template:Side box)
    (diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)

    Documentation for this module may be created at Module:Side box/doc

    -- This module implements {{side box}}.
    
    local p = {}
    
    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
    
    function p._main(args)
    	local data = p.makeData(args)
    	return p.renderSidebox(data)
    end
    
    function p.makeData(args)
    	local data = {}
    
    	-- Main table classes
    	data.classes = {}
    	if args.metadata and args.metadata:lower() ~= 'no' then
    		table.insert(data.classes, 'metadata')
    	end
    	if args.position and args.position:lower() == 'left' then
    		table.insert(data.classes, 'mbox-small-left')
    	else
    		table.insert(data.classes, 'mbox-small')
    	end
    	table.insert(data.classes, args.class)
    
    	-- Copy over data that doesn't need adjusting
    	local argsToCopy = {
    		-- Styles
    		'style',
    		'textstyle',
    
    		-- Above row
    		'above',
    		'abovestyle',
    
    		-- Body row
    		'text',
    		'image',
    		'imageright',
    
    		-- Below row
    		'below',
    	}
    	for i, key in ipairs(argsToCopy) do
    		data[key] = args[key]
    	end
    
    	return data
    end
    
    function p.renderSidebox(data)
    	-- Renders the sidebox HTML.
    
    	-- Table root
    	local root = mw.html.create('table')
    	for i, class in ipairs(data.classes or {}) do
    		root:addClass(class)
    	end
    	root:css{border = '1px solid #aaa', ['background-color'] = '#f9f9f9'}
    	if data.style then
    		root:cssText(data.style)
    	end
    
    	-- The "above" row
    	if data.above then
    		local aboveCell = root:tag('tr'):tag('td')
    		aboveCell
    			:attr('colspan', data.imageright and 3 or 2)
    			:addClass('mbox-text')
    		if data.textstyle then
    			aboveCell:cssText(data.textstyle)
    		end
    		if data.abovestyle then
    			aboveCell:cssText(data.abovestyle)
    		end
    		aboveCell:wikitext(data.above)
    	end
    
    	-- The body row
    	local bodyRow = root:tag('tr')
    	if data.image then
    		bodyRow:tag('td')
    			:addClass('mbox-image')
    			:wikitext(data.image)
    	else
    		bodyRow:tag('td'):css('width', '1px')
    	end
    	local textCell = bodyRow:tag('td')
    	textCell:addClass('mbox-text plainlist')
    	if data.textstyle then
    		textCell:cssText(data.textstyle)
    	end
    	textCell:wikitext(data.text)
    	if data.imageright then
    		bodyRow:tag('td')
    			:addClass('mbox-imageright')
    			:wikitext(data.imageright)
    	end
    
    	-- The below row
    	if data.below then
    		local belowCell = root:tag('tr'):tag('td')
    		belowCell
    			:attr('colspan', data.imageright and 3 or 2)
    			:addClass('mbox-text')
    		if data.textstyle then
    			belowCell:cssText(data.textstyle)
    		end
    		belowCell:wikitext(data.below)
    	end
    
    	return tostring(root)
    end
    
    return p