모듈:Navbox: 두 판 사이의 차이

이삭위키
둘러보기로 이동 검색으로 이동
잔글 (이형주(토론)의 편집을 ChongDae의 마지막 판으로 되돌림)
잔글 (판 1개를 가져왔습니다)
 
(사용자 7명의 중간 판 56개는 보이지 않습니다)
1번째 줄: 1번째 줄:
--
-- This module will implement {{Navbox}}
-- 이 모듈은 {{둘러보기 상자}}의 구현에 사용됩니다
--
local p = {}
local p = {}
local navbar = require('Module:Navbar')._navbar
local HtmlBuilder = require('Module:HtmlBuilder')
local cfg = mw.loadData('Module:Navbox/configuration')
local Navbar = require('Module:Navbar')
local getArgs -- lazily initialized
local args
local format = string.format


local args
local function striped(wikitext, border)
local frame
-- Return wikitext with markers replaced for odd/even striping.
local tableRowAdded = false
-- Child (subgroup) navboxes are flagged with a category that is removed
local border
-- by parent navboxes. The result is that the category shows all pages
local listnums = {}
-- where a child navbox is not contained in a parent navbox.
local orphanCat = cfg.category.orphan
function trim(s)
if border == cfg.keyword.border_subgroup and args[cfg.arg.orphan] ~= cfg.keyword.orphan_yes then
    return (mw.ustring.gsub(s, "^%s*(.-)%s*$", "%1"))
-- 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


function addTableRow(tbl)
local function has_navbar()
    -- If any other rows have already been added, then we add a 2px gutter row.
return args[cfg.arg.navbar] ~= cfg.keyword.navbar_off
    if tableRowAdded then
and args[cfg.arg.navbar] ~= cfg.keyword.navbar_plain
        tbl
and (
            .tag('tr')
args[cfg.arg.name]
                .css('height', '2px')
or mw.getCurrentFrame():getParent():getTitle():gsub(cfg.pattern.sandbox, '')
                .tag('td')
~= cfg.pattern.navbox
    end
)
   
    tableRowAdded = true
   
    return tbl.tag('tr')
end
end


local function renderNavBar(titleCell)
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


--
--  Title row
--
function renderTitleRow(tbl)
    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')
            .addClass(args.titleclass)
            .css('font-size', '110%')
            .newline()
            .wikitext(args.title)
end
end


function renderNavBar(titleCell)
local function renderTitleRow(tbl)
    -- Depending on the presence of the navbar and/or show/hide link, we may need to add a spacer div on the left
if not args[cfg.arg.title] then return end
    -- or right to keep the title centered.
 
    local spacerSide = nil
local titleRow = tbl:tag('tr')
 
local titleCell = titleRow:tag('th'):attr('scope', 'col')


    if args.navbar == 'off' then
local titleColspan = 2
        -- No navbar, and client wants no spacer, i.e. wants the title to be shifted to the left. If there's
if args[cfg.arg.imageleft] then titleColspan = titleColspan + 1 end
        -- also no show/hide link, then we need a spacer on the right to achieve the left shift.
if args[cfg.arg.image] then titleColspan = titleColspan + 1 end
        if args.state == 'plain' then spacerSide = 'right' end
    elseif args.navbar == 'plain' or args.navbar == 'off' or (not args.name and (border == 'subgroup' or border == 'child' or border == 'none')) then
        -- No navbar. Need a spacer on the left to balance out the width of the show/hide link.
        if args.state ~= 'plain' then spacerSide = '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 == 'plain' then spacerSide = 'right' end


        titleCell.wikitext(Navbar.navbar({
titleCell
            args.name,
:cssText(args[cfg.arg.basestyle])
            mini = 1,
:cssText(args[cfg.arg.titlestyle])
            fontstyle = (args.basestyle or '') .. ';' .. (args.titlestyle or '') .. ';background:none transparent;border:none;'
:addClass(cfg.class.navbox_title)
        }))
:attr('colspan', titleColspan)
    end
 
   
renderNavBar(titleCell)
    -- Render the spacer div.
 
    if spacerSide then
titleCell
        titleCell
:tag('div')
            .tag('span')
-- id for aria-labelledby attribute
                .css('float', spacerSide)
:attr('id', mw.uri.anchorEncode(args[cfg.arg.title]))
                .css('width', '6em')
:addClass(args[cfg.arg.titleclass])
                .wikitext(' ')
:css('font-size', '114%')
    end
:css('margin', '0 4em')
:wikitext(processItem(args[cfg.arg.title]))
end
end


local function getAboveBelowColspan()
local ret = 2
if args[cfg.arg.imageleft] then ret = ret + 1 end
if args[cfg.arg.image] then ret = ret + 1 end
return ret
end


--
local function renderAboveRow(tbl)
--  Above/Below rows
if not args[cfg.arg.above] then return end
--
 
function renderAboveRow(tbl)
tbl:tag('tr')
    if not args.above then return end
:tag('td')
:addClass(cfg.class.navbox_abovebelow)
    addTableRow(tbl)
:addClass(args[cfg.arg.aboveclass])
        .tag('td')
:cssText(args[cfg.arg.basestyle])
            .addClass('navbox-abovebelow')
:cssText(args[cfg.arg.abovestyle])
            .addClass(args.aboveclass)
:attr('colspan', getAboveBelowColspan())
            .cssText(args.basestyle)
:tag('div')
            .cssText(args.abovestyle)
-- id for aria-labelledby attribute, if no title
            .attr('colspan', getAboveBelowColspan())
:attr('id', (not args[cfg.arg.title]) and mw.uri.anchorEncode(args[cfg.arg.above]) or nil)
            .tag('div')
:wikitext(processItem(args[cfg.arg.above], args[cfg.arg.nowrapitems]))
                .newline()
                .wikitext(args.above)
end
end


function renderBelowRow(tbl)
local function renderBelowRow(tbl)
    if not args.below then return end
if not args[cfg.arg.below] then return end
   
 
    addTableRow(tbl)
tbl:tag('tr')
        .tag('td')
:tag('td')
            .addClass('navbox-abovebelow')
:addClass(cfg.class.navbox_abovebelow)
            .addClass(args.belowclass)
:addClass(args[cfg.arg.belowclass])
            .cssText(args.basestyle)
:cssText(args[cfg.arg.basestyle])
            .cssText(args.belowstyle)
:cssText(args[cfg.arg.belowstyle])
            .attr('colspan', getAboveBelowColspan())
:attr('colspan', getAboveBelowColspan())
            .tag('div')
:tag('div')
                .newline()
:wikitext(processItem(args[cfg.arg.below], args[cfg.arg.nowrapitems]))
                .wikitext(args.below)
end
end


function getAboveBelowColspan()
local function renderListRow(tbl, index, listnum, listnums_size)
    local ret = 2
local row = tbl:tag('tr')
    if args.imageleft then ret = ret + 1 end
 
    if args.image then ret = ret + 1 end
if index == 1 and args[cfg.arg.imageleft] then
    return ret
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
 
local group_and_num = format(cfg.arg.group_and_num, listnum)
local groupstyle_and_num = format(cfg.arg.groupstyle_and_num, listnum)
if args[group_and_num] then
local groupCell = row:tag('th')
 
-- id for aria-labelledby attribute, if lone group with no title or above
if listnum == 1 and not (args[cfg.arg.title] or args[cfg.arg.above] or args[cfg.arg.group2]) then
groupCell
:attr('id', mw.uri.anchorEncode(args[cfg.arg.group1]))
end
 
groupCell
: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
:cssText(args[cfg.arg.groupstyle])
:cssText(args[groupstyle_and_num])
:wikitext(args[group_and_num])
end
 
local listCell = row:tag('td')
 
if args[group_and_num] then
listCell
:addClass(cfg.class.navbox_list_with_group)
else
listCell:attr('colspan', 2)
end
 
if not args[cfg.arg.groupwidth] then
listCell:css('width', '100%')
end
 
local rowstyle  -- usually nil so cssText(rowstyle) usually adds nothing
if index % 2 == 1 then
rowstyle = args[cfg.arg.oddstyle]
else
rowstyle = args[cfg.arg.evenstyle]
end
 
local list_and_num = format(cfg.arg.list_and_num, listnum)
local listText = args[list_and_num]
local oddEven = cfg.marker.oddeven
if listText:sub(1, 12) == '</div><table' then
-- Assume list text is for a subgroup navbox so no automatic striping for this row.
oddEven = listText:find(cfg.pattern.navbox_title) and cfg.marker.restart or cfg.class.navbox_odd_part
end
 
local liststyle_and_num = format(cfg.arg.liststyle_and_num, listnum)
local listclass_and_num = format(cfg.arg.listclass_and_num, listnum)
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
--
--  List rows
--
function renderListRow(tbl, listnum)
    local row = addTableRow(tbl)
   
    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')
                    .newline()
                    .wikitext(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
local function has_list_class(htmlclass)
        listCell
local patterns = {
            .css('text-align', 'left')
'^' .. htmlclass .. '$',
            .css('border-left-width', '2px')
'%s' .. htmlclass .. '$',
            .css('border-left-style', 'solid')
'^' .. htmlclass .. '%s',
    else
'%s' .. htmlclass .. '%s'
        listCell.attr('colspan', 2)
}
    end
   
for arg, _ in pairs(args) do
    if not args.groupwidth then
if type(arg) == 'string' and mw.ustring.find(arg, cfg.pattern.class) then
        listCell.css('width', '100%')
for _, pattern in ipairs(patterns) do
    end
if mw.ustring.find(args[arg] or '', pattern) then
   
return true
    local isOdd = (listnum % 2) == 1
end
    local rowstyle = args.evenstyle
end
    if isOdd then rowstyle = args.oddstyle end
end
end
    local evenOdd
return false
    if args.evenodd == 'swap' then
end
        if isOdd then evenOdd = 'even' else evenOdd = 'odd' end
    else
        if isOdd then evenOdd = args.evenodd or 'odd' else evenOdd = args.evenodd or 'even' end
    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')
            .newline()
            .wikitext(args['list' .. listnum])


    if listnum == 1 and args.image then
-- there are a lot of list classes in the wild, so we add their TemplateStyles
        row
local function add_list_styles()
            .tag('td')
local frame = mw.getCurrentFrame()
                .addClass('navbox-image')
local function add_list_templatestyles(htmlclass, templatestyles)
                .addClass(args.imageclass)
if has_list_class(htmlclass) then
                .css('width', '0%')
return frame:extensionTag{
                .css('padding', '0px 0px 0px 2px')
name = 'templatestyles', args = { src = templatestyles }
                .cssText(args.imagestyle)
}
                .attr('rowspan', 2 * #listnums - 1)
else
                .tag('div')
return ''
                    .newline()
end
                    .wikitext(args.image)
end
    end
local hlist_styles = add_list_templatestyles('hlist', cfg.hlist_templatestyles)
local plainlist_styles = add_list_templatestyles('plainlist', cfg.plainlist_templatestyles)
-- a second workaround for [[phab:T303378]]
-- when that issue is fixed, we can actually use has_navbar not to emit the
-- tag here if we want
if has_navbar() and hlist_styles == '' then
hlist_styles = frame:extensionTag{
name = 'templatestyles', args = { src = cfg.hlist_templatestyles }
}
end
-- hlist -> plainlist is best-effort to preserve old Common.css ordering.
-- this ordering is not a guarantee because most navboxes will emit only
-- one of these classes [hlist_note]
return hlist_styles .. plainlist_styles
end
end


local function needsHorizontalLists(border)
if border == cfg.keyword.border_subgroup or args[cfg.arg.tracking] == cfg.keyword.tracking_no then
return false
end
return not has_list_class(cfg.pattern.hlist) and not has_list_class(cfg.pattern.plainlist)
end


--
local function hasBackgroundColors()
--  Tracking categories
for _, key in ipairs({cfg.arg.titlestyle, cfg.arg.groupstyle,
--
cfg.arg.basestyle, cfg.arg.abovestyle, cfg.arg.belowstyle}) do
function renderTrackingCategories(builder)
if tostring(args[key]):find('background', 1, true) then
    local frame = mw.getCurrentFrame()
return true
   
end
    if not frame then return end
end
   
return false
    local s = frame:preprocess('{{#ifeq:{{NAMESPACE}}|{{ns:10}}|1|0}}{{SUBPAGENAME}}')
    if mw.ustring.sub(s, 1, 1) == '0' then return end -- not in template space
    local subpage = mw.ustring.lower(mw.ustring.sub(s, 2))
    if subpage == 'doc' or subpage == 'sandbox' or subpage == 'testcases' then return end
   
    for i, cat in ipairs(getTrackingCategories()) do
        builder.wikitext('[[Category:' .. cat .. ']]')  
    end
end
end


function getTrackingCategories()
local function hasBorders()
    local cats = {}
for _, key in ipairs({cfg.arg.groupstyle, cfg.arg.basestyle,
--[[ original:
cfg.arg.abovestyle, cfg.arg.belowstyle}) do
    if needsHorizontalLists() then table.insert(cats, 'Navigational boxes without horizontal lists') end
if tostring(args[key]):find('border', 1, true) then
    if hasCustomListSpacing() then table.insert(cats, 'Navigational boxes with custom list spacing') end
return true
    if hasBackgroundColors() then table.insert(cats, 'Navboxes using background colours') end
end
]]
end
    if needsHorizontalLists() then table.insert(cats, '가로 목록을 지원하지 않는 둘러보기 상자') end
return false
    if hasCustomListSpacing() then table.insert(cats, '독자적 목록 공백을 이용하는 둘러보기 상자') end
    if hasBackgroundColors() then table.insert(cats, '배경색을 이용하는 둘러보기 상자') end
    return cats
end
end


function needsHorizontalLists()
local function isIllegible()
    if border == 'child' or border == 'subgroup'  or args.tracking == 'no' then return false end
local styleratio = require('Module:Color contrast')._styleratio
   
for key, style in pairs(args) do
    local listClasses = {'plainlist', 'hlist', 'hlist hnum', 'hlist vcard', 'vcard hlist'}
if tostring(key):match(cfg.pattern.style) then
    for i, cls in ipairs(listClasses) do
if styleratio{mw.text.unstripNoWiki(style)} < 4.5 then
        if args.listclass == cls or args.bodyclass == cls then
return true
            return false
end
        end
end
    end
end
return false
end


    return true
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
return cats
end
end


function hasCustomListSpacing()
local function renderTrackingCategories(builder, border)
    return args.liststyle == 'padding: 0.25em 0; line-height: 1.3em;' or  
local title = mw.title.getCurrentTitle()
          args.liststyle == 'padding:0.25em 0; line-height:1.4em; width:auto;' or  
if title.namespace ~= 10 then return end -- not in template space
          args.liststyle == 'padding:0.4em 0; line-height:1.4em;'
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
builder:wikitext('[[Category:' .. cat .. ']]')
end
end
end


function hasBackgroundColors()
local function renderMainTable(border, listnums)
    return args.titlestyle or args.groupstyle
local tbl = mw.html.create('table')
:addClass(cfg.class.nowraplinks)
:addClass(args[cfg.arg.bodyclass])
 
local state = args[cfg.arg.state]
if args[cfg.arg.title] and state ~= cfg.keyword.state_plain and state ~= cfg.keyword.state_off then
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
tbl
:addClass(cfg.class.navbox_subgroup)
:cssText(args[cfg.arg.bodystyle])
:cssText(args[cfg.arg.style])
else  -- regular navbox - bodystyle and style will be applied to the wrapper table
tbl
:addClass(cfg.class.navbox_inner)
:css('background', 'transparent')
:css('color', 'inherit')
end
tbl:cssText(args[cfg.arg.innerstyle])
 
renderTitleRow(tbl)
renderAboveRow(tbl)
local listnums_size = #listnums
for i, listnum in ipairs(listnums) do
renderListRow(tbl, i, listnum, listnums_size)
end
renderBelowRow(tbl)
 
return tbl
end
end


local function add_navbox_styles(hiding_templatestyles)
local frame = mw.getCurrentFrame()
-- This is a lambda so that it doesn't need the frame as a parameter
local function add_user_styles(templatestyles)
if templatestyles and templatestyles ~= '' then
return frame:extensionTag{
name = 'templatestyles', args = { src = templatestyles }
}
end
return ''
end


--
-- get templatestyles. load base from config so that Lua only needs to do
--   Main navbox tables
-- the work once of parser tag expansion
--
local base_templatestyles = cfg.templatestyles
function renderMainTable()
local templatestyles = add_user_styles(args[cfg.arg.templatestyles])
    local tbl = HtmlBuilder.create('table')
local child_templatestyles = add_user_styles(args[cfg.arg.child_templatestyles])
        .attr('cellspacing', 0)
 
        .addClass('nowraplinks')
-- The 'navbox-styles' div exists to wrap the styles to work around T200206
        .addClass(args.bodyclass)
-- more elegantly. Instead of combinatorial rules, this ends up being linear
           
-- number of CSS rules.
    if args.title and (args.state ~= 'plain' and args.state ~= 'off') then
return mw.html.create('div')
        tbl
:addClass(cfg.class.navbox_styles)
            .addClass('collapsible')
:wikitext(
            .addClass(args.state or 'autocollapse')
add_list_styles() .. -- see [hlist_note] applied to 'before base_templatestyles'
    end
base_templatestyles ..
templatestyles ..
    tbl.css('border-spacing', 0)
child_templatestyles ..
    if border == 'subgroup' or border == 'child' or border == 'none' then
table.concat(hiding_templatestyles)
        tbl
)
            .addClass('navbox-subgroup')
:done()
            .cssText(args.bodystyle)
end
            .cssText(args.style)
 
    else -- regular navobx - bodystyle and style will be applied to the wrapper table
-- work around [[phab:T303378]]
        tbl
-- for each arg: find all the templatestyles strip markers, insert them into a
            .addClass('navbox-inner')
-- table. then remove all templatestyles markers from the arg
            .css('background', 'transparent')
local function move_hiding_templatestyles(args)
            .css('color', 'inherit')
local gfind = string.gfind
    end
local gsub = string.gsub
    tbl.cssText(args.innerstyle)
local templatestyles_markers = {}
local strip_marker_pattern = '(\127[^\127]*UNIQ%-%-templatestyles%-%x+%-QINU[^\127]*\127)'
    renderTitleRow(tbl)
for k, arg in pairs(args) do
    renderAboveRow(tbl)
for marker in gfind(arg, strip_marker_pattern) do
    for i, listnum in ipairs(listnums) do
table.insert(templatestyles_markers, marker)
        renderListRow(tbl, listnum)  
end
    end
args[k] = gsub(arg, strip_marker_pattern, '')
    renderBelowRow(tbl)
end
   
return templatestyles_markers
    return tbl
end
end


function p._navbox(navboxArgs)
function p._navbox(navboxArgs)
    args = navboxArgs
args = navboxArgs
   
local hiding_templatestyles = move_hiding_templatestyles(args)
    for k, v in pairs(args) do
local listnums = {}
        local listnum = ('' .. k):match('^list(%d+)$')
        if listnum then table.insert(listnums, tonumber(listnum)) end
    end
    table.sort(listnums)
    border = trim(args.border or args[1] or '')


    -- render the main body of the navbox
for k, _ in pairs(args) do
    local tbl = renderMainTable()
if type(k) == 'string' then
local listnum = k:match(cfg.pattern.listnum)
if listnum then table.insert(listnums, tonumber(listnum)) end
end
end
table.sort(listnums)


    -- render the appropriate wrapper around the navbox, depending on the border param
local border = mw.text.trim(args[cfg.arg.border] or args[1] or '')
    local res = HtmlBuilder.create()
if border == cfg.keyword.border_child then
    if border == 'none' then
border = cfg.keyword.border_subgroup
        res.node(tbl)
end
    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
        -- 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
            .tag('/div', {unclosed = true})
                .done()
            .node(tbl)
            .tag('div', {unclosed = true})
    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
    renderTrackingCategories(res)
    return tostring(res)
end


local param_ko = {
-- render the main body of the navbox
    ['이름'] = 'name',
local tbl = renderMainTable(border, listnums)
    ['틀이름'] = 'name',
    ['제목'] = 'title',
    ['상태'] = 'state',
    ['그림'] = 'image',
    ['왼쪽그림'] = 'imageleft',
    ['윗글'] = 'above',
    ['위글'] = 'above',
    ['아랫글'] = 'below',
    ['아래글'] = 'below',
    ['안내바'] = 'navbar',
    ['테두리'] = 'border',
   
    ['모양'] = 'style',
    ['기본모양'] = 'basestyle',
    ['본문모양'] = 'bodystyle',
    ['제목모양'] = 'titlestyle',
    ['묶음모양'] = 'groupstyle',
    ['묶음너비'] = 'groupwidth',
    ['내용패딩'] = 'listpading',
    ['홀수모양'] = 'oddstyle',
    ['짝수모양'] = 'evenstyle',
    ['홀짝'] = 'evnodd',
    ['윗글모양'] = 'abovestyle',
    ['아랫글모양'] = 'belowstyle',
    ['그림모양'] = 'imagestyle',
    ['왼쪽그림모양'] = 'imageleftstyle',
   
    ['본문속성'] = 'bodyclass',
    ['제목속성'] = 'titleclass',
    ['윗글속성'] = 'aboveclass',
    ['묶음속성'] = 'groupclass',
    ['내용속성'] = 'listclass',
    ['아랫글속성'] = 'belowclass',


    ['제목묶음'] = 'titlegroup',
local res = mw.html.create()
    ['제목묶음속성'] = 'titlcclass',
-- render the appropriate wrapper for the navbox, based on the border param
    ['제목묶음모양'] = 'titlegroupstyle',
   
    ['내부모양'] = 'innerstyle',
}


for i = 1, 100 do
if border == cfg.keyword.border_none then
    param_ko['묶음' .. i] = 'group' .. i
res:node(add_navbox_styles(hiding_templatestyles))
    param_ko['묶음' .. i .. '모양'] = 'group' .. i .. 'title'
local nav = res:tag('div')
    param_ko['내용' .. i] = 'list' .. i
:attr('role', 'navigation')
    param_ko['내용' .. i .. '모양'] = 'list' .. i .. 'title'
:node(tbl)
end
-- 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
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(hiding_templatestyles))
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


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


function p.navbox(frame)
function p.navbox(frame)
    -- ParserFunctions considers the empty string to be false, so to preserve the previous
if not getArgs then
    -- behavior of {{navbox}}, change any empty arguments to nil, so Lua will consider
getArgs = require('Module:Arguments').getArgs
    -- them false too.
end
    local args = {}
args = getArgs(frame, {wrappers = {cfg.pattern.navbox}})
    local parent_args = frame:getParent().args;
 
-- Read the arguments in the order they'll be output in, to make references
-- number in the right order.
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]


    -- Out of order parsing bug.
return p._navbox(args)
    local temp;
    temp = parent_args.title or parent_args['제목'];
    temp = parent_args.above or parent_args['윗글'] or parent_args['위글'];
    for i = 1, 20 do
        temp = parent_args["group" .. tostring(i)] or parent_args["묶음" .. tostring(i)];
        temp = parent_args["list" .. tostring(i)] or parent_args["내용" .. tostring(i)];
    end
    temp = parent_args.below or parent_args["아랫글"] or parent_args["아래글"];
   
    for k, v in pairs(parent_args) do
        if v ~= '' then
            args[localname(k)] = v
        end
    end
    return p._navbox(args)
end
end
 
return p
return p

2023년 4월 25일 (화) 14:46 기준 최신판

이 모듈은 {{둘러보기 상자}} 틀을 구현합니다. 자세한 사용법은 틀 문서를 참고해 주십시오.


local p = {}
local navbar = require('Module:Navbar')._navbar
local cfg = mw.loadData('Module:Navbox/configuration')
local getArgs -- lazily initialized
local args
local format = string.format

local function striped(wikitext, border)
	-- Return wikitext with markers replaced for odd/even striping.
	-- Child (subgroup) navboxes are flagged with a category that is removed
	-- by parent navboxes. The result is that the category shows all pages
	-- where a child navbox is not contained in a parent navbox.
	local orphanCat = cfg.category.orphan
	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

local function has_navbar()
	return args[cfg.arg.navbar] ~= cfg.keyword.navbar_off
		and args[cfg.arg.navbar] ~= cfg.keyword.navbar_plain
		and (
			args[cfg.arg.name]
			or mw.getCurrentFrame():getParent():getTitle():gsub(cfg.pattern.sandbox, '')
				~= cfg.pattern.navbox
		)
end

local function renderNavBar(titleCell)
	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

local function renderTitleRow(tbl)
	if not args[cfg.arg.title] then return end

	local titleRow = tbl:tag('tr')

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

	local titleColspan = 2
	if args[cfg.arg.imageleft] then titleColspan = titleColspan + 1 end
	if args[cfg.arg.image] then titleColspan = titleColspan + 1 end

	titleCell
		: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

local function getAboveBelowColspan()
	local ret = 2
	if args[cfg.arg.imageleft] then ret = ret + 1 end
	if args[cfg.arg.image] then ret = ret + 1 end
	return ret
end

local function renderAboveRow(tbl)
	if not args[cfg.arg.above] then return end

	tbl:tag('tr')
		:tag('td')
			:addClass(cfg.class.navbox_abovebelow)
			:addClass(args[cfg.arg.aboveclass])
			:cssText(args[cfg.arg.basestyle])
			:cssText(args[cfg.arg.abovestyle])
			:attr('colspan', getAboveBelowColspan())
			:tag('div')
				-- id for aria-labelledby attribute, if no title
				:attr('id', (not args[cfg.arg.title]) and mw.uri.anchorEncode(args[cfg.arg.above]) or nil)
				:wikitext(processItem(args[cfg.arg.above], args[cfg.arg.nowrapitems]))
end

local function renderBelowRow(tbl)
	if not args[cfg.arg.below] then return end

	tbl:tag('tr')
		:tag('td')
			: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)
	local row = tbl:tag('tr')

	if index == 1 and args[cfg.arg.imageleft] 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 2px 0 0')
				:cssText(args[cfg.arg.imageleftstyle])
				:attr('rowspan', listnums_size)
				:tag('div')
					:wikitext(processItem(args[cfg.arg.imageleft]))
	end

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

		-- id for aria-labelledby attribute, if lone group with no title or above
		if listnum == 1 and not (args[cfg.arg.title] or args[cfg.arg.above] or args[cfg.arg.group2]) then
			groupCell
				:attr('id', mw.uri.anchorEncode(args[cfg.arg.group1]))
		end

		groupCell
			: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
			:cssText(args[cfg.arg.groupstyle])
			:cssText(args[groupstyle_and_num])
			:wikitext(args[group_and_num])
	end

	local listCell = row:tag('td')

	if args[group_and_num] then
		listCell
			:addClass(cfg.class.navbox_list_with_group)
	else
		listCell:attr('colspan', 2)
	end

	if not args[cfg.arg.groupwidth] then
		listCell:css('width', '100%')
	end

	local rowstyle  -- usually nil so cssText(rowstyle) usually adds nothing
	if index % 2 == 1 then
		rowstyle = args[cfg.arg.oddstyle]
	else
		rowstyle = args[cfg.arg.evenstyle]
	end

	local list_and_num = format(cfg.arg.list_and_num, listnum)
	local listText = args[list_and_num]
	local oddEven = cfg.marker.oddeven
	if listText:sub(1, 12) == '</div><table' then
		-- Assume list text is for a subgroup navbox so no automatic striping for this row.
		oddEven = listText:find(cfg.pattern.navbox_title) and cfg.marker.restart or cfg.class.navbox_odd_part
	end

	local liststyle_and_num = format(cfg.arg.liststyle_and_num, listnum)
	local listclass_and_num = format(cfg.arg.listclass_and_num, listnum)
	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

local function has_list_class(htmlclass)
	local patterns = {
		'^' .. htmlclass .. '$',
		'%s' .. htmlclass .. '$',
		'^' .. htmlclass .. '%s',
		'%s' .. htmlclass .. '%s'
	}
	
	for arg, _ in pairs(args) do
		if type(arg) == 'string' and mw.ustring.find(arg, cfg.pattern.class) then
			for _, pattern in ipairs(patterns) do
				if mw.ustring.find(args[arg] or '', pattern) then
					return true
				end
			end
		end
	end
	return false
end

-- there are a lot of list classes in the wild, so we add their TemplateStyles
local function add_list_styles()
	local frame = mw.getCurrentFrame()
	local function add_list_templatestyles(htmlclass, templatestyles)
		if has_list_class(htmlclass) then
			return frame:extensionTag{
				name = 'templatestyles', args = { src = templatestyles }
			}
		else
			return ''
		end
	end
	
	local hlist_styles = add_list_templatestyles('hlist', cfg.hlist_templatestyles)
	local plainlist_styles = add_list_templatestyles('plainlist', cfg.plainlist_templatestyles)
	
	-- a second workaround for [[phab:T303378]]
	-- when that issue is fixed, we can actually use has_navbar not to emit the
	-- tag here if we want
	if has_navbar() and hlist_styles == '' then
		hlist_styles = frame:extensionTag{
			name = 'templatestyles', args = { src = cfg.hlist_templatestyles }
		}
	end
	
	-- hlist -> plainlist is best-effort to preserve old Common.css ordering.
	-- this ordering is not a guarantee because most navboxes will emit only
	-- one of these classes [hlist_note]
	return hlist_styles .. plainlist_styles
end

local function needsHorizontalLists(border)
	if border == cfg.keyword.border_subgroup or args[cfg.arg.tracking] == cfg.keyword.tracking_no then
		return false
	end
	return not has_list_class(cfg.pattern.hlist) and not has_list_class(cfg.pattern.plainlist)
end

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

local function hasBorders()
	for _, key in ipairs({cfg.arg.groupstyle, cfg.arg.basestyle,
		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()
	local styleratio = require('Module:Color contrast')._styleratio
	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
	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
	return cats
end

local function renderTrackingCategories(builder, border)
	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
		builder:wikitext('[[Category:' .. cat .. ']]')
	end
end

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

	local state = args[cfg.arg.state]
	if args[cfg.arg.title] and state ~= cfg.keyword.state_plain and state ~= cfg.keyword.state_off then
		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
		tbl
			:addClass(cfg.class.navbox_subgroup)
			:cssText(args[cfg.arg.bodystyle])
			:cssText(args[cfg.arg.style])
	else  -- regular navbox - bodystyle and style will be applied to the wrapper table
		tbl
			:addClass(cfg.class.navbox_inner)
			:css('background', 'transparent')
			:css('color', 'inherit')
	end
	tbl:cssText(args[cfg.arg.innerstyle])

	renderTitleRow(tbl)
	renderAboveRow(tbl)
	local listnums_size = #listnums
	for i, listnum in ipairs(listnums) do
		renderListRow(tbl, i, listnum, listnums_size)
	end
	renderBelowRow(tbl)

	return tbl
end

local function add_navbox_styles(hiding_templatestyles)
	local frame = mw.getCurrentFrame()
	-- This is a lambda so that it doesn't need the frame as a parameter
	local function add_user_styles(templatestyles)
		if templatestyles and templatestyles ~= '' then
			return frame:extensionTag{
				name = 'templatestyles', args = { src = templatestyles }
			}
		end
		return ''
	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 to wrap the styles to work around T200206
	-- more elegantly. Instead of combinatorial rules, this ends up being linear
	-- number of CSS rules.
	return mw.html.create('div')
		:addClass(cfg.class.navbox_styles)
		:wikitext(
			add_list_styles() .. -- see [hlist_note] applied to 'before base_templatestyles'
			base_templatestyles ..
			templatestyles ..
			child_templatestyles ..
			table.concat(hiding_templatestyles)
		)
		:done()
end

-- work around [[phab:T303378]]
-- for each arg: find all the templatestyles strip markers, insert them into a
-- table. then remove all templatestyles markers from the arg
local function move_hiding_templatestyles(args)
	local gfind = string.gfind
	local gsub = string.gsub
	local templatestyles_markers = {}
	local strip_marker_pattern = '(\127[^\127]*UNIQ%-%-templatestyles%-%x+%-QINU[^\127]*\127)'
	for k, arg in pairs(args) do
		for marker in gfind(arg, strip_marker_pattern) do
			table.insert(templatestyles_markers, marker)
		end
		args[k] = gsub(arg, strip_marker_pattern, '')
	end
	return templatestyles_markers
end

function p._navbox(navboxArgs)
	args = navboxArgs
	local hiding_templatestyles = move_hiding_templatestyles(args)
	local listnums = {}

	for k, _ in pairs(args) do
		if type(k) == 'string' then
			local listnum = k:match(cfg.pattern.listnum)
			if listnum then table.insert(listnums, tonumber(listnum)) end
		end
	end
	table.sort(listnums)

	local border = mw.text.trim(args[cfg.arg.border] or args[1] or '')
	if border == cfg.keyword.border_child then
		border = cfg.keyword.border_subgroup
	end

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

	local res = mw.html.create()
	-- render the appropriate wrapper for the navbox, based on the border param

	if border == cfg.keyword.border_none then
		res:node(add_navbox_styles(hiding_templatestyles))
		local nav = res:tag('div')
			:attr('role', 'navigation')
			: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
	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(hiding_templatestyles))
		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

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

function p.navbox(frame)
	if not getArgs then
		getArgs = require('Module:Arguments').getArgs
	end
	args = getArgs(frame, {wrappers = {cfg.pattern.navbox}})

	-- Read the arguments in the order they'll be output in, to make references
	-- number in the right order.
	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)
end

return p