Энциклопедия автомобильных номеров мира

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

Модуль Обсуждение

Модуль:Navbox (посмотреть исходный код)

Версия от 18:16, 8 января 2024

3230 байт добавлено ,  4 месяца назад
м
1 версия импортирована: Шаблоны:Для шаблонов
/>Vlsergey
(+ "navbox-allow-mobile" for simple navboxes without styles and less than 6 groups)
м (1 версия импортирована: Шаблоны:Для шаблонов)
 
(не показано 47 промежуточных версий 11 участников)
Строка 1: Строка 1:
--
--
-- Этот модуль реализует {{Навигационная таблица}}.
-- Реализует {{навигационная таблица}}, {{подгруппы навигационной таблицы}} и {{навигационная таблица с блоками}}.
-- Основной объём кода заимствован из английского Module:Navbox.
-- Основной объём кода заимствован из английского Module:Navbox.
--
--
Строка 7: Строка 7:


local getArgs -- lazily initialized
local getArgs -- lazily initialized
local yesno -- lazily initialized
local styleratio


local args
local ODD_EVEN_MARKER = '\127_ODDEVEN_\127'
local tableRowAdded = false
local RESTART_MARKER = '\127_ODDEVEN0_\127'
local border
local REGEX_MARKER = '\127_ODDEVEN(%d?)_\127'


local maintitle
-- общие параметры для всех шаблонов
local name
local commonAliases = {
local navbar
name = {'name', 'имя'},
local above
navigation = {'navigation', 'навигация'},
local image
navbar = {'navbar', 'ссылка_на_просмотр'},
local below
state = {'state'},
local titlestyle
orphan = {'orphan'},
local groupstyle
tracking = {'tracking'},
local bodystyle
border = {'border', 1},
local basestyle
title = {'title', 'заголовок'},
local liststyle
titlegroup = {'titlegroup'},
local oddstyle
above = {'above', 'вверху'},
local evenstyle
image = {'image', 'изображение'},
local evenoddARG
imageleft = {'imageleft', 'изображение2', 'изображение_слева'},
local abovestyle
below = {'below', 'внизу'},
local belowstyle
local imageleft
bodyclass = {'bodyclass', 'класс_тела'},
local imageleftstyle
titleclass = {'titleclass', 'класс_заголовка'},
local style
titlegroupclass = {'titlegroupclass'},
local groupwidth
aboveclass = {'aboveclass', 'класс_вверху'},
local listpadding
belowclass = {'belowclass', 'класс_внизу'},
groupclass = {'groupclass', 'класс_групп'},
listclass = {'listclass', 'класс_списков'},
imageclass = {'imageclass', 'класс_изображения'},
basestyle = {'basestyle', 'стиль', 'стиль_базовый'},
bodystyle = {'style', 'bodystyle', 'стиль_тела'},
titlestyle = {'titlestyle', 'стиль_основного_заголовка', 'стиль_заголовка'},
titlegroupstyle = {'titlegroupstyle'},
innerstyle = {'innerstyle'},
abovestyle = {'abovestyle', 'стиль_вверху'},
belowstyle = {'belowstyle', 'стиль_внизу'},
imagestyle = {'imagestyle', 'стиль_изображения'},
imageleftstyle = {'imageleftstyle', 'imagestyle2', 'стиль_изображения_слева'},
}
 
-- параметры {{навигационная таблица}} и {{подгруппы навигационной таблицы}}
local standardAliases = {
groupstyle = {'groupstyle', 'стиль_заголовков', 'стиль_групп'},
liststyle = {'liststyle', 'стиль_списков'},
evenodd = {'evenodd', 'чётные_нечётные', 'четные_нечетные'},
groupwidth = {'groupwidth', 'ширина_групп'},
listpadding = {'listpadding', 'отступ_списков'},
}
 
-- параметры {{навигационная таблица}} и {{подгруппы навигационной таблицы}} с нумерацией
local standardElementAliases = {
group = {'group%s', 'заголовок%s', 'группа%s'},
list = {'list%s', 'список%s'},
groupstyle = {'group%sstyle', 'стиль_заголовка%s', 'стиль_группы%s'},
listclass = {'list%sclass', 'класс%sсписка', 'класс_списка%s'},
liststyle = {'list%sstyle', 'стиль_списка%s'},
listpadding = {'list%spadding'}
}
 
-- параметры {{навигационная таблица с блоками}}
-- с нижнего подчеркивания начинаются параметры, конфликтующие с standardAliases
local groupsParentAliases = {
selected = {'selected', 'открытый_блок', 'развернуть'},
secttitlestyle = {'secttitlestyle', 'стиль_заголовков'},
_groupstyle = {'groupstyle', 'стиль_блоков'},
_liststyle = {'liststyle', 'стиль_списков', 'contentstyle'},
_listpadding = {'listpadding', 'отступ_списка', 'отступ_списков'}
}


local bodyclass
-- параметры {{навигационная таблица с блоками}} с нумерацией
local titleclass
local groupsChildAliases = {
local aboveclass
groupname = {'abbr%s', 'имя_блока%s', 'аббр%s'},
local belowclass
state = {'state%s'},
local groupclass
title = {'group%s', 'блок%s', 'заголовок%s', 'группа%s', 'sect%s', 'section%s', 'секция%s'},
local listclass
list1 = {'list%s', 'список%s', 'content%s'},
local imageclass
image = {'image%s', 'изображение%s'},
imageleft = {'imageleft%s', 'изображение_слева%s'},


local listnums = {}
secttitlestyle = {'sect%stitlestyle', 'стиль%sзаголовка', 'стиль_секции%s'},
groupstyle = {'group%sstyle', 'стиль%sблока', 'стиль_группы%s', 'стиль_блока%s'},
listclass = {'list%sclass', 'класс%sсписка', 'класс_списка%s'},
liststyle = {'list%sstyle', 'стиль%sсписка', 'стиль_списка%s', 'content%sstyle'},
color = {'цвет%s'}
}


local function trim(s)
local function checkAliases(args, aliases, index)
    return (mw.ustring.gsub(s, "^%s*(.-)%s*$", "%1"))
for _, alias in ipairs(aliases) do
local arg
if index then
arg = args[string.format(alias, index)]
else
arg = args[alias]
end
if arg then
return arg
end
end
return nil
end
end


local function addNewline(s)
local function checkElAliases(args, name, index)
    if s:match('^[*:;#]') or s:match('^{|') then
return checkAliases(args, standardElementAliases[name], index)
        return '\n' .. s ..'\n'
    else
        return s
    end
end
end


local function addTableRow(tbl)
local function concatStyles(t)
    -- If any other rows have already been added, then we add a 2px gutter row.
local res
    if tableRowAdded then
for k, v in pairs(t) do
        tbl
if v then
            :tag('tr')
res = res and res .. ';' .. v or v
                :css('height', '2px')
end
                :tag('td')
end
                    :attr('colspan',2)
return res
    end
end


    tableRowAdded = true
local function striped(wikitext, args)
-- 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 = '[[Категория:Навигационные шаблоны без родителя]]'
if args.border == 'subgroup' and args.orphan ~= 'yes' then
-- No change; striping occurs in outermost navbox.
return wikitext .. orphanCat
end
local first, second = 'odd', 'even'
if args.evenodd then
if args.evenodd == 'swap' then
first, second = second, first
else
first = args.evenodd
second = first
end
end
local changer
if first == second then
changer = first
else
local index = 0
changer = function (code)
if code == '0' then
-- Current occurrence is for a group before a nested table.
-- Set it to first as a valid although pointless class.
-- The next occurrence will be the first row after a title
-- in a subgroup and will also be first.
index = 0
return first
end
index = index + 1
return index % 2 == 1 and first or second
end
end
local regex = orphanCat:gsub('([%[%]])', '%%%1')
return (wikitext:gsub(regex, ''):gsub(REGEX_MARKER, changer))  -- () omits gsub count
end


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


local function renderNavBar(titleCell)
local function renderNavBar(titleCell, args)
    -- Depending on the presence of the navbar and/or show/hide link, we may need to add a spacer div on the left
local currentFrame = mw.getCurrentFrame()
    -- or right to keep the title centered.
if args.navbar ~= 'off' and args.navbar ~= 'plain'  
    local spacerSide = nil
and (args.name or not currentFrame:getParent():getTitle():gsub('/песочница$', '') == 'Шаблон:Навигационная таблица') then
 
    if navbar == 'off' then
-- Check color contrast of the gear icon
        -- No navbar, and client wants no spacer, i.e. wants the title to be shifted to the left. If there's
if not styleratio then
        -- also no show/hide link, then we need a spacer on the right to achieve the left shift.
styleratio = require('Module:Color contrast')._styleratio
        if args.state == 'plain' then spacerSide = 'right' end
end
    elseif navbar == 'plain' or (not name and mw.getCurrentFrame():getParent():getTitle():gsub('/песочница$', '') == 'Шаблон:Навигационная таблица') then
local contrastStyle = args.titlestyle or args.basestyle
        -- No navbar. Need a spacer on the left to balance out the width of the show/hide link.
local gearStyleBlack = (contrastStyle and mw.text.unstripNoWiki(contrastStyle) .. '; color:#666;' or '')
        if args.state ~= 'plain' then spacerSide = 'left' end
local gearStyleWhite = (contrastStyle and mw.text.unstripNoWiki(contrastStyle) .. '; color:#fff;' or '')
    else
local gear = currentFrame:expandTemplate{
        -- Will render navbar (or error message). If there's no show/hide link, need a spacer on the right
title = 'Tnavbar-view',
        -- to balance out the width of the navbar.
args = {
        if args.state == 'plain' then spacerSide = 'right' end
args.name,
       
fontcolor = (styleratio{gearStyleBlack} < styleratio{gearStyleWhite}) and 'white',
--- Мagnifying glass creation
}
        titleCell
}
        :tag('span')
        :css('float', 'left')
--- Gear creation
        :css('text-align', 'left')
titleCell
        :css('width', '5em')
:tag('span')
        :css('margin-right', '0.5em')
:addClass('navbox-gear')
        :wikitext('[[Файл:Wikipedia interwiki section gear icon' .. (navbar == 'white' and ' white' or '') .. '.svg|14px|Просмотр этого шаблона|link=Шаблон:' .. name .. '|alt=⛭]]')
:css('float', 'left')
    end
:css('text-align', 'left')
:css('width', '5em')
:css('margin-right', '0.5em')
:wikitext(gear)
end


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


Строка 112: Строка 211:
--  Title row
--  Title row
--
--
local function renderTitleRow(tbl)
local function renderTitleRow(tbl, args)
    if not maintitle then return end
if not args.title then return end


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


    if args.titlegroup then
if args.titlegroup then
        titleRow
titleRow
            :tag('th')
:tag('th')
                :attr('scope', 'row')
:attr('scope', 'row')
                :addClass('navbox-group')
:addClass('navbox-group')
                :addClass(args.titlegroupclass)
:addClass(args.titlegroupclass)
                :cssText(basestyle)
:cssText(args.basestyle)
                :cssText(groupstyle)
:cssText(args.groupstyle)
                :cssText(args.titlegroupstyle)
:cssText(args.titlegroupstyle)
                :wikitext(args.titlegroup)
:wikitext(args.titlegroup)
    end
end


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


    if args.titlegroup then
if args.titlegroup then
        titleCell
titleCell
            :css('border-left', '2px solid #fdfdfd')
:css('border-left', '2px solid #fdfdfd')
            :css('width', '100%')
:css('width', '100%')
    end
end


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


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


    renderNavBar(titleCell)
renderNavBar(titleCell, args)


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


Строка 161: Строка 262:
--
--


local function getAboveBelowColspan()
local function getAboveBelowColspan(args)
    local ret = 2
local ret = 2
    if imageleft then ret = ret + 1 end
if args.imageleft then ret = ret + 1 end
    if 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, args)
    if not above then return end
if not args.above then return end


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


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


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


Строка 199: Строка 300:
--  List rows
--  List rows
--
--
local function renderListRow(tbl, listnum)
    local row = addTableRow(tbl)


    if listnum == 1 and imageleft then
local function haveSubgroups(args)
        row
for i = 1, 23 do
            :tag('td')
if checkElAliases(args, 'group', i) and checkElAliases(args, 'list', i) then
                :addClass('navbox-image')
return true
                :addClass(imageclass)
end
                :css('width', '1%')
end
                :css('padding', '0px 7px 0px 0px')
return false
                :cssText(imageleftstyle)
end
                :attr('rowspan', 2 * #listnums - 1)
 
                :tag('div')
local function renderListRow(tbl, args, index, rowspan, rowArgs)
                    :wikitext(addNewline(imageleft))
local row = tbl:tag('tr')
    end
 
if index == 1 and args.imageleft then
row
:tag('td')
:addClass('navbox-image')
:addClass(args.imageclass)
:css('width', '1px')
:css('padding', '0px 7px 0px 0px')
:cssText(args.imageleftstyle)
:attr('rowspan', rowspan)
:tag('div')
:wikitext(addNewline(args.imageleft))
end


    if (args['group' .. listnum] or args['заголовок' .. listnum] or args['группа' .. listnum]) then
if rowArgs.group then
    local groupCell = row:tag('th')
local groupCell = row:tag('th')


        groupCell
groupCell
            :attr('scope', 'row')
:attr('scope', 'row')
            :addClass('navbox-group')
:addClass('navbox-group')
            :addClass(groupclass)
:addClass(args.groupclass)
            :cssText(basestyle)
:cssText(args.basestyle)
:css('width', args.groupwidth or '1px') -- If groupwidth not specified, minimize width


-- заголовки без списков - для обратной совместимости, только в нашем разделе
groupCell
if not (args['list' .. listnum] or args['список' .. listnum]) then
:cssText(args.groupstyle)
groupCell
:cssText(rowArgs.groupstyle)
:attr('colspan', '2')
:wikitext(rowArgs.group)
:css('text-align', 'center')
end
 
local listCell = row:tag('td')
 
if rowArgs.group then
listCell
:css('text-align', 'left')
:css('border-left-width', '2px')
:css('border-left-style', 'solid')
else
if haveSubgroups(args) then
listCell
:attr('colspan', 2)
end
end
end


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


        groupCell
local listText = rowArgs.list
            :cssText(groupstyle)
local oddEven = ODD_EVEN_MARKER
            :cssText(args['group' .. listnum .. 'style'] or args['стиль_группы' .. listnum] or args['стиль_заголовка' .. listnum])
if listText:sub(1, 12) == '</div><table' then
            :wikitext(args['group' .. listnum] or args['заголовок' .. listnum] or args['группа' .. listnum])
-- Assume list text is for a subgroup navbox so no automatic striping for this row.
    end
oddEven = listText:find('<th[^>]*"navbox%-title"') and RESTART_MARKER or 'odd'
end
listCell
:css('padding', '0px')
:cssText(args.liststyle)
:cssText(rowArgs.liststyle)
:addClass('navbox-list')
:addClass('navbox-' .. oddEven)
:addClass(args.listclass)
:addClass(rowArgs.listclass)
:tag('div')
:css('padding', rowArgs.listpadding or args.listpadding or '0em 0.25em')
:wikitext(addNewline(listText))


    if args['list' .. listnum] or args['список' .. listnum] then
if index == 1 and args.image then
    local listCell = row:tag('td')
row
:tag('td')
    if (args['group' .. listnum] or args['заголовок' .. listnum] or args['группа' .. listnum]) then
:addClass('navbox-image')
        listCell
:addClass(args.imageclass)
            :css('text-align', 'left')
:css('width', '1px')
            :css('border-left-width', '2px')
:css('padding', '0px 0px 0px 7px')
            :css('border-left-style', 'solid')
:cssText(args.imagestyle)
    else
:attr('rowspan', rowspan)
        listCell:attr('colspan', 2)
:tag('div')
    end
:wikitext(addNewline(args.image))
    if not groupwidth then
        listCell:css('width', '100%')
    end
    local isOdd = (listnum % 2) == 1
    local rowstyle = evenstyle
    if isOdd then rowstyle = oddstyle end
    local evenOdd
    if evenoddARG == 'swap' then
        if isOdd then evenOdd = 'even' else evenOdd = 'odd' end
    else
        if isOdd then evenOdd = evenoddARG or 'odd' else evenOdd = evenoddARG or 'even' end
    end
    listCell
        :css('padding', '0px')
        :cssText(liststyle)
        :cssText(rowstyle)
        :cssText(args['list' .. listnum .. 'style'] or args['стиль_списка' .. listnum])
        :addClass('navbox-list')
        :addClass('navbox-' .. evenOdd)
        :addClass(listclass)
        :tag('div')
            :css('padding', (listnum == 1 and args.list1padding) or listpadding or '0em 0.25em')
            :wikitext('\n' .. (args['list' .. listnum] or args['список' .. listnum]))
end
end
    if listnum == 1 and image then
        row
            :tag('td')
                :addClass('navbox-image')
                :addClass(imageclass)
                :css('width', '1%')
                :css('padding', '0px 0px 0px 7px')
                :cssText(imagestyle)
                :attr('rowspan', 2 * #listnums - 1)
                :tag('div')
                :wikitext(addNewline(image))
    end
end
end


--
--
--  Tracking categories
--  Tracking categories
--
--
local function needsChangetoSubgroups()
local function needsChangetoSubgroups(args)
for i = 1, 23 do
for i = 1, 23 do
if (args['group' .. i] or args['заголовок' .. i] or args['группа' .. i]) and not (args['list' .. i] or args['список' .. i]) then
if (checkElAliases(args, 'group', i)) and not (checkElAliases(args, 'list', i)) then
return true
return true
end
end
Строка 308: Строка 404:
end
end


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


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


local function isIllegible()
local function isIllegible(args)
    local styleratio = require('Module:Color contrast')._styleratio
if not styleratio then
styleratio = require('Module:Color contrast')._styleratio
end


    for key, style in pairs(args) do
for key, style in pairs(args) do
        if tostring(key):match("style$") then
if tostring(key):match("style$") or tostring(key):match("^стиль") then
            if styleratio{mw.text.unstripNoWiki(style)} < 4.5 then
if styleratio{mw.text.unstripNoWiki(style)} < 4.5 then
                return true  
return true  
            end
end
        end
end
    end
end
    return false
return false
end
end


local function getTrackingCategories()
local function getTrackingCategories(args)
    local cats = {}
local cats = {}
    if needsChangetoSubgroups() then table.insert(cats, 'Навигационные шаблоны с ошибочным использованием заголовков') end
if needsChangetoSubgroups(args) then table.insert(cats, 'Навигационные шаблоны с ошибочным использованием заголовков') end
    if needsHorizontalLists() then table.insert(cats, 'Навигационные шаблоны без горизонтальных списков') end
if needsHorizontalLists(args) then table.insert(cats, 'Навигационные шаблоны без горизонтальных списков') end
    if isIllegible() then table.insert(cats, 'Потенциально нечитаемые навигационные шаблоны') end
if isIllegible(args) then table.insert(cats, 'Потенциально нечитаемые навигационные шаблоны') end
    return cats
return cats
end
end


local function renderTrackingCategories(builder)
local function renderTrackingCategories(builder, args)
    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 == 'doc' or subpage == 'песочница' or subpage == 'тесты' then return end
if subpage == 'doc' or subpage == 'песочница' or subpage == 'тесты' then return end


    for i, cat in ipairs(getTrackingCategories()) do
for i, cat in ipairs(getTrackingCategories(args)) do
        builder:wikitext('[[Категория:' .. cat .. ']]')
builder:wikitext('[[Категория:' .. cat .. ']]')
    end
end
end
end


Строка 360: Строка 457:
--  Main navbox tables
--  Main navbox tables
--
--
local function renderMainTable()
local function renderMainTable(args, listnums)
    local tbl = mw.html.create('table')
local tbl = mw.html.create('table')
        :addClass('nowraplinks')
:addClass('nowraplinks')
        :addClass(bodyclass)
:addClass(args.bodyclass)


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


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


    renderTitleRow(tbl)
renderTitleRow(tbl, args)
    renderAboveRow(tbl)
renderAboveRow(tbl, args)
    for i, listnum in ipairs(listnums) do
for i, listnum in ipairs(listnums) do
        renderListRow(tbl, listnum)
local rowArgs = {
    end
group = checkElAliases(args, 'group', listnum),
    renderBelowRow(tbl)
list = checkElAliases(args, 'list', listnum),
groupstyle = checkElAliases(args, 'groupstyle', listnum),
listclass = checkElAliases(args, 'listclass', listnum),
liststyle = checkElAliases(args, 'liststyle', listnum),
listpadding = checkElAliases(args, 'listpadding', listnum)
}
renderListRow(tbl, args, i, #listnums, rowArgs)
end
renderBelowRow(tbl, args)


    return tbl
return tbl
end
end


function p._navbox(navboxArgs)
-- Read the arguments in the order they'll be output in, to make references number in the right order.
    args = navboxArgs
local function readInTheRightOrder(args, groupAliases, listAliases)
local _
_ = checkAliases(args, commonAliases.title)
_ = checkAliases(args, commonAliases.above)
for i = 1, 23 do
_ = checkAliases(args, groupAliases, i)
_ = checkAliases(args, listAliases, i)
end
_ = checkAliases(args, commonAliases.below)
end


    for k, v in pairs(args) do
function p._navbox(args)
        local listnum = ('' .. k):match('^list(%d+)$') or ('' .. k):match('^список(%d+)$')
if not yesno then
        if listnum then table.insert(listnums, tonumber(listnum)) end
yesno = require('Module:Yesno')
    end
end
   
    -- заголовки без списков - для обратной совместимости, только в нашем разделе
    for k, v in pairs(args) do
    local double = false
    local groupnum = ('' .. k):match('^заголовок(%d+)$') --group не нужен, так как в английском шаблоне эта фукнциональность не поддерживается
    if groupnum then
    for k2, v2 in pairs(listnums) do
    if tonumber(groupnum) == v2 then
    double = true
    break
    end
    end
    if not double then table.insert(listnums, tonumber(groupnum)) end --добавляем только номера заголовков, для которых нет списков
    end
    end
   
    table.sort(listnums)


    border = trim(args.border or args[1] or '')
local listnums = {}
    maintitle = args.title or args['заголовок']
for k, v in pairs(args) do
    navbar = args.navbar or args['ссылка_на_просмотр']
local listnum = ('' .. k):match('^list(%d+)$') or ('' .. k):match('^список(%d+)$')
name = args.name or args['имя']
if listnum then table.insert(listnums, tonumber(listnum)) end
above = args.above or args['вверху']
end
image = args.image or args['изображение']
imagestyle = args.imagestyle or args['стиль_изображения']
imageleft = args.imageleft or args['изображение2'] or args['изображение_слева']
imageleftstyle = args.imageleftstyle or args.imagestyle2 or args['стиль_изображения_слева']
below = args.below or args['внизу']
titlestyle = args.titlestyle or args['стиль_основного_заголовка'] or args['стиль_заголовка']
groupstyle = args.groupstyle or args['стиль_заголовков'] or args['стиль_групп']
bodystyle = args.bodystyle or args['стиль_тела']
basestyle = args.basestyle or args['стиль_базовый'] or args['стиль']
style = args.style
liststyle = args.liststyle or args['стиль_списков']
oddstyle = args.oddstyle or args['стиль_нечётных'] or args['стиль_нечетных']
evenstyle = args.evenstyle or args['стиль_чётных'] or args['стиль_четных']
abovestyle = args.abovestyle or args['стиль_вверху']
belowstyle = args.belowstyle or args['стиль_внизу']
evenoddARG = args.evenodd or args['чётные_нечётные'] or args['четные_нечетные']
groupwidth = args.groupwidth or args['ширина_групп']
table.sort(listnums)
listpadding = args.listpadding or args['отступ_списков']
 
args.border = mw.text.trim(args.border or args[1] or '')
if args.border == 'child' then
args.border = 'subgroup'
end
bodyclass = args.bodyclass or args['класс_тела']
for argname, aliasesList in pairs(commonAliases) do
    titleclass = args.titleclass or args['класс_заголовка']
args[argname] = checkAliases(args, aliasesList)
    aboveclass =args.aboveclass or args['класс_вверху']
end
belowclass = args.belowclass or args['класс_внизу']
for argname, aliasesList in pairs(standardAliases) do
groupclass = args.groupclass or args['класс_групп']
args[argname] = checkAliases(args, aliasesList)
listclass = args.listclass or args['класс_списков']
end
imageclass = args.imageclass or args['класс_изображения']
 
args.navigation = yesno(args.navigation, '')
    -- render the main body of the navbox
-- render the main body of the navbox
    local tbl = renderMainTable()
local tbl = renderMainTable(args, listnums)


    -- render the appropriate wrapper around the navbox, depending on the border param
-- render the appropriate wrapper around the navbox, depending on the border param
    local res = mw.html.create()
local res = mw.html.create()
    if border == 'none' then
if args.border == 'none' then
        res:node(tbl)
local nav = res:tag('div')
    elseif border == 'subgroup' or border == 'child' then
:attr('role', 'navigation')
        -- We assume that this navbox is being rendered in a list cell of a parent navbox, and is
:node(tbl)
        -- therefore inside a div with padding:0em 0.25em. We start with a </div> to avoid the
if args.title then
        -- padding being applied, and at the end add a <div> to balance out the parent's </div>
nav:attr('aria-labelledby', mw.uri.anchorEncode(args.title))
        res
else
            :wikitext('</div>') -- XXX: hack due to lack of unclosed support in mw.html.
nav:attr('aria-label', 'Навигационный шаблон')
            :node(tbl)
end
            :wikitext('<div>') -- XXX: hack due to lack of unclosed support in mw.html.
if args.name and args.name ~= '-' then
    else
nav:attr('data-name', args.name)
        local tableTag = res:tag('table')
end
        tableTag:addClass('navbox')
if args.navigation == true then
                :css('border-spacing', 0)
nav:attr('data-navboxnavigation', '1')
                :cssText(bodystyle)
elseif args.navigation == false then
                :cssText(style)
nav:attr('data-navboxnavigation', '0')
                :tag('tr')
end
                    :tag('td')
elseif args.border == 'subgroup' then
                        :css('padding', '2px')
-- We assume that this navbox is being rendered in a list cell of a parent navbox, and is
                        :node(tbl)
-- 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>
        if ( not titlestyle and not groupstyle and not bodystyle and not basestyle and not style
res
        and not liststyle and not oddstyle and not evenstyle and not abovestyle and not belowstyle
:wikitext('</div>') -- XXX: hack due to lack of unclosed support in mw.html.
        and not args["group6"] and not args["group7"] and not args["group8"] and not args["group9"] ) then
:node(tbl)
        tableTag:addClass( 'navbox-allow-mobile' );
:wikitext('<div>') -- XXX: hack due to lack of unclosed support in mw.html.
        end
else
    end
local nav = res:tag('div')
:attr('role', 'navigation')
:addClass('navbox')
:cssText(args.bodystyle)
:node(tbl)
if args.title then
nav:attr('aria-labelledby', mw.uri.anchorEncode(args.title))
else
nav:attr('aria-label', 'Навигационный шаблон')
end
if args.name and args.name ~= '-' then
nav:attr('data-name', args.name)
end
if args.navigation == true then
nav:attr('data-navboxnavigation', '1')
elseif args.navigation == false then
nav:attr('data-navboxnavigation', '0')
end
end


    renderTrackingCategories(res)
renderTrackingCategories(res, args)


    return tostring(res)
return striped(tostring(res), args)
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 = {'Шаблон:Навигационная таблица', 'Шаблон:Навигационная таблица/песочница'}})
if not yesno then
yesno = require('Module:Yesno')
end
args = getArgs(frame, {wrappers = {'Шаблон:Навигационная таблица', 'Шаблон:Подгруппы навигационной таблицы'}})
if frame.args.border then
-- This allows Template:Navbox_subgroup to use {{#invoke:Navbox|navbox|border=...}}.
args.border = frame.args.border
end
readInTheRightOrder(args, standardElementAliases.group, standardElementAliases.list)


    -- Read the arguments in the order they'll be output in, to make references number in the right order.
return p._navbox(args)
    local _
end
    _ = maintitle
    _ = above
    for i = 1, 23 do
        _ = args["group" .. tostring(i)] and args["заголовок" .. tostring(i)] and args["группа" .. tostring(i)]
        _ = args["list" .. tostring(i)] and args["список" .. tostring(i)]
    end
    _ = below


    return p._navbox(args)
function p.navboxWithCollapsibleGroups(frame)
if not getArgs then
getArgs = require('Module:Arguments').getArgs
end
local args = getArgs(frame, {wrappers = {'Шаблон:Навигационная таблица с блоками'}})
readInTheRightOrder(args, groupsChildAliases.title, groupsChildAliases.list1)
local parent = {}
for argname, aliasesList in pairs(commonAliases) do
parent[argname] = checkAliases(args, aliasesList)
end
for argname, aliasesList in pairs(groupsParentAliases) do
parent[argname] = checkAliases(args, aliasesList)
end
for i = 1, 20 do
local child = {}
for argname, aliasesList in pairs(groupsChildAliases) do
child[argname] = checkAliases(args, aliasesList, i)
end
child.color = child.color and string.format('background:%s;', child.color) or ''
child.border = 'child'
child.navbar = 'plain'
if parent.selected and parent.selected == child.groupname then
child.state = 'uncollapsed'
end
child.state = child.state or 'collapsed'
child.basestyle = concatStyles{parent.basestyle, parent.secttitlestyle, child.secttitlestyle}
    child.titlestyle = concatStyles{parent._groupstyle, child.groupstyle, child.color}
    child.liststyle  = concatStyles{parent._liststyle, child.liststyle}
    child.lispadding = parent._listpadding
if child.title then
parent['list' .. i] = p._navbox(child)
else
parent['list' .. i] = child.list1
end
end
return p._navbox(parent)
end
end


return p
return p
Источник — https://licenseplates.ru/Служебная:Сравнение_версий/57724...116009