Changes

local function trimstriped(swikitext) return -- Return wikitext with markers replaced for odd/even striping. -- Child (mwsubgroup) navboxes are flagged with a category that is removed -- by parent navboxes.ustringThe result is that the category shows all pages -- where a child navbox is not contained in a parent navbox.gsub(s local orphanCat = '[[Category:Navbox orphans]]' if border == 'subgroup' and args.orphan ~= 'yes' then -- No change; striping occurs in outermost navbox. return wikitext .. orphanCat end local first, "^%s*second = 'odd', 'even' if args.evenodd then if args.evenodd == 'swap' then first, second = second, first else first = args.evenodd second = first end end local changer if first == second then changer = first else local index = 0 changer = function (code) if code == '0' then -- Current occurrence is for a group before a nested table. -)- Set it to first as a valid although pointless class. -- The next occurrence will be the first row after a title -- in a subgroup and will also be first. index = 0 return first end index = index + 1 return index %s*$"2 == 1 and first or second end end local regex = orphanCat:gsub('([%[%]])', "'%%%1"') return (wikitext:gsub(regex, ''):gsub(REGEX_MARKER, changer)) -- () omits gsub count

local function addNewlineprocessItem(sitem, nowrapitems) if sitem:sub(1, 2) == '{|' then -- Applying nowrap to lines in a table does not make sense. -- Add newlines to compensate for trim of x in |parm=x in a template. return '\n' .. item ..'\n' end if nowrapitems == 'yes' then local lines = {} for line in (item .. '\n'):gmatch('([^\n]*)\n') do local prefix, content = line:match('^([*:;#]'+) or %s*(.*)') if prefix and not content:match('^{|<span class="nowrap">') then line = prefix .. '<span class="nowrap">' .. content .. '</span>' end table.insert(lines, line) end item = table.concat(lines, '\n') end if item:match('^[*:;#]') then return '\n' .. s item ..'\n' else end return s enditem

-- If any other rows have already been added, then we add a 2px gutter row. if tableRowAdded then tbl :tag('tr') :css('height', '2px') :tag('td') :attr('colspan',2) end

tableRowAdded = true

return tbl:tag('tr')

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 elseif args.navbar =~= 'plain' or and not (not args.name and mw.getCurrentFrame():getParent():getTitle():gsub('/sandbox$', '') == 'Template:Navbox') then -- No titleCell:wikitext(navbar. Need a spacer on the left to balance out the width of the show/hide link.{ if args.state ~name, mini = 'plain' then spacerSide 1, fontstyle = (args.basestyle or 'left' end else -- Will render navbar (or error message). If there. ';'s no show/hide link, need a spacer on the right -- to balance out the width of the navbar. if . (args.state == titlestyle or 'plain' then spacerSide = ) .. 'right;background:none transparent;border:none;' }) end

if not args.title then return 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

local titleColspan = 2 if args.imageleft then titleColspan = titleColspan + 1 end if args.image then titleColspan = titleColspan + 1 end if args.titlegroup then titleColspan = titleColspan - 1 end

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

renderNavBar(titleCell)

titleCell :tag('div') :attr('id', mw.uri.anchorEncode(args.title)) :addClass(args.titleclass) :css('font-size', '114%') :css('margin', '0 4em') :wikitext(addNewlineprocessItem(args.title))

local ret = 2 if args.imageleft then ret = ret + 1 end if args.image then ret = ret + 1 end return ret

if not args.above then return end

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

if not args.below then return end

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

local function renderListRow(tbl, index, listnum) local row = addTableRow(tbl)

if listnum index == 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(addNewlineprocessItem(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

local isOdd = rowstyle -- usually nil so cssText(listnum rowstyle) usually adds nothing if index % 2) == 1then local rowstyle = args.evenstyleoddstyle if isOdd then else rowstyle = args.oddstyle evenstyle end

local evenOdd if listText = args['list' .evenodd . listnum] local oddEven = ODD_EVEN_MARKER if listText:sub(1, 12) == 'swap</div><table' then if isOdd then evenOdd -- Assume list text is for a subgroup navbox so no automatic striping for this row. oddEven = listText:find('even<th[^>]*"navbox%-title"' else evenOdd = ) and RESTART_MARKER or 'odd' end else listCell if isOdd then evenOdd = :css('padding', '0px') :cssText(args.evenodd or liststyle) :cssText(rowstyle) :cssText(args['oddlist' else evenOdd .. listnum .. 'style']) :addClass('navbox-list') :addClass('navbox-' .. oddEven) :addClass(args.listclass) :tag('div') :css('padding', (index == 1 and args.evenodd list1padding) or args.listpadding or 'even0em 0.25em' end) end :wikitext(processItem(listText, args.nowrapitems))

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 index == 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(addNewlineprocessItem(args.image)) end

if border == 'child' or border == 'subgroup' or args.tracking == 'no' then return false end end local listClasses = { ['plainlist'] = true, ['hlist'] = true, ['hlist hnum'] = true, ['hlist hwrap'] = true, ['hlist vcard'] = true, ['vcard hlist'] = true, ['hlist vevent'] = true, } for i, cls in ipairs return not (listClasses) do if [args.listclass == cls ] or listClasses[args.bodyclass == cls then return false end end  return true])

return mw.ustring.match for _, key in ipairs(args.{'titlestyle or ', 'groupstyle','backgroundbasestyle'}) or mw.ustring.matchdo if tostring(args.groupstyle or [key]):find('background',1, true) then return true end endend local function isIllegible() local styleratio = require('backgroundModule:Color contrast') or mw.ustring.match_styleratio  for key, style in pairs(args) do if tostring(key):match("style$") then if styleratio{mw.basestyle or '','background'text.unstripNoWiki(style)} < 4.5 then return true end end end return false

local cats = {} if needsHorizontalLists() then table.insert(cats, 'Navigational boxes without horizontal lists') end if hasBackgroundColors() then table.insert(cats, 'Navboxes using background colours') end if isIllegible() then table.insert(cats, 'Potentially illegible navboxes') end return cats

local title = mw.title.getCurrentTitle() if title.namespace ~= 10 then return end -- not in template space local subpage = title.subpageText if subpage == 'doc' or subpage == 'sandbox' or subpage == 'testcases' then return end

for i_, cat in ipairs(getTrackingCategories()) do builder:wikitext('[[Category:' .. cat .. ']]') end

local tbl = mw.html.create('table') :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 navbox - 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) renderAboveRow(tbl) for i, listnum in ipairs(listnums) do renderListRow(tbl, i, listnum) end renderBelowRow(tbl)

return tbl

args = navboxArgs

for k, v _ in pairs(args) do local listnum = if type(k) == 'string' .. then local listnum = k):match('^list(%d+)$') if listnum then table.insert(listnums, tonumber(listnum)) end end end table.sort(listnums)

border = mw.text.trim(args.border or args[1] or '') if border == 'child' then border = 'subgroup' end

-- render the main body of the navbox local tbl = renderMainTable()

-- render the appropriate wrapper around the navbox, depending on the border param local res = mw.html.create() if border == 'none' then local nav = res:tag('div') :attr('role', 'navigation') :node(tbl) elseif border == if args.title then nav:attr('subgrouparia-labelledby' or , mw.uri.anchorEncode(args.title)) else nav:attr('aria-label', 'Navbox') end elseif border == 'childsubgroup' then -- We assume that this navbox is being rendered in a list cell of a parent navbox, and is -- therefore inside a div with padding:0em 0.25em. We start with a </div> to avoid the -- padding being applied, and at the end add a <div> to balance out the parent's </div> res :wikitext('</div>') -- XXX: hack due to lack of unclosed support in mw.html. :node(tbl) :wikitext('<div>') -- XXX: hack due to lack of unclosed support in mw.html. else local nav = res :tag('tablediv') :addClassattr('navboxrole', 'navigation') :cssaddClass('border-spacingnavbox', 0) :cssText(args.bodystyle) :cssText(args.style) :tagcss('trpadding', '3px') :tagnode(tbl) if args.title then nav:attr('tdaria-labelledby', mw.uri.anchorEncode(args.title)) else nav:cssattr('paddingaria-label', '2pxNavbox') :node(tbl) end end

renderTrackingCategories(res)

return striped(tostring(res))

if not getArgs then getArgs = require('Module:Arguments').getArgs end args = getArgs(frame, {wrappers = 'Template:Navbox'})

-- Read the arguments in the order they'll be output in, to make references number in the right order. local _ _ = args.title _ = args.above for i = 1, 20 do _ = args["group" .. tostring(i)] _ = args["list" .. tostring(i)] end _ = args.below

return p._navbox(args)