Module:Sidebar
From Zoophilia Wiki
 | This Lua module is used on 234,000+ pages. To avoid major disruption and server load, any changes should be tested in the module's /sandbox or /testcases subpages, or in your own module sandbox. The tested changes can be added to this page in a single edit. Consider discussing changes on the talk page before implementing them. |
 | This module is subject to page protection. It is a highly visible module in use by a very large number of pages, or is substituted very frequently. Because vandalism or mistakes would affect many pages, and even trivial editing might cause substantial load on the servers, it is protected from editing. |
This module implements the templates {{sidebar}} and {{sidebar with collapsible lists}}. See the individual template pages for documentation.
--
-- This module implements {{Sidebar}}
--
local p = {}
local HtmlBuilder = require('Module:HtmlBuilder')
local Navbar = require('Module:Navbar')
local function _sidebar(args)
local root = HtmlBuilder.create('table')
root
.addClass('vertical-navbox')
.addClass(args.wraplinks ~= 'true' and 'nowraplinks')
.addClass(args.bodyclass or args.class)
.attr('cellspacing', args.cellspacing or 5)
.attr('cellpadding', args.cellpadding or 0)
.css('float', args.float or 'right')
.css('clear', (args.float == 'none' and 'both') or args.float or 'right')
.css('width', args.width or '22.0em')
.css('margin', args.float == 'left' and '0 1.0em 1.0em 0' or '0 0 1.0em 1.0em')
.css('background', '#f9f9f9')
.css('border', '1px solid #aaa')
.css('padding', '0.2em')
.css('border-spacing', '0.4em 0')
.css('text-align', 'center')
.css('line-height', '1.4em')
.css('font-size', '88%')
.cssText(args.bodystyle or args.style)
if args.outertitle then
root
.tag('caption')
.addClass(args.outertitleclass)
.css('padding-bottom', '0.2em')
.css('font-size', '125%')
.css('line-height', '1.2em')
.css('font-weight', 'bold')
.cssText(args.outertitlestyle)
.wikitext(args.outertitle)
end
if args.topimage then
local imageCell = root.tag('tr').tag('td')
imageCell
.addClass(args.topimageclass)
.css('padding', '0.4em 0')
.cssText(args.topimagestyle)
.wikitext(args.topimage)
if args.topcaption then
imageCell
.tag('div')
.css('padding-top', '0.2em')
.css('line-height', '1.2em')
.cssText(args.topcaptionstyle)
.wikitext(args.topcaption)
end
end
if args.pretitle then
root
.tag('tr')
.tag('td')
.addClass(args.pretitleclass)
.cssText(args.basestyle)
.css('padding-top', args.topimage and '0.2em' or '0.4em')
.css('line-height', '1.2em')
.cssText(args.pretitlestyle)
.wikitext(args.pretitle)
end
if args.title then
root
.tag('tr')
.tag('th')
.addClass(args.titleclass)
.cssText(args.basestyle)
.css('padding', '0.2em 0.4em 0.2em')
.css('padding-top', args.pretitle and 0)
.css('font-size', '145%')
.css('line-height', '1.2em')
.cssText(args.titlestyle)
.wikitext(args.title)
end
if args.image then
local imageCell = root.tag('tr').tag('td')
imageCell
.addClass(args.imageclass)
.css('padding', '0.2em 0 0.4em')
.cssText(args.imagestyle)
.wikitext(args.image)
if args.caption then
imageCell
.tag('div')
.css('padding-top', '0.2em')
.css('line-height', '1.2em')
.cssText(args.captionstyle)
.wikitext(args.caption)
end
end
if args.above then
root
.tag('tr')
.tag('td')
.addClass(args.aboveclass)
.css('padding', '0.3em 0.4em 0.3em')
.css('font-weight', 'bold')
.cssText(args.abovestyle)
.newline() -- newline required for bullet-points to work
.wikitext(args.above)
end
local rowNums = {}
for k, v in pairs(args) do
k = '' .. k
local num = k:match('^heading(%d+)$') or k:match('^content(%d+)$')
if num then table.insert(rowNums, tonumber(num)) end
end
table.sort(rowNums)
-- remove duplicates from the list (e.g. 3 will be duplicated if both heading3 and content3 are specified)
for i = #rowNums, 1, -1 do
if rowNums[i] == rowNums[i - 1] then
table.remove(rowNums, i)
end
end
for i, num in ipairs(rowNums) do
local heading = args['heading' .. num]
if heading then
root
.tag('tr')
.tag('th')
.addClass(args.headingclass)
.css('padding', '0.1em')
.cssText(args.basestyle)
.cssText(args.headingstyle)
.cssText(args['heading' .. num .. 'style'])
.wikitext(heading)
end
local content = args['content' .. num]
if content then
root
.tag('tr')
.tag('td')
.addClass(args.contentclass)
.css('padding', '0 0.1em 0.4em')
.cssText(args.contentstyle)
.cssText(args['content' .. num .. 'style'])
.newline()
.wikitext(content)
.done()
.newline() -- Without a linebreak after the </td>, a nested list like "* {{hlist| ...}}" doesn't parse correctly.
end
end
if args.below then
root
.tag('tr')
.tag('td')
.addClass(args.belowclass)
.css('padding', '0.3em 0.4em 0.3em')
.css('font-weight', 'bold')
.cssText(args.belowstyle)
.newline()
.wikitext(args.below)
end
local navbarArg = args.navbar or args.tnavbar
if navbarArg ~= 'none' and navbarArg ~= 'off' then
root
.tag('tr')
.tag('td')
.css('text-align', 'right')
.css('font-size', '115%')
.cssText(args.navbarstyle or args.tnavbarstyle)
.wikitext(Navbar.navbar({
args.name or mw.title.getCurrentTitle().fullText,
mini = 1,
fontstyle = args.navbarfontstyle or args.tnavbarfontstyle
}))
end
return tostring(root)
end
function _collapsibleSidebar(args)
args.abovestyle = 'border-top: 1px solid #aaa; border-bottom: 1px solid #aaa;' .. (args.abovestyle or '')
args.belowstyle = 'border-top: 1px solid #aaa; border-bottom: 1px solid #aaa;' .. (args.belowstyle or '')
args.navbarstyle = 'padding-top: 0.6em;' .. (args.navbarstyle or args.tnavbarstyle or '')
for k, v in pairs(args) do
local num = ('' .. k):match('^list(%d+)$')
if num then
local expand = args.expanded == 'all' or args.expanded == args['list' .. num .. 'name']
local row = HtmlBuilder.create('div')
row
.addClass('NavFrame')
.addClass((not expand) and 'collapsed')
.css('border', 'none')
.css('padding', 0)
.cssText(args.listframestyle)
.cssText(args['list' .. num .. 'style'])
.tag('div')
.addClass('NavHead')
.addClass(args.listtitleclass)
.css('font-size', '105%')
.css('background', 'transparent')
.css('text-align', 'left')
.cssText(args.basestyle)
.cssText(args.listtitlestyle)
.cssText(args['list' .. num .. 'titlestyle'])
.wikitext(args['list' .. num .. 'title'] or 'List')
.done()
.tag('div')
.addClass('NavContent')
.addClass(args.listclass)
.addClass(args['list' .. num .. 'class'])
.css('font-size', '105%')
.css('padding', '0.2em 0 0.4em')
.css('text-align', 'center')
.cssText(args.liststyle)
.cssText(args['list' .. num .. 'style'])
.wikitext(args['list' .. num])
args['content' .. num] = tostring(row)
end
end
return _sidebar(args)
end
function makeWrapper(func)
return function(frame)
local origArgs
if frame == mw.getCurrentFrame() then
-- We're being called via #invoke. If the invoking template passed any args, use
-- them. Otherwise, use the args that were passed into the template.
origArgs = frame:getParent().args
for k, v in pairs(frame.args) do
origArgs = frame.args
break
end
else
-- We're being called from another module or from the debug console, so assume
-- the args are passed in directly.
origArgs = frame
end
-- ParserFunctions considers the empty string to be false, so to preserve the previous
-- behavior of the template, change any empty arguments to nil, so Lua will consider
-- them false too.
local args = {}
for k, v in pairs(origArgs) do
if v ~= '' then
args[k] = v
end
end
return func(args)
end
end
return {
sidebar = makeWrapper(_sidebar),
collapsible = makeWrapper(_collapsibleSidebar)
}
