Module:Navbox: Difference between revisions

Jump to navigation Jump to search

Module:Navbox (edit)

Revision as of 06:56, 11 April 2024

2,021 bytes added ,  11 April
m
1 revision imported
(hmmm, not my smartest moment)
m (1 revision imported)
Tags: Mobile edit Mobile web edit
 
(71 intermediate revisions by 24 users not shown)
Line 1: Line 1:
--
require('strict')
-- 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 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


local function renderTitleRow(tbl)
if not args[cfg.arg.title] then return end
local titleRow = tbl:tag('tr')


function formNavBar( div, args )
local titleCell = titleRow:tag('th'):attr('scope', 'col')
    local class = 'noprint plainlinks hlist navbar';
    local title;
    args[1] = trim( args[1] or '' );
   
    if args[1] == '' then
        title = mw.title.new( '' );
    elseif args[1]:sub(1,1) == ':' then
        title = mw.title.new( args[1]:sub(2) );
    else
        title = mw.title.new( args[1] );
        if title.namespace == 0 then
            title = mw.title.new( 'Template:' .. args[1] );
        end       
    end     
   
    local mainpage, talkpage, editurl;
    mainpage = title.fullText;
    talkpage = title.talkPageTitle;
    talkpage = talkpage.fullText or '';
    editurl = title:fullUrl( 'action=edit' );
   
    if args.mini ~= nil then
        class = class .. ' mini';
    end


    div
local titleColspan = 2
        .addClass( class )
if args[cfg.arg.imageleft] then titleColspan = titleColspan + 1 end
        .cssText( args.style or '' )
if args[cfg.arg.image] then titleColspan = titleColspan + 1 end
   
    if args.mini == nil and args.plain == nil then
        div.tag( 'span' )
            .css( 'word-spacing', 0 )
            .cssText( args.fontstyle or '' )
            .wikitext( args.text or 'This box:' );
    end
   
    if args.brackets ~= nil then
        div.wikitext(' ');
        div.tag('span')
            .css('margin-right', '-0.125em')
            .cssText( args.fontstyle or '' )
            .wikitext( '[' )
            .newline();
    end
   
    local ul = div.tag('ul');
    local inner
    if args.mini ~= nil then
        inner = 'v';
    else
        inner = 'view';
    end
   
    ul.tag( 'li' )
        .addClass( 'nv-view' )
        .wikitext( '[[' .. mainpage .. '|' )
        .tag( 'span ' )
            .attr( 'title', 'View this template' )
            .cssText( args.fontstyle or '' )
            .wikitext( inner )
            .done()
        .wikitext( ']]' );


    if args.mini ~= nil then
titleCell
        inner = 't';
:cssText(args[cfg.arg.basestyle])
    else
:cssText(args[cfg.arg.titlestyle])
        inner = 'talk';
:addClass(cfg.class.navbox_title)
    end
:attr('colspan', titleColspan)
   
    ul.tag( 'li' )
        .addClass( 'nv-talk' )
        .wikitext( '[[' .. talkpage .. '|' )
        .tag( 'span ' )
            .attr( 'title', 'Discuss this template' )
            .cssText( args.fontstyle or '' )
            .wikitext( inner )
            .done()
        .wikitext( ']]' );


    if args.mini ~= nil then
renderNavBar(titleCell)
        inner = 'e';
    else
        inner = 'edit';
    end
   
    ul.tag( 'li' )
        .addClass( 'nv-edit' )
        .wikitext( '[' .. editurl .. ' ' )
        .tag( 'span ' )
            .attr( 'title', 'Edit this template' )
            .cssText( args.fontstyle or '' )
            .wikitext( inner )
            .done()
        .wikitext( ']' );


    if args.brackets ~= nil then
titleCell
        div.tag('span')
:tag('div')
            .css('margin-left', '-0.125em')
-- id for aria-labelledby attribute
            .cssText( args.fontstyle or '' )
:attr('id', mw.uri.anchorEncode(args[cfg.arg.title]))
            .wikitext( ']' )
:addClass(args[cfg.arg.titleclass])
            .newline();
:css('font-size', '114%')
    end
:css('margin', '0 4em')
:wikitext(processItem(args[cfg.arg.title]))
end


    return div;
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
end
function renderNavBar(titleCell)
    -- 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
local function renderAboveRow(tbl)
        -- No navbar, and client wants no spacer, i.e. wants the title to be shifted to the left. If there's
if not args[cfg.arg.above] then return end
        -- 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 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


        if args.name then
tbl:tag('tr')
            local div = HtmlBuilder.create('div');
:tag('td')
            local args = {
:addClass(cfg.class.navbox_abovebelow)
                args.name,
:addClass(args[cfg.arg.aboveclass])
                mini = 1,
:cssText(args[cfg.arg.basestyle])
                fontstyle = (args.basestyle or '') .. ';' .. (args.titlestyle or '') ..  ';background:none transparent;border:none;'
:cssText(args[cfg.arg.abovestyle])
            };
:attr('colspan', getAboveBelowColspan())
       
:tag('div')
            div = formNavBar( div, args );
-- id for aria-labelledby attribute, if no title
            titleCell.node( div )
:attr('id', (not args[cfg.arg.title]) and mw.uri.anchorEncode(args[cfg.arg.above]) or nil)
        else
:wikitext(processItem(args[cfg.arg.above], args[cfg.arg.nowrapitems]))
            titleCell
                .tag('span')
                    .addClass('error')
                    .css('float', 'left')
                    .css('white-space', 'nowrap')
                    .wikitext('Error: No name provided')
        end
    end
   
    -- Render the spacer div.
    if spacerSide then
        titleCell
            .tag('span')
                .css('float', spacerSide)
                .css('width', '6em')
                .wikitext(' ')
    end
end
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
--  Above/Below rows
row
--
:tag('td')
function renderAboveRow(tbl)
:addClass(cfg.class.noviewer)
    if not args.above then return end
:addClass(cfg.class.navbox_image)
:addClass(args[cfg.arg.imageclass])
    addTableRow(tbl)
:css('width', '1px')              -- Minimize width
        .tag('td')
:css('padding', '0 0 0 2px')
            .addClass('navbox-abovebelow')
:cssText(args[cfg.arg.imagestyle])
            .addClass(args.aboveclass)
:attr('rowspan', listnums_size)
            .cssText(args.basestyle)
:tag('div')
            .cssText(args.abovestyle)
:wikitext(processItem(args[cfg.arg.image]))
            .attr('colspan', getAboveBelowColspan())
end
            .tag('div')
                .newline()
                .wikitext(args.above)
end
end


function renderBelowRow(tbl)
local function has_list_class(htmlclass)
    if not args.below then return end
local patterns = {
   
'^' .. htmlclass .. '$',
    addTableRow(tbl)
'%s' .. htmlclass .. '$',
        .tag('td')
'^' .. htmlclass .. '%s',
            .addClass('navbox-abovebelow')
'%s' .. htmlclass .. '%s'
            .addClass(args.belowclass)
}
            .cssText(args.basestyle)
            .cssText(args.belowstyle)
for arg, _ in pairs(args) do
            .attr('colspan', getAboveBelowColspan())
if type(arg) == 'string' and mw.ustring.find(arg, cfg.pattern.class) then
            .tag('div')
for _, pattern in ipairs(patterns) do
                .newline()
if mw.ustring.find(args[arg] or '', pattern) then
                .wikitext(args.below)
return true
end
end
end
end
return false
end
end


function getAboveBelowColspan()
-- there are a lot of list classes in the wild, so we add their TemplateStyles
    local ret = 2
local function add_list_styles()
    if args.imageleft then ret = ret + 1 end
local frame = mw.getCurrentFrame()
    if args.image then ret = ret + 1 end
local function add_list_templatestyles(htmlclass, templatestyles)
    return ret
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
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 needsHorizontalLists(border)
        listCell
if border == cfg.keyword.border_subgroup or args[cfg.arg.tracking] == cfg.keyword.tracking_no then
            .css('text-align', 'left')
return false
            .css('border-left-width', '2px')
end
            .css('border-left-style', 'solid')
return not has_list_class(cfg.pattern.hlist) and not has_list_class(cfg.pattern.plainlist)
    else
end
        listCell.attr('colspan', 2)
    end
   
    if not args.groupwidth then
        listCell.css('width', '100%')
    end
   
    local isOdd = (listnum % 2) == 1
    local rowstyle = args.evenstyle
    if isOdd then rowstyle = args.oddstyle end
    local evenOdd
    if args.evenodd == 'swap' then
        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
local function hasBackgroundColors()
        row
for _, key in ipairs({cfg.arg.titlestyle, cfg.arg.groupstyle,
            .tag('td')
cfg.arg.basestyle, cfg.arg.abovestyle, cfg.arg.belowstyle}) do
                .addClass('navbox-image')
if tostring(args[key]):find('background', 1, true) then
                .addClass(args.imageclass)
return true
                .css('width', '0%')
end
                .css('padding', '0px 0px 0px 2px')
end
                .cssText(args.imagestyle)
return false
                .attr('rowspan', 2 * #listnums - 1)
                .tag('div')
                    .newline()
                    .wikitext(args.image)
    end
end
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()
--  Tracking categories
local styleratio = require('Module:Color contrast')._styleratio
--
for key, style in pairs(args) do
function renderTrackingCategories(builder)
if tostring(key):match(cfg.pattern.style) then
    local frame = mw.getCurrentFrame()
if styleratio{mw.text.unstripNoWiki(style)} < 4.5 then
   
return true
    if not frame then return end
end
   
end
    local s = frame:preprocess('{{#ifeq:{{NAMESPACE}}|{{ns:10}}|1|0}}{{SUBPAGENAME}}')
end
    if mw.ustring.sub(s, 1, 1) == '0' then return end -- not in template space
return false
    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 getTrackingCategories(border)
    local cats = {}
local cats = {}
    if needsHorizontalLists() then table.insert(cats, 'Navigational boxes without horizontal lists') end
if needsHorizontalLists(border) then table.insert(cats, cfg.category.horizontal_lists) end
    if hasCustomListSpacing() then table.insert(cats, 'Navigational boxes with custom list spacing') end
if hasBackgroundColors() then table.insert(cats, cfg.category.background_colors) end
    if hasBackgroundColors() then table.insert(cats, 'Navboxes using background colours') end
if isIllegible() then table.insert(cats, cfg.category.illegible) end
    return cats
if hasBorders() then table.insert(cats, cfg.category.borders) end
return cats
end
end


function needsHorizontalLists()
local function renderTrackingCategories(builder, border)
    if border == 'child' or border == 'subgroup'  or args.tracking == 'no' then return false end
local title = mw.title.getCurrentTitle()
   
if title.namespace ~= 10 then return end -- not in template space
    local listClasses = {'plainlist', 'hlist', 'hlist hnum', 'hlist vcard', 'vcard hlist'}
local subpage = title.subpageText
    for i, cls in ipairs(listClasses) do
if subpage == cfg.keyword.subpage_doc or subpage == cfg.keyword.subpage_sandbox
        if args.listclass == cls or args.bodyclass == cls then
or subpage == cfg.keyword.subpage_testcases then return end
            return false
        end
    end


    return true
for _, cat in ipairs(getTrackingCategories(border)) do
builder:wikitext('[[Category:' .. cat .. ']]')
end
end
end


function hasCustomListSpacing()
local function renderMainTable(border, listnums)
    return args.liststyle == 'padding: 0.25em 0; line-height: 1.3em;' or
local tbl = mw.html.create('table')
          args.liststyle == 'padding:0.25em 0; line-height:1.4em; width:auto;' or  
:addClass(cfg.class.nowraplinks)
          args.liststyle == 'padding:0.4em 0; line-height:1.4em;'
: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


function hasBackgroundColors()
local function add_navbox_styles(hiding_templatestyles)
    return args.titlestyle or args.groupstyle
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
end


 
-- work around [[phab:T303378]]
--
-- for each arg: find all the templatestyles strip markers, insert them into a
--   Main navbox tables
-- table. then remove all templatestyles markers from the arg
--
local function move_hiding_templatestyles(args)
function renderMainTable()
local gfind = string.gfind
    local tbl = HtmlBuilder.create('table')
local gsub = string.gsub
        .attr('cellspacing', 0)
local templatestyles_markers = {}
        .addClass('nowraplinks')
local strip_marker_pattern = '(\127[^\127]*UNIQ%-%-templatestyles%-%x+%-QINU[^\127]*\127)'
        .addClass(args.bodyclass)
for k, arg in pairs(args) do
           
for marker in gfind(arg, strip_marker_pattern) do
    if args.title and (args.state ~= 'plain' and args.state ~= 'off') then
table.insert(templatestyles_markers, marker)
        tbl
end
            .addClass('collapsible')
args[k] = gsub(arg, strip_marker_pattern, '')
            .addClass(args.state or 'autocollapse')
end
    end
return templatestyles_markers
    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)
    renderAboveRow(tbl)
    for i, listnum in ipairs(listnums) do
        renderListRow(tbl, listnum)  
    end
    renderBelowRow(tbl)
   
    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
-- render the main body of the navbox
        -- therefore inside a div with padding:0em 0.25em. We start with a </div> to avoid the
local tbl = renderMainTable(border, listnums)
        -- padding being applied, and at the end add a <div> to balance out the parent's </div>
 
        res
local res = mw.html.create()
            .tag('/div', {unclosed = true})
-- render the appropriate wrapper for the navbox, based on the border param
                .done()
 
            .node(tbl)
if border == cfg.keyword.border_none then
            .tag('div', {unclosed = true})
res:node(add_navbox_styles(hiding_templatestyles))
    else
local nav = res:tag('div')
        res
:attr('role', 'navigation')
            .tag('table')
:node(tbl)
                .attr('cellspacing', 0)
-- aria-labelledby title, otherwise above, otherwise lone group
                .addClass('navbox')
if args[cfg.arg.title] or args[cfg.arg.above] or (args[cfg.arg.group1]
                .css('border-spacing', 0)
and not args[cfg.arg.group2]) then
                .cssText(args.bodystyle)
nav:attr(
                .cssText(args.style)
'aria-labelledby',
                .tag('tr')
mw.uri.anchorEncode(
                    .tag('td')
args[cfg.arg.title] or args[cfg.arg.above] or args[cfg.arg.group1]
                        .css('padding', '2px')
)
                        .node(tbl)
)
    end
else
nav:attr('aria-label', cfg.aria_label)
    renderTrackingCategories(res)
end
elseif border == cfg.keyword.border_subgroup then
    return tostring(res)
-- 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
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}})
    for k, v in pairs(frame:getParent().args) do
 
        if v ~= '' then
-- Read the arguments in the order they'll be output in, to make references
            args[k] = v
-- number in the right order.
        end
local _
    end
_ = args[cfg.arg.title]
    return p._navbox(args)
_ = 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
end
 
function p.navbar(frame)
    -- ParserFunctions considers the empty string to be false, so to preserve the previous
    -- behavior of {{navbox}}, change any empty arguments to nil, so Lua will consider
    -- them false too.
    local args = {}
    for k, v in pairs(frame:getParent().args) do
        if v ~= '' then
            args[k] = v
        end
    end
    local div = HtmlBuilder.create('div')
    return tostring( formNavBar( div, args ) )
end
return p
return p
Retrieved from "https://testwiki.wiki/wiki/Special:MobileDiff/36777...40465"
Cookies help us deliver our services. By using our services, you agree to our use of cookies.

Navigation menu