Module:Navbox: Difference between revisions

Jump to navigation Jump to search
6,664 bytes removed ,  11 December 2021
no edit summary
m (1 revision imported)
No edit summary
Tag: Manual revert
Line 1: Line 1:
-- <nowiki>
--
-- Implements {{navbox}}
--
local p = {}
local p = {}
local navbar = require('Module:Navbar')._navbar
local tnavbar = require( 'Module:Tnavbar' )
local cfg = mw.loadData('Module:Navbox/configuration')
local yesno = require( 'Module:Yesno' )
local getArgs -- lazily initialized
local onmain = require('Module:Mainonly').on_main()
local args
local page_title = mw.title.getCurrentTitle().fullText
local format = string.format
--
 
-- Helper for inserting a new row into the navbox
local function striped(wikitext, border)
--
-- Return wikitext with markers replaced for odd/even striping.
-- @param tbl {mw.html table}
-- Child (subgroup) navboxes are flagged with a category that is removed
-- @return tbl {mw.html table}
-- by parent navboxes. The result is that the category shows all pages
--
-- where a child navbox is not contained in a parent navbox.
local function insertRow( tbl )
local orphanCat = cfg.category.orphan
return tbl:tag( 'tr' )
if border == cfg.keyword.border_subgroup and args[cfg.arg.orphan] ~= cfg.keyword.orphan_yes then
-- No change; striping occurs in outermost navbox.
return wikitext .. orphanCat
end
local first, second = cfg.class.navbox_odd_part, cfg.class.navbox_even_part
if args[cfg.arg.evenodd] then
if args[cfg.arg.evenodd] == cfg.keyword.evenodd_swap then
first, second = second, first
else
first = args[cfg.arg.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 % 2 == 1 and first or second
end
end
local regex = orphanCat:gsub('([%[%]])', '%%%1')
return (wikitext:gsub(regex, ''):gsub(cfg.marker.regex, changer)) -- () omits gsub count
end
 
local function processItem(item, nowrapitems)
if item: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 == cfg.keyword.nowrapitems_yes then
local lines = {}
for line in (item .. '\n'):gmatch('([^\n]*)\n') do
local prefix, content = line:match('^([*:;#]+)%s*(.*)')
if prefix and not content:match(cfg.pattern.nowrap) then
line = format(cfg.nowrap_item, prefix, content)
end
table.insert(lines, line)
end
item = table.concat(lines, '\n')
end
if item:match('^[*:;#]') then
return '\n' .. item ..'\n'
end
return item
end
end


-- we will want this later when we want to add tstyles for hlist/plainlist
--
local function has_navbar()
-- Creates the navbox table
return args[cfg.arg.navbar] ~= cfg.keyword.navbar_off
--
and args[cfg.arg.navbar] ~= cfg.keyword.navbar_plain
-- @param args {table}
and (
-- @return tbl {mw.html table}
args[cfg.arg.name]
--
or mw.getCurrentFrame():getParent():getTitle():gsub(cfg.pattern.sandbox, '')
local function createTbl( args )
~= cfg.pattern.navbox
)
end


local function renderNavBar(titleCell)
local tbl = mw.html.create( 'table' )
if has_navbar() then
titleCell:wikitext(navbar{
[cfg.navbar.name] = args[cfg.arg.name],
[cfg.navbar.mini] = 1,
[cfg.navbar.fontstyle] = (args[cfg.arg.basestyle] or '') .. ';' ..
(args[cfg.arg.titlestyle] or '') ..
';background:none transparent;border:none;box-shadow:none;padding:0;'
})
end


end
tbl
:addClass( yesno( args.subgroup ) and 'navbox-subgroup' or 'navbox' )
:addClass( 'nowraplinks' )


local function renderTitleRow(tbl)
if not yesno( args.subgroup ) and
if not args[cfg.arg.title] then return end
( args.state == 'collapsed' or
  args.state == 'uncollapsed' or
  args.state == 'autocollapse' or
  -- defaults to autocollapse
  args.state == nil )
then
tbl:addClass( 'mw-collapsible' )


local titleRow = tbl:tag('tr')
if args.state == 'collapsed' then
tbl:addClass( 'mw-collapsed' )
elseif args.state == 'uncollapsed' then
tbl:addClass('navbox-uncollapsed')
end
end


if args[cfg.arg.titlegroup] then
if yesno( args.collapsible ) then
titleRow
tbl:addClass( 'navbox-collapsible' )
:tag('th')
:attr('scope', 'row')
:addClass(cfg.class.navbox_group)
:addClass(args[cfg.arg.titlegroupclass])
:cssText(args[cfg.arg.basestyle])
:cssText(args[cfg.arg.groupstyle])
:cssText(args[cfg.arg.titlegroupstyle])
:wikitext(args[cfg.arg.titlegroup])
end
end


local titleCell = titleRow:tag('th'):attr('scope', 'col')
if args.style then
 
tbl:cssText( args.style )
if args[cfg.arg.titlegroup] then
titleCell
:css('border-left', '2px solid #fdfdfd')
:css('width', '100%')
end
end


local titleColspan = 2
-- manually set collapse/expand messages
if args[cfg.arg.imageleft] then titleColspan = titleColspan + 1 end
-- bug causing the default database messages to be used
if args[cfg.arg.image] then titleColspan = titleColspan + 1 end
tbl
if args[cfg.arg.titlegroup] then titleColspan = titleColspan - 1 end
:attr( {
['cellspacing'] = '0',
['data-expandtext'] = 'show',
['data-collapsetext'] = 'hide',
['data-navbox-name'] = args.name
} )


titleCell
return tbl
:cssText(args[cfg.arg.basestyle])
:cssText(args[cfg.arg.titlestyle])
:addClass(cfg.class.navbox_title)
:attr('colspan', titleColspan)
 
renderNavBar(titleCell)
 
titleCell
:tag('div')
-- id for aria-labelledby attribute
:attr('id', mw.uri.anchorEncode(args[cfg.arg.title]))
:addClass(args[cfg.arg.titleclass])
:css('font-size', '114%')
:css('margin', '0 4em')
:wikitext(processItem(args[cfg.arg.title]))
end
end


local function getAboveBelowColspan()
--
local ret = 2
-- Wrapper for [[Module:Tnavbar]]
if args[cfg.arg.imageleft] then ret = ret + 1 end
--
if args[cfg.arg.image] then ret = ret + 1 end
-- @param args {table}
return ret
-- @return {string}
--
local function navbar( args )
return tnavbar._collapsible( { [1] = '<span style="display:none;">RS3 </span>'..args.title, [2] = args.name } )
end
end


local function renderAboveRow(tbl)
--
if not args[cfg.arg.above] then return end
-- Creates the header (what you see when the navbox is collapsed)
--
-- @param tbl {mw.html table}
-- @param args {table}
-- @return {mw.html table}
--
local function header( tbl, args )
local div = insertRow( tbl )
:tag( 'th' )
:attr( 'colspan', '2' )
:addClass( 'navbox-title' )
:attr( 'id' , 'navbox-title' )
:tag( 'div' )


tbl:tag('tr')
-- @todo move this to site css so we can simplify this (hook off a class)
:tag('td')
-- to something like div:wikitext( args.name and navbar( args ) or args.title )
:addClass(cfg.class.navbox_abovebelow)
-- which can be appended to the above and returned straight away
:addClass(args[cfg.arg.aboveclass])
if args.name then
:cssText(args[cfg.arg.basestyle])
div
:cssText(args[cfg.arg.abovestyle])
:css( 'padding-right', args.state == 'plain' and '6em' or '0' )
:attr('colspan', getAboveBelowColspan())
:wikitext( navbar( args ) )
:tag('div')
else
-- id for aria-labelledby attribute, if no title
div
:attr('id', args[cfg.arg.title] and nil or mw.uri.anchorEncode(args[cfg.arg.above]))
:css( 'padding-left', args.state == 'plain' and '0' or '6em' )
:wikitext(processItem(args[cfg.arg.above], args[cfg.arg.nowrapitems]))
:wikitext( '<span style="display:none;">RS3 </span>'..args.title )
end
 
return div:allDone()
end
end


local function renderBelowRow(tbl)
--
if not args[cfg.arg.below] then return end
-- Inserts a row into the navbox
--
-- @param tbl {mw.html table}
-- @param gtitle {string}
-- @param group {string}
-- @param gtype {string}
-- @param gcats {table}
-- @param style {string}
-- @return {mw.html table}
--
local function row( tbl, gtitle, group, gtype, gcats, style, _name, subgroup )
local tr = insertRow( tbl )
local td
if gtitle then
td = tr
:addClass( 'navbox-group' )
:tag( 'td' )
:addClass( 'navbox-group-title' )
:wikitext( gtitle )
:done()
:tag( 'td' )
else
td = tr
:addClass( 'navbox-group' )
:addClass( 'navbox-group-split' )
:tag( 'td' )
:addClass( 'navbox-group-title-hidden' )
:attr( 'colspan', '0' )
:css( 'display', 'none' )
:done()
:tag( 'td' )
:attr( 'colspan', '2' )
end
 
--[[
  List styling
  This is unlikely to be implemented in the near future due to it requiring extra css to work
  and mobile currently not supporting that css.
  As an example, it lets you do the following instead if using {{*}} all the time
  | group3 =
  * {{plink|foo}}
  * {{plink|bar}}
  * {{plink|baz}}
]]
if mw.ustring.match( group, '^%s*%*' ) then
td:newline()


tbl:tag('tr')
-- trim whitespace on bullets
:tag('td')
local spl = mw.text.split( group, '\n' )
:addClass(cfg.class.navbox_abovebelow)
:addClass(args[cfg.arg.belowclass])
:cssText(args[cfg.arg.basestyle])
:cssText(args[cfg.arg.belowstyle])
:attr('colspan', getAboveBelowColspan())
:tag('div')
:wikitext(processItem(args[cfg.arg.below], args[cfg.arg.nowrapitems]))
end


local function renderListRow(tbl, index, listnum, listnums_size)
for i = 1, #spl do
local row = tbl:tag('tr')
spl[i] = mw.text.trim( spl[i] )
end


if index == 1 and args[cfg.arg.imageleft] then
group = '\n' .. table.concat( spl, '\n' )
row
:tag('td')
:addClass(cfg.class.noviewer)
:addClass(cfg.class.navbox_image)
:addClass(args[cfg.arg.imageclass])
:css('width', '1px')               -- Minimize width
:css('padding', '0 2px 0 0')
:cssText(args[cfg.arg.imageleftstyle])
:attr('rowspan', listnums_size)
:tag('div')
:wikitext(processItem(args[cfg.arg.imageleft]))
end
end


local group_and_num = format(cfg.arg.group_and_num, listnum)
--local group2 = group
local groupstyle_and_num = format(cfg.arg.groupstyle_and_num, listnum)
--local group3 = group2
if args[group_and_num] then
-- analytics
local groupCell = row:tag('th')


-- id for aria-labelledby attribute, if lone group with no title or above
--if _name then
if listnum == 1 and not (args[cfg.arg.title] or args[cfg.arg.above] or args[cfg.arg.group2]) then
-- local name = mw.ustring.gsub(_name,' ','_')
groupCell
-- for v in mw.ustring.gmatch(group,'%[%[[^%]]+%]%]') do
:attr('id', mw.uri.anchorEncode(args[cfg.arg.group1]))
-- if mw.ustring.match(v,'%[%[File:.+|link=') then
end
-- local link = mw.ustring.match(v,'|link=([^%]|]+)')
-- if link then
-- local linkrep = mw.ustring.gsub(link,'([%%%]%[%-^$*()+?])','%%%1')
-- local _link = mw.ustring.gsub(link,' ','_')
-- local newfile = mw.ustring.gsub(v,'|link='..linkrep,string.format('|link=https://runescape.wiki/w/%s?f=%s',_link,name))
-- local w = mw.ustring.gsub(v,'([%%%]%[%-^$*()+?])','%%%1')
-- group2 = mw.ustring.gsub(group2,w,newfile)
-- end
-- elseif mw.ustring.match(v,'%[%[Category:') then
-- nothing
-- else
-- local link = mw.ustring.match(v,'%[%[([^%]|]+)')
-- local txt = mw.ustring.match(v,'%|([^%]|]+)') or link


groupCell
-- local newlink = ''
:attr('scope', 'row')
:addClass(cfg.class.navbox_group)
:addClass(args[cfg.arg.groupclass])
:cssText(args[cfg.arg.basestyle])
-- If groupwidth not specified, minimize width
:css('width', args[cfg.arg.groupwidth] or '1%')


groupCell
-- black links if current page
:cssText(args[cfg.arg.groupstyle])
-- if link == page_title then
:cssText(args[groupstyle_and_num])
-- newlink = string.format('<b>%s</b>',txt)
:wikitext(args[group_and_num])
-- else
end
-- local _link = mw.ustring.gsub(link or '',' ','_')
-- newlink = string.format('[https://runescape.wiki.com/w/%s?n=%s %s]',_link,name,txt)
-- end
-- local w = mw.ustring.gsub(v,'([%%%]%[%-^$*()+?])','%%%1')
-- group2 = mw.ustring.gsub(group2,w,newlink)
-- end
-- end


local listCell = row:tag('td')
--[==[
fix [[these kind]]s of [[link]]s post analytics parse
]==]
-- group3 = group2


if args[group_and_num] then
-- for v in mw.ustring.gmatch(group2,'%[https://runescape.wiki.com/w[^%]]-%]%a') do
listCell
-- local rep = mw.ustring.gsub(v,'%]','')
:addClass(cfg.class.navbox_list_with_group)
-- rep = rep..']'
else
-- local w = mw.ustring.gsub(v,'([%%%]%[%-^$*()+?])','%%%1')
listCell:attr('colspan', 2)
end


if not args[cfg.arg.groupwidth] then
-- group3 = mw.ustring.gsub(group2,w,rep)
listCell:css('width', '100%')
-- end
end
--end


local rowstyle  -- usually nil so cssText(rowstyle) usually adds nothing
td
if index % 2 == 1 then
:addClass( 'navbox-list' )
rowstyle = args[cfg.arg.oddstyle]
:wikitext( group ) --group3
else
rowstyle = args[cfg.arg.evenstyle]
end


local list_and_num = format(cfg.arg.list_and_num, listnum)
if gtype and mw.ustring.lower( gtype ) == 'subgroup' then
local listText = args[list_and_num]
td
local oddEven = cfg.marker.oddeven
:addClass( 'navbox-parent' )
if listText:sub(1, 12) == '</div><table' then
:css( {
-- Assume list text is for a subgroup navbox so no automatic striping for this row.
padding = '0',
oddEven = listText:find(cfg.pattern.navbox_title) and cfg.marker.restart or cfg.class.navbox_odd_part
['border-bottom'] = '0'
} )
end
end


local liststyle_and_num = format(cfg.arg.liststyle_and_num, listnum)
if style then
local listclass_and_num = format(cfg.arg.listclass_and_num, listnum)
td:cssText( style )
listCell
:css('padding', '0')
:cssText(args[cfg.arg.liststyle])
:cssText(rowstyle)
:cssText(args[liststyle_and_num])
:addClass(cfg.class.navbox_list)
:addClass(cfg.class.navbox_part .. oddEven)
:addClass(args[cfg.arg.listclass])
:addClass(args[listclass_and_num])
:tag('div')
:css('padding',
(index == 1 and args[cfg.arg.list1padding]) or args[cfg.arg.listpadding] or '0 0.25em'
)
:wikitext(processItem(listText, args[cfg.arg.nowrapitems]))
 
if index == 1 and args[cfg.arg.image] then
row
:tag('td')
:addClass(cfg.class.noviewer)
:addClass(cfg.class.navbox_image)
:addClass(args[cfg.arg.imageclass])
:css('width', '1px')              -- Minimize width
:css('padding', '0 0 0 2px')
:cssText(args[cfg.arg.imagestyle])
:attr('rowspan', listnums_size)
:tag('div')
:wikitext(processItem(args[cfg.arg.image]))
end
end
end
-- uses this now to make the needHlistCategory correct
-- to use later for when we add list styles via navbox
local function has_list_class(htmlclass)
local class_args = { -- rough order of probability of use
cfg.arg.bodyclass, cfg.arg.listclass, cfg.arg.aboveclass,
cfg.arg.belowclass, cfg.arg.titleclass, cfg.arg.navboxclass,
cfg.arg.groupclass, cfg.arg.titlegroupclass, cfg.arg.imageclass
}
local patterns = {
'^' .. htmlclass .. '$',
'%s' .. htmlclass .. '$',
'^' .. htmlclass .. '%s',
'%s' .. htmlclass .. '%s'
}
for _, arg in ipairs(class_args) do
-- add subgroup categories
for _, pattern in ipairs(patterns) do
if next(gcats) and onmain then
if mw.ustring.find(args[arg] or '', pattern) then
first_char = page_title:sub(1,1)
return true
title_pattern = "[" .. first_char:upper() .. first_char:lower() .. "]" .. page_title:sub(2)
title_pattern = title_pattern :gsub("%(","%%(")
:gsub("%)","%%)")
:gsub("_"," ")
:gsub(" ","[_ ]")
:gsub("%-","%%-")
local link_patterns = {
"%[%["..title_pattern.."%]%]", "%[%["..title_pattern.."%|", "{{[Pp]link%|"..title_pattern.."}}",
"{{[Pp]link%|"..title_pattern.."%|", "{{[Pp]linkp%|"..title_pattern.."}}",
"{{[Pp]linkp%|"..title_pattern.."%|", "{{[Ii]linkp%|"..title_pattern.."}}",
"{{[Ii]linkp%|"..title_pattern.."%|", "{{[Cc]hatl%|"..title_pattern.."}}",
"{{[Cc]hatl%|"..title_pattern.."%|"
}
for _,v in ipairs(link_patterns) do
if group:match(v) then
for _,cat in ipairs(gcats) do
td:wikitext('[[Category:'..cat..']]')
end
break
end
end
end
end
end
end
return false
return td:allDone()
end
end


local function needsHorizontalLists(border)
--
if border == cfg.keyword.border_subgroup or args[cfg.arg.tracking] == cfg.keyword.tracking_no then
-- Inserts a footer into the navbox
return false
--
end
-- @param tbl {mw.html table}
return not has_list_class(cfg.pattern.hlist) and not has_list_class(cfg.pattern.plainlist)
-- @param args {table}
end
-- @return {mw.html table}
--
local function footer( tbl, args )
local th = insertRow( tbl )
:tag( 'th' )
:attr( 'colspan', '2' )
:addClass( 'navbox-footer' )


local function hasBackgroundColors()
if args.fstyle then
for _, key in ipairs({cfg.arg.titlestyle, cfg.arg.groupstyle,
th:cssText( args.fstyle )
cfg.arg.basestyle, cfg.arg.abovestyle, cfg.arg.belowstyle}) do
if tostring(args[key]):find('background', 1, true) then
return true
end
end
end
return false
end


local function hasTitleGroup()
if mw.ustring.match( args.footer, '^%s*%*' ) then
if args[cfg.arg.titlegroup] and args[cfg.arg.titlegroup] ~= '' then
th:newline()
return true
end
return false
end


local function hasBorders()
-- trim whitespace on bullets
for _, key in ipairs({cfg.arg.groupstyle, cfg.arg.basestyle,
local spl = mw.text.split( args.footer, '\n' )
cfg.arg.abovestyle, cfg.arg.belowstyle}) do
if tostring(args[key]):find('border', 1, true) then
return true
end
end
return false
end


local function isIllegible()
for i = 1, #spl do
local styleratio = require('Module:Color contrast')._styleratio
spl[i] = mw.text.trim( spl[i] )
for key, style in pairs(args) do
if tostring(key):match(cfg.pattern.style) then
if styleratio{mw.text.unstripNoWiki(style)} < 4.5 then
return true
end
end
end
end
return false
end
local function getTrackingCategories(border)
local cats = {}
if needsHorizontalLists(border) then table.insert(cats, cfg.category.horizontal_lists) end
if hasBackgroundColors() then table.insert(cats, cfg.category.background_colors) end
if isIllegible() then table.insert(cats, cfg.category.illegible) end
if hasBorders() then table.insert(cats, cfg.category.borders) end
if hasTitleGroup() then table.insert(cats, cfg.category.titlegroup) end
return cats
end


local function renderTrackingCategories(builder, border)
args.footer = table.concat( spl, '\n' )
local title = mw.title.getCurrentTitle()
if title.namespace ~= 10 then return end -- not in template space
local subpage = title.subpageText
if subpage == cfg.keyword.subpage_doc or subpage == cfg.keyword.subpage_sandbox
or subpage == cfg.keyword.subpage_testcases then return end


for _, cat in ipairs(getTrackingCategories(border)) do
th:addClass( 'navbox-list' )
builder:wikitext('[[Category:' .. cat .. ']]')
end
end
end


local function renderMainTable(border, listnums)
th:wikitext( args.footer )
local tbl = mw.html.create('table')
:addClass(cfg.class.nowraplinks)
:addClass(args[cfg.arg.bodyclass])


local state = args[cfg.arg.state]
return th:allDone()
if args[cfg.arg.title] and state ~= cfg.keyword.state_plain and state ~= cfg.keyword.state_off then
end
if state == cfg.keyword.state_collapsed then
state = cfg.class.collapsed
end
tbl
:addClass(cfg.class.collapsible)
:addClass(state or cfg.class.autocollapse)
end


tbl:css('border-spacing', 0)
--
if border == cfg.keyword.border_subgroup or border == cfg.keyword.border_none then
-- Adds [[Category:Navigational templates]] to navbox template pages
tbl
--
:addClass(cfg.class.navbox_subgroup)
-- @return {string}
:cssText(args[cfg.arg.bodystyle])
--
:cssText(args[cfg.arg.style])
local function categories()
else  -- regular navbox - bodystyle and style will be applied to the wrapper table
local title = mw.title.getCurrentTitle()
tbl
local page = title.text
:addClass(cfg.class.navbox_inner)
local ns = title.nsText
:css('background', 'transparent')
:css('color', 'inherit')
end
tbl:cssText(args[cfg.arg.innerstyle])


renderTitleRow(tbl)
if ns == 'Template' then
renderAboveRow(tbl)
-- sort in category by pagename
local listnums_size = #listnums
return '[[Category:Navigational templates|' .. page .. ']]'
for i, listnum in ipairs(listnums) do
else
renderListRow(tbl, i, listnum, listnums_size)
return ''
end
end
renderBelowRow(tbl)


return tbl
end
end


local function add_navbox_styles()
--
-- Adds [[Template:Navbox/doc]] to navbox template pages
--
-- @param args {table}
-- @return {string}
--
local function docs( args )
local frame = mw.getCurrentFrame()
local frame = mw.getCurrentFrame()
-- This is a lambda so that it doesn't need the frame as a parameter
local title = mw.title.getCurrentTitle()
local function add_user_styles(templatestyles)
local base = title.baseText
if templatestyles and templatestyles ~= '' then
local ns = title.nsText
return frame:extensionTag{
 
name = 'templatestyles', args = { src = templatestyles }
-- not if a subpage of [[Template:Navbox]]
}
if base ~= 'Navbox' and
end
-- in template ns
ns == 'Template' and
-- not a navbox group within a navbox
not yesno( args.subgroup ) and
-- not a collapsible navbox within a navbox
not yesno( args.collapsible ) and
-- not if the doc argument is not set to "yes"
yesno( args.doc, false )
then
return frame:expandTemplate{ title = 'Navbox/doc' }
else
return ''
return ''
end
end


-- get templatestyles. load base from config so that Lua only needs to do
-- the work once of parser tag expansion
local base_templatestyles = cfg.templatestyles
local templatestyles = add_user_styles(args[cfg.arg.templatestyles])
local child_templatestyles = add_user_styles(args[cfg.arg.child_templatestyles])
-- The 'navbox-styles' div exists for two reasons:
--  1. To wrap the styles to work around T200206 more elegantly. Instead
--    of combinatorial rules, this ends up being linear number of CSS rules.
--  2. To allow MobileFrontend to rip the styles out with 'nomobile' such that
--    they are not dumped into the mobile view.
return mw.html.create('div')
:addClass(cfg.class.navbox_styles)
:addClass(cfg.class.nomobile)
:wikitext(base_templatestyles .. templatestyles .. child_templatestyles)
:done()
end
end


function p._navbox(navboxArgs)
--
args = navboxArgs
-- Navbox method to allow it to be called by other modules
local listnums = {}
--
 
-- @param _args {table}
for k, _ in pairs(args) do
-- @return {string}
if type(k) == 'string' then
--
local listnum = k:match(cfg.pattern.listnum)
function p._navbox( _args )
if listnum then table.insert(listnums, tonumber(listnum)) end
local args = {}
local wkCss = ''
local wkDiv = ''
local j
-- preserves parser function behaviour where an empty string is considered undefined
-- or nil in lua's case
for k, v in pairs( _args ) do
if v ~= '' then
args[k] = v
end
end
end
end
table.sort(listnums)


local border = mw.text.trim(args[cfg.arg.border] or args[1] or '')
local tbl = createTbl( args )
if border == cfg.keyword.border_child then
 
border = cfg.keyword.border_subgroup
if not yesno( args.subgroup ) then
tbl = header( tbl, args )
end
end


-- render the main body of the navbox
-- insert up to 20 rows
local tbl = renderMainTable(border, listnums)
--
-- 20 is a limit inherited from wikipedia when we copied this over
-- and we've never had a reason to extend it
for i = 1, 20 do
j = tostring( i )


local res = mw.html.create()
if args['group' .. j] then
-- render the appropriate wrapper for the navbox, based on the border param
local gcats = {}
 
for p = 1, 20 do
if border == cfg.keyword.border_none then
local q = tostring ( p )
res:node(add_navbox_styles())
local nav = res:tag('div')
if args['g' .. j .. 'cat' .. q] then
:attr('role', 'navigation')
table.insert(gcats, args['g' .. j .. 'cat' .. q])
:node(tbl)
else
-- aria-labelledby title, otherwise above, otherwise lone group
break
if args[cfg.arg.title] or args[cfg.arg.above] or (args[cfg.arg.group1]
end
and not args[cfg.arg.group2]) then
end
nav:attr(
'aria-labelledby',
tbl = row( tbl, args['gtitle' .. j], args['group' .. j], args['gtype' .. j], gcats, args['style' .. j], args.name, args.subgroup )
mw.uri.anchorEncode(
args[cfg.arg.title] or args[cfg.arg.above] or args[cfg.arg.group1]
)
)
else
else
nav:attr('aria-label', cfg.aria_label)
break
end
elseif border == cfg.keyword.border_subgroup 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>')
:node(tbl)
:wikitext('<div>')
else
res:node(add_navbox_styles())
local nav = res:tag('div')
:attr('role', 'navigation')
:addClass(cfg.class.navbox)
:addClass(args[cfg.arg.navboxclass])
:cssText(args[cfg.arg.bodystyle])
:cssText(args[cfg.arg.style])
:css('padding', '3px')
:node(tbl)
-- aria-labelledby title, otherwise above, otherwise lone group
if args[cfg.arg.title] or args[cfg.arg.above]
or (args[cfg.arg.group1] and not args[cfg.arg.group2]) then
nav:attr(
'aria-labelledby',
mw.uri.anchorEncode(args[cfg.arg.title] or args[cfg.arg.above] or args[cfg.arg.group1])
)
else
nav:attr('aria-label', cfg.aria_label)
end
end
end
end


if (args[cfg.arg.nocat] or cfg.keyword.nocat_false):lower() == cfg.keyword.nocat_false then
if args.footer then
renderTrackingCategories(res, border)
tbl = footer( tbl, args )
end
end
return striped(tostring(res), border)
end


function p.navbox(frame)
tbl = tostring( tbl )
if not getArgs then
 
getArgs = require('Module:Arguments').getArgs
local cats = ''
if not yesno(args.subgroup) and not yesno(args.hidecat) then
cats = categories()
end
end
args = getArgs(frame, {wrappers = {cfg.pattern.navbox}})
local docs = docs( args )


-- Read the arguments in the order they'll be output in, to make references
return tbl .. cats .. docs
-- number in the right order.
end
local _
_ = args[cfg.arg.title]
_ = args[cfg.arg.above]
-- Limit this to 20 as covering 'most' cases (that's a SWAG) and because
-- iterator approach won't work here
for i = 1, 20 do
_ = args[format(cfg.arg.group_and_num, i)]
_ = args[format(cfg.arg.list_and_num, i)]
end
_ = args[cfg.arg.below]


return p._navbox(args)
--
-- Main navbox method accessed through #invoke
--
-- @param frame {table}
-- @return {string}
--
function p.navbox( frame )
local args = frame:getParent().args
return p._navbox( args )
end
end


return p
return p
-- </nowiki>

Navigation menu