Модуль:Navbox: различия между версиями

Материал из Proxima Wiki
Перейти к навигации Перейти к поиску
м 1 версия импортирована
Нет описания правки
Метка: ручная отмена
 
(не показаны 2 промежуточные версии 1 участника)
Строка 1: Строка 1:
--
-- This module implements {{Navbox}}
--
local p = {}
local p = {}
local navbar = require('Module:Navbar')._navbar
local navbar = require('Module:Navbar')._navbar
local cfg = mw.loadData('Module:Navbox/configuration')
local getArgs -- lazily initialized
local getArgs -- lazily initialized
local args
local args
local format = string.format
local tableRowAdded = false
local border
local listnums = {}


local function striped(wikitext, border)
local function trim(s)
-- Return wikitext with markers replaced for odd/even striping.
    return (mw.ustring.gsub(s, "^%s*(.-)%s*$", "%1"))
-- 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
end


local function processItem(item, nowrapitems)
local function addNewline(s)
if item:sub(1, 2) == '{|' then
    if s:match('^[*:;#]') or s:match('^{|') then
-- Applying nowrap to lines in a table does not make sense.
        return '\n' .. s ..'\n'
-- Add newlines to compensate for trim of x in |parm=x in a template.
    else
return '\n' .. item ..'\n'
        return s
end
    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 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
                    :attr('colspan',2)
)
    end
 
    tableRowAdded = true
 
    return tbl:tag('tr')
end
end


local function renderNavBar(titleCell)
local function renderNavBar(titleCell)
if has_navbar() then
    -- Depending on the presence of the navbar and/or show/hide link, we may need to add a spacer div on the left
titleCell:wikitext(navbar{
    -- or right to keep the title centered.
[cfg.navbar.name] = args[cfg.arg.name],
    local spacerSide = nil
[cfg.navbar.mini] = 1,
 
[cfg.navbar.fontstyle] = (args[cfg.arg.basestyle] or '') .. ';' ..
    if args.navbar == 'off' then
(args[cfg.arg.titlestyle] or '') ..
        -- No navbar, and client wants no spacer, i.e. wants the title to be shifted to the left. If there's
';background:none transparent;border:none;box-shadow:none;padding:0;'
        -- 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
end
    elseif args.navbar == 'plain' or (not args.name and mw.getCurrentFrame():getParent():getTitle():gsub('/sandbox$', '') == 'Template:Navbox') 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{
            args.name,
            mini = 1,
            fontstyle = (args.basestyle or '') .. ';' .. (args.titlestyle or '') ..  ';background:none transparent;border:none;'
        })
    end
    -- Render the spacer div.
    if spacerSide then
        titleCell
            :tag('span')
                :css('float', spacerSide)
                :css('width', '6em')
                :wikitext(' ')
    end
end
end


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


local titleRow = tbl:tag('tr')
    local titleRow = addTableRow(tbl)


local titleCell = titleRow:tag('th'):attr('scope', 'col')
    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 titleColspan = 2
    local titleCell = titleRow:tag('th'):attr('scope', 'col')
if args[cfg.arg.imageleft] then titleColspan = titleColspan + 1 end
if args[cfg.arg.image] then titleColspan = titleColspan + 1 end


titleCell
    if args.titlegroup then
:cssText(args[cfg.arg.basestyle])
        titleCell
:cssText(args[cfg.arg.titlestyle])
            :css('border-left', '2px solid #fdfdfd')
:addClass(cfg.class.navbox_title)
            :css('width', '100%')
:attr('colspan', titleColspan)
    end


renderNavBar(titleCell)
    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
    titleCell
:tag('div')
        :cssText(args.basestyle)
-- id for aria-labelledby attribute
        :cssText(args.titlestyle)
:attr('id', mw.uri.anchorEncode(args[cfg.arg.title]))
        :addClass('navbox-title')
:addClass(args[cfg.arg.titleclass])
        :attr('colspan', titleColspan)
:css('font-size', '114%')
 
:css('margin', '0 4em')
    renderNavBar(titleCell)
:wikitext(processItem(args[cfg.arg.title]))
 
    titleCell
        :tag('div')
            :attr('id', mw.uri.anchorEncode(args.title))
            :addClass(args.titleclass)
            :css('font-size', '114%')
            :wikitext(addNewline(args.title))
end
end
--
--  Above/Below rows
--


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


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


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


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


tbl:tag('tr')
    addTableRow(tbl)
:tag('td')
        :tag('td')
:addClass(cfg.class.navbox_abovebelow)
            :addClass('navbox-abovebelow')
:addClass(args[cfg.arg.belowclass])
            :addClass(args.belowclass)
:cssText(args[cfg.arg.basestyle])
            :cssText(args.basestyle)
:cssText(args[cfg.arg.belowstyle])
            :cssText(args.belowstyle)
:attr('colspan', getAboveBelowColspan())
            :attr('colspan', getAboveBelowColspan())
:tag('div')
            :tag('div')
:wikitext(processItem(args[cfg.arg.below], args[cfg.arg.nowrapitems]))
                :wikitext(addNewline(args.below))
end
end


local function renderListRow(tbl, index, listnum, listnums_size)
--
local row = tbl:tag('tr')
--  List rows
--
local function renderListRow(tbl, listnum)
    local row = addTableRow(tbl)


if index == 1 and args[cfg.arg.imageleft] then
    if listnum == 1 and args.imageleft then
row
        row
:tag('td')
            :tag('td')
:addClass(cfg.class.noviewer)
                :addClass('navbox-image')
:addClass(cfg.class.navbox_image)
                :addClass(args.imageclass)
:addClass(args[cfg.arg.imageclass])
                :css('width', '0%')
:css('width', '1px')               -- Minimize width
                :css('padding', '0px 2px 0px 0px')
:css('padding', '0 2px 0 0')
                :cssText(args.imageleftstyle)
:cssText(args[cfg.arg.imageleftstyle])
                :attr('rowspan', 2 * #listnums - 1)
:attr('rowspan', listnums_size)
                :tag('div')
:tag('div')
                    :wikitext(addNewline(args.imageleft))
:wikitext(processItem(args[cfg.arg.imageleft]))
    end
end


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


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


groupCell
        if args.groupwidth then
:attr('scope', 'row')
            groupCell:css('width', args.groupwidth)
:addClass(cfg.class.navbox_group)
        end
: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
        groupCell
:cssText(args[cfg.arg.groupstyle])
            :cssText(args.groupstyle)
:cssText(args[groupstyle_and_num])
            :cssText(args['group' .. listnum .. 'style'])
:wikitext(args[group_and_num])
            :wikitext(args['group' .. listnum])
end
    end


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


if args[group_and_num] then
    if args['group' .. listnum] then
listCell
        listCell
:addClass(cfg.class.navbox_list_with_group)
            :css('text-align', 'left')
else
            :css('border-left-width', '2px')
listCell:attr('colspan', 2)
            :css('border-left-style', 'solid')
end
    else
        listCell:attr('colspan', 2)
    end


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


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


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


local liststyle_and_num = format(cfg.arg.liststyle_and_num, listnum)
    listCell
local listclass_and_num = format(cfg.arg.listclass_and_num, listnum)
        :css('padding', '0px')
listCell
        :cssText(args.liststyle)
:css('padding', '0')
        :cssText(rowstyle)
:cssText(args[cfg.arg.liststyle])
        :cssText(args['list' .. listnum .. 'style'])
:cssText(rowstyle)
        :addClass('navbox-list')
:cssText(args[liststyle_and_num])
        :addClass('navbox-' .. evenOdd)
:addClass(cfg.class.navbox_list)
        :addClass(args.listclass)
:addClass(cfg.class.navbox_part .. oddEven)
        :tag('div')
:addClass(args[cfg.arg.listclass])
            :css('padding', (listnum == 1 and args.list1padding) or args.listpadding or '0em 0.25em')
:addClass(args[listclass_and_num])
            :wikitext(addNewline(args['list' .. listnum]))
: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
    if listnum == 1 and args.image then
row
        row
:tag('td')
            :tag('td')
:addClass(cfg.class.noviewer)
                :addClass('navbox-image')
:addClass(cfg.class.navbox_image)
                :addClass(args.imageclass)
:addClass(args[cfg.arg.imageclass])
                :css('width', '0%')
:css('width', '1px')               -- Minimize width
                :css('padding', '0px 0px 0px 2px')
:css('padding', '0 0 0 2px')
                :cssText(args.imagestyle)
:cssText(args[cfg.arg.imagestyle])
                :attr('rowspan', 2 * #listnums - 1)
:attr('rowspan', listnums_size)
                :tag('div')
:tag('div')
                    :wikitext(addNewline(args.image))
:wikitext(processItem(args[cfg.arg.image]))
    end
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.imageclass
}
local patterns = {
'^' .. htmlclass .. '$',
'%s' .. htmlclass .. '$',
'^' .. htmlclass .. '%s',
'%s' .. htmlclass .. '%s'
}
for _, arg in ipairs(class_args) do
for _, pattern in ipairs(patterns) do
if mw.ustring.find(args[arg] or '', pattern) then
return true
end
end
end
return false
end


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


local function hasBackgroundColors()
    local listClasses = {'plainlist', 'hlist', 'hlist hnum', 'hlist hwrap', 'hlist vcard', 'vcard hlist', 'hlist vevent'}
for _, key in ipairs({cfg.arg.titlestyle, cfg.arg.groupstyle,
    for i, cls in ipairs(listClasses) do
cfg.arg.basestyle, cfg.arg.abovestyle, cfg.arg.belowstyle}) do
        if args.listclass == cls or args.bodyclass == cls then
if tostring(args[key]):find('background', 1, true) then
            return false
return true
        end
end
    end
end
return false
end


local function hasBorders()
    return true
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
end


local function isIllegible()
local function hasBackgroundColors()
local styleratio = require('Module:Color contrast')._styleratio
    return mw.ustring.match(args.titlestyle or '','background') or mw.ustring.match(args.groupstyle or '','background') or mw.ustring.match(args.basestyle or '','background')
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
end


local function getTrackingCategories(border)
local function getTrackingCategories()
local cats = {}
    local cats = {}
if needsHorizontalLists(border) then table.insert(cats, cfg.category.horizontal_lists) end
    if needsHorizontalLists() then table.insert(cats, 'Navigational boxes without horizontal lists') 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
 
if hasBorders() then table.insert(cats, cfg.category.borders) end
    return cats
return cats
end
end


local function renderTrackingCategories(builder, border)
local function renderTrackingCategories(builder)
local title = mw.title.getCurrentTitle()
    local title = mw.title.getCurrentTitle()
if title.namespace ~= 10 then return end -- not in template space
    if title.namespace ~= 10 then return end -- not in template space
local subpage = title.subpageText
    local subpage = title.subpageText
if subpage == cfg.keyword.subpage_doc or subpage == cfg.keyword.subpage_sandbox
    if subpage == 'doc' or subpage == 'sandbox' or subpage == 'testcases' then return end
or subpage == cfg.keyword.subpage_testcases then return end


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


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


local state = args[cfg.arg.state]
    if args.title and (args.state ~= 'plain' and args.state ~= 'off') then
if args[cfg.arg.title] and state ~= cfg.keyword.state_plain and state ~= cfg.keyword.state_off then
        tbl
if state == cfg.keyword.state_collapsed then
            :addClass('mw-collapsible')
state = cfg.class.collapsed
            :addClass(args.state or 'mw-autocollapse')
end
    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()
    tbl:css('border-spacing', 0)
local frame = mw.getCurrentFrame()
    if border == 'subgroup' or border == 'child' or border == 'none' then
-- This is a lambda so that it doesn't need the frame as a parameter
        tbl
local function add_user_styles(templatestyles)
            :addClass('navbox-subgroup')
if templatestyles and templatestyles ~= '' then
            :cssText(args.bodystyle)
return frame:extensionTag{
            :cssText(args.style)
name = 'templatestyles', args = { src = templatestyles }
    else -- regular navobx - bodystyle and style will be applied to the wrapper table
}
        tbl
end
            :addClass('navbox-inner')
return ''
            :css('background', 'transparent')
end
            :css('color', 'inherit')
    end
    tbl:cssText(args.innerstyle)


-- get templatestyles. load base from config so that Lua only needs to do
    renderTitleRow(tbl)
-- the work once of parser tag expansion
    renderAboveRow(tbl)
local base_templatestyles = cfg.templatestyles
    for i, listnum in ipairs(listnums) do
local templatestyles = add_user_styles(args[cfg.arg.templatestyles])
        renderListRow(tbl, listnum)
local child_templatestyles = add_user_styles(args[cfg.arg.child_templatestyles])
    end
    renderBelowRow(tbl)


-- The 'navbox-styles' div exists for two reasons:
     return tbl
--  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)
function p._navbox(navboxArgs)
args = navboxArgs
    args = navboxArgs
local listnums = {}


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


local border = mw.text.trim(args[cfg.arg.border] or args[1] or '')
    border = trim(args.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
    -- render the main body of the navbox
local tbl = renderMainTable(border, listnums)
    local tbl = renderMainTable()


local res = mw.html.create()
    -- render the appropriate wrapper around the navbox, depending on the border param
-- render the appropriate wrapper for the navbox, based on the border param
    local res = mw.html.create()
    if border == 'none' then
        local nav = res:tag('div')
            :attr('role', 'navigation')
            :node(tbl)
        if args.title then
            nav:attr('aria-labelledby', mw.uri.anchorEncode(args.title))
        else
            nav:attr('aria-label', 'Navbox')
        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
            :wikitext('</div>') -- XXX: hack due to lack of unclosed support in mw.html.
            :node(tbl)
            :wikitext('<div>') -- XXX: hack due to lack of unclosed support in mw.html.
    else
        local nav = res:tag('div')
            :attr('role', 'navigation')
            :addClass('navbox')
            :cssText(args.bodystyle)
            :cssText(args.style)
            :css('padding', '3px')
            :node(tbl)
        if args.title then
            nav:attr('aria-labelledby', mw.uri.anchorEncode(args.title))
        else
            nav:attr('aria-label', 'Navbox')
        end
    end


if border == cfg.keyword.border_none then
    renderTrackingCategories(res)
res:node(add_navbox_styles())
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())
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
    return tostring(res)
renderTrackingCategories(res, border)
end
return striped(tostring(res), border)
end
end


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


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


return p._navbox(args)
    return p._navbox(args)
end
end


return p
return p

Текущая версия от 20:40, 6 июля 2022

Для документации этого модуля может быть создана страница Модуль:Navbox/doc

--
-- This module implements {{Navbox}}
--

local p = {}

local navbar = require('Module:Navbar')._navbar
local getArgs -- lazily initialized

local args
local tableRowAdded = false
local border
local listnums = {}

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

local function addNewline(s)
    if s:match('^[*:;#]') or s:match('^{|') then
        return '\n' .. s ..'\n'
    else
        return s
    end
end

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

    tableRowAdded = true

    return tbl:tag('tr')
end

local 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
        -- No navbar, and client wants no spacer, i.e. wants the title to be shifted to the left. If there's
        -- also no show/hide link, then we need a spacer on the right to achieve the left shift.
        if args.state == 'plain' then spacerSide = 'right' end
    elseif args.navbar == 'plain' or (not args.name and mw.getCurrentFrame():getParent():getTitle():gsub('/sandbox$', '') == 'Template:Navbox') 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{
            args.name,
            mini = 1,
            fontstyle = (args.basestyle or '') .. ';' .. (args.titlestyle or '') ..  ';background:none transparent;border:none;'
        })
    end

    -- Render the spacer div.
    if spacerSide then
        titleCell
            :tag('span')
                :css('float', spacerSide)
                :css('width', '6em')
                :wikitext('&nbsp;')
    end
end

--
--   Title row
--
local 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')
            :attr('id', mw.uri.anchorEncode(args.title))
            :addClass(args.titleclass)
            :css('font-size', '114%')
            :wikitext(addNewline(args.title))
end

--
--   Above/Below rows
--

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

local function renderAboveRow(tbl)
    if not args.above then return end

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

local function renderBelowRow(tbl)
    if not args.below then return end

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

--
--   List rows
--
local 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')
                    :wikitext(addNewline(args.imageleft))
    end

    if args['group' .. listnum] then
        local groupCell = row:tag('th')

        groupCell
            :attr('scope', 'row')
            :addClass('navbox-group')
            :addClass(args.groupclass)
            :cssText(args.basestyle)

        if args.groupwidth then
            groupCell:css('width', args.groupwidth)
        end

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

    local listCell = row:tag('td')

    if args['group' .. listnum] then
        listCell
            :css('text-align', 'left')
            :css('border-left-width', '2px')
            :css('border-left-style', 'solid')
    else
        listCell:attr('colspan', 2)
    end

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

    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')
            :wikitext(addNewline(args['list' .. listnum]))

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


--
--   Tracking categories
--

local function needsHorizontalLists()
    if border == 'child' or border == 'subgroup'  or args.tracking == 'no' then return false end

    local listClasses = {'plainlist', 'hlist', 'hlist hnum', 'hlist hwrap', 'hlist vcard', 'vcard hlist', 'hlist vevent'}
    for i, cls in ipairs(listClasses) do
        if args.listclass == cls or args.bodyclass == cls then
            return false
        end
    end

    return true
end

local function hasBackgroundColors()
    return mw.ustring.match(args.titlestyle or '','background') or mw.ustring.match(args.groupstyle or '','background') or mw.ustring.match(args.basestyle or '','background')
end

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

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

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

--
--   Main navbox tables
--
local function renderMainTable()
    local tbl = mw.html.create('table')
        :addClass('nowraplinks')
        :addClass(args.bodyclass)

    if args.title and (args.state ~= 'plain' and args.state ~= 'off') then
        tbl
            :addClass('mw-collapsible')
            :addClass(args.state or 'mw-autocollapse')
    end

    tbl:css('border-spacing', 0)
    if border == 'subgroup' or border == 'child' or border == 'none' then
        tbl
            :addClass('navbox-subgroup')
            :cssText(args.bodystyle)
            :cssText(args.style)
    else -- regular navobx - bodystyle and style will be applied to the wrapper table
        tbl
            :addClass('navbox-inner')
            :css('background', 'transparent')
            :css('color', 'inherit')
    end
    tbl:cssText(args.innerstyle)

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

    return tbl
end

function p._navbox(navboxArgs)
    args = navboxArgs

    for k, v in pairs(args) do
        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
    local tbl = renderMainTable()

    -- render the appropriate wrapper around the navbox, depending on the border param
    local res = mw.html.create()
    if border == 'none' then
        local nav = res:tag('div')
            :attr('role', 'navigation')
            :node(tbl)
        if args.title then
            nav:attr('aria-labelledby', mw.uri.anchorEncode(args.title))
        else
            nav:attr('aria-label', 'Navbox')
        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
            :wikitext('</div>') -- XXX: hack due to lack of unclosed support in mw.html.
            :node(tbl)
            :wikitext('<div>') -- XXX: hack due to lack of unclosed support in mw.html.
    else
        local nav = res:tag('div')
            :attr('role', 'navigation')
            :addClass('navbox')
            :cssText(args.bodystyle)
            :cssText(args.style)
            :css('padding', '3px')
            :node(tbl)
        if args.title then
            nav:attr('aria-labelledby', mw.uri.anchorEncode(args.title))
        else
            nav:attr('aria-label', 'Navbox')
        end
    end

    renderTrackingCategories(res)

    return tostring(res)
end

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

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

    return p._navbox(args)
end

return p