Changes

Module:Navbox

122 bytes removed, 19:12, 14 November 2014

switch to mw.html per talk page (no objections)

--

-- This module ~~will implement~~ implements {{Navbox}}

--

local p = {}

~~local HtmlBuilder = require('Module:HtmlBuilder')~~

local navbar = require('Module:Navbar')._navbar

local getArgs -- lazily initialized

local border

local listnums = {}

local function trim(s)

return (mw.ustring.gsub(s, "^%s*(.-)%s*$", "%1"))

if tableRowAdded then

tbl

.:tag('tr') .:css('height', '2px') .:tag('td') .:attr('colspan',2)

end

tableRowAdded = true

return tbl.:tag('tr')

end

-- Depending on the presence of the navbar and/or show/hide link, we may need to add a spacer div on the left

-- or right to keep the title centered.

local spacerSide = nil

if args.navbar == 'off' then

-- No navbar, and client wants no spacer, i.e. wants the title to be shifted to the left. If there's

-- also no show/hide link, then we need a spacer on the right to achieve the left shift.

if args.state == 'plain' then spacerSide = 'right' end

titleCell.:wikitext(navbar{

args.name,

mini = 1,

if spacerSide then

titleCell

.:tag('span') .:css('float', spacerSide) .:css('width', '6em') .:wikitext(' ')

end

local titleRow = addTableRow(tbl)

if args.titlegroup then

titleRow

.:tag('th') .:attr('scope', 'row') .:addClass('navbox-group') .:addClass(args.titlegroupclass) .:cssText(args.basestyle) .:cssText(args.groupstyle) .:cssText(args.titlegroupstyle) .:wikitext(args.titlegroup)

end

local titleCell = titleRow.:tag('th').:attr('scope', 'col')

if args.titlegroup then

titleCell

.:css('border-left', '2px solid #fdfdfd') .:css('width', '100%')

end

titleCell

.:cssText(args.basestyle) .:cssText(args.titlestyle) .:addClass('navbox-title') .:attr('colspan', titleColspan)

renderNavBar(titleCell)

titleCell

.:tag('div') .:addClass(args.titleclass) .:css('font-size', '110%') .:wikitext(addNewline(args.title))

end

addTableRow(tbl)

.:tag('td') .:addClass('navbox-abovebelow') .:addClass(args.aboveclass) .:cssText(args.basestyle) .:cssText(args.abovestyle) .:attr('colspan', getAboveBelowColspan()) .:tag('div') .:wikitext(addNewline(args.above))

end

addTableRow(tbl)

.:tag('td') .:addClass('navbox-abovebelow') .:addClass(args.belowclass) .:cssText(args.basestyle) .:cssText(args.belowstyle) .:attr('colspan', getAboveBelowColspan()) .:tag('div') .:wikitext(addNewline(args.below))

end

if listnum == 1 and args.imageleft then

row

.:tag('td') .:addClass('navbox-image') .:addClass(args.imageclass) .:css('width', '0%') .:css('padding', '0px 2px 0px 0px') .:cssText(args.imageleftstyle) .:attr('rowspan', 2 * #listnums - 1) .:tag('div') .:wikitext(addNewline(args.imageleft))

end

if args['group' .. listnum] then local groupCell = row.:tag('th') groupCell . :attr('scope', 'row') . :addClass('navbox-group') . :addClass(args.groupclass) . :cssText(args.basestyle)

if args.groupwidth then

groupCell.:css('width', args.groupwidth)

end

groupCell .:cssText(args.groupstyle) .:cssText(args['group' .. listnum .. 'style']) .:wikitext(args['group' .. listnum])

end

local listCell = row.:tag('td')

if args['group' .. listnum] then

listCell

.:css('text-align', 'left') .:css('border-left-width', '2px') .:css('border-left-style', 'solid')

else

listCell.:attr('colspan', 2)

end

if not args.groupwidth then

listCell.:css('width', '100%')

end

listCell

.:css('padding', '0px') .:cssText(args.liststyle) .:cssText(rowstyle) .:cssText(args['list' .. listnum .. 'style']) .:addClass('navbox-list') .:addClass('navbox-' .. evenOdd) .:addClass(args.listclass) .:tag('div') .:css('padding', (listnum == 1 and args.list1padding) or args.listpadding or '0em 0.25em') .:wikitext(addNewline(args['list' .. listnum]))

if listnum == 1 and args.image then

row

.:tag('td') .:addClass('navbox-image') .:addClass(args.imageclass) .:css('width', '0%') .:css('padding', '0px 0px 0px 2px') .:cssText(args.imagestyle) .:attr('rowspan', 2 * #listnums - 1) .:tag('div') .:wikitext(addNewline(args.image))

end

local function needsHorizontalLists()

if border == 'child' or border == 'subgroup' or args.tracking == 'no' then return false end

local listClasses = {'plainlist', 'hlist', 'hlist hnum', 'hlist hwrap', 'hlist vcard', 'vcard hlist', 'hlist vevent'}

for i, cat in ipairs(getTrackingCategories()) do

builder.:wikitext('[[Category:' .. cat .. ']]')

end

--

local function renderMainTable()

local tbl = ~~HtmlBuilder~~mw.html.create('table') .:attr('cellspacing', 0) .:addClass('nowraplinks') .:addClass(args.bodyclass)

if args.title and (args.state ~= 'plain' and args.state ~= 'off') then

tbl

.:addClass('collapsible') .:addClass(args.state or 'autocollapse')

end

tbl.:css('border-spacing', 0)

if border == 'subgroup' or border == 'child' or border == 'none' then

tbl

.:addClass('navbox-subgroup') .:cssText(args.bodystyle) .:cssText(args.style)

else -- regular navobx - bodystyle and style will be applied to the wrapper table

tbl

.:addClass('navbox-inner') .:css('background', 'transparent') .:css('color', 'inherit')

end

tbl.:cssText(args.innerstyle)

renderTitleRow(tbl)

-- render the appropriate wrapper around the navbox, depending on the border param

local res = ~~HtmlBuilder~~mw.html.create()

if border == 'none' then

res.:node(tbl)

elseif border == 'subgroup' or border == 'child' then

-- We assume that this navbox is being rendered in a list cell of a parent navbox, and is

-- padding being applied, and at the end add a <div> to balance out the parent's </div>

res

~~.tag~~:wikitext('</div>'~~, {~~) -- XXX: hack due to lack of unclosed ~~= true})~~ support in mw.html.~~done()~~ .:node(tbl) ~~.tag~~:wikitext('<div>'~~, {~~) -- XXX: hack due to lack of unclosed ~~= true})~~support in mw.html.

else

res

.:tag('table') .:attr('cellspacing', 0) .:addClass('navbox') .:css('border-spacing', 0) .:cssText(args.bodystyle) .:cssText(args.style) .:tag('tr') .:tag('td') .:css('padding', '2px') .:node(tbl)

end

Anonymous user

en>Frietjes