Изменения

Перейти к навигации Перейти к поиску

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

Версия от 14:14, 30 марта 2017

1306 байт убрано ,  8 лет назад
added: Automatic striping, Категория:Навигационные шаблоны без родителя, aria-якорь; deleted: unworked mobile style
Строка 11: Строка 11:  
local tableRowAdded = false
 
local tableRowAdded = false
 
local border
 
local border
 +
local listnums = {}
 +
local ODD_EVEN_MARKER = '\127_ODDEVEN_\127'
 +
local RESTART_MARKER = '\127_ODDEVEN0_\127'
 +
local REGEX_MARKER = '\127_ODDEVEN(%d?)_\127'
    
local maintitle
 
local maintitle
Строка 18: Строка 22:  
local image
 
local image
 
local below
 
local below
 +
 
local titlestyle
 
local titlestyle
 
local groupstyle
 
local groupstyle
Строка 31: Строка 36:  
local imageleftstyle
 
local imageleftstyle
 
local style
 
local style
 +
 
local groupwidth
 
local groupwidth
 
local listpadding
 
local listpadding
Строка 41: Строка 47:  
local listclass
 
local listclass
 
local imageclass
 
local imageclass
−
local listnums = {}
     −
local function trim(s)
+
local function striped(wikitext)
−
    return (mw.ustring.gsub(s, "^%s*(.-)%s*$", "%1"))
+
-- 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 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
 
end
    
local function addNewline(s)
 
local function addNewline(s)
−
    if s:match('^[*:;#]') or s:match('^{|') then
+
if s:match('^[*:;#]') or s:match('^{|') then
−
        return '\n' .. s ..'\n'
+
return '\n' .. s ..'\n'
−
    else
+
else
−
        return s
+
return s
−
    end
+
end
 
end
 
end
    
local function addTableRow(tbl)
 
local function addTableRow(tbl)
−
    -- If any other rows have already been added, then we add a 2px gutter row.
+
-- If any other rows have already been added, then we add a 2px gutter row.
−
    if tableRowAdded then
+
if tableRowAdded then
−
        tbl
+
tbl
−
            :tag('tr')
+
:tag('tr')
−
                :css('height', '2px')
+
:css('height', '2px')
−
                :tag('td')
+
:tag('td')
−
                    :attr('colspan',2)
+
:attr('colspan',2)
−
    end
+
end
   −
    tableRowAdded = true
+
tableRowAdded = true
   −
    return tbl:tag('tr')
+
return tbl:tag('tr')
 
end
 
end
    
local function renderNavBar(titleCell)
 
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 navbar == 'off' then
+
if navbar ~= 'off' and navbar ~= 'plain' and not (not name and mw.getCurrentFrame():getParent():getTitle():gsub('/песочница$', '') == 'Шаблон:Навигационная таблица') 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.
+
-- Check color contrast of the gear icon
−
        if args.state == 'plain' then spacerSide = 'right' end
+
local styleratio = require('Module:Color contrast')._styleratio
−
    elseif navbar == 'plain' or (not name and mw.getCurrentFrame():getParent():getTitle():gsub('/песочница$', '') == 'Шаблон:Навигационная таблица') then
+
local gearColor = ''
−
        -- No navbar. Need a spacer on the left to balance out the width of the show/hide link.
+
local contrastStyle = titlestyle or basestyle
−
        if args.state ~= 'plain' then spacerSide = 'left' end
+
local gearStyleBlack = (contrastStyle and mw.text.unstripNoWiki(contrastStyle) .. '; color:#666;' or '')
−
    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
  −
       
  −
        -- Check color contrast of the gear icon
  −
    local styleratio = require('Module:Color contrast')._styleratio
  −
    local gearColor = ''
  −
    local contrastStyle = titlestyle or basestyle
  −
    local gearStyleBlack = (contrastStyle and mw.text.unstripNoWiki(contrastStyle) .. '; color:#666;' or '')
   
local gearStyleWhite = (contrastStyle and mw.text.unstripNoWiki(contrastStyle) .. '; color:#fff;' or '')
 
local gearStyleWhite = (contrastStyle and mw.text.unstripNoWiki(contrastStyle) .. '; color:#fff;' or '')
−
    if styleratio{gearStyleBlack} < styleratio{gearStyleWhite} then
+
if styleratio{gearStyleBlack} < styleratio{gearStyleWhite} then
−
    gearColor = ' white'
+
gearColor = ' white'
−
    end
+
end
−
       
+
 
--- Gear creation
 
--- Gear creation
−
        titleCell
+
titleCell
−
        :tag('span')
+
:tag('span')
−
        :addClass('nomobile')
+
:css('float', 'left')
−
        :css('float', 'left')
+
:css('text-align', 'left')
−
        :css('text-align', 'left')
+
:css('width', '5em')
−
        :css('width', '5em')
+
:css('margin-right', '0.5em')
−
        :css('margin-right', '0.5em')
+
:wikitext('[[Файл:Wikipedia interwiki section gear icon' .. gearColor .. '.svg|14px|Просмотр этого шаблона|link=Шаблон:' .. name .. '|alt=⛭]]')
−
        :wikitext('[[Файл:Wikipedia interwiki section gear icon' .. gearColor .. '.svg|14px|Просмотр этого шаблона|link=Шаблон:' .. name .. '|alt=⛭]]')
+
end
−
    end
     −
    -- Render the spacer div.
  −
    if spacerSide then
  −
        titleCell
  −
            :tag('span')
  −
        :addClass('nomobile')
  −
                :css('float', spacerSide)
  −
                :css('width', '5em')
  −
                :css('margin-right', '0.5em')
  −
                :wikitext('&nbsp;')
  −
    end
   
end
 
end
   Строка 124: Строка 142:  
--
 
--
 
local function renderTitleRow(tbl)
 
local function renderTitleRow(tbl)
−
    if not maintitle then return end
+
if not maintitle then return end
   −
    local titleRow = addTableRow(tbl)
+
local titleRow = addTableRow(tbl)
   −
    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(basestyle)
−
                :cssText(groupstyle)
+
:cssText(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', 'col')
   −
    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 imageleft then titleColspan = titleColspan + 1 end
−
    if image then titleColspan = titleColspan + 1 end
+
if 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(basestyle)
−
        :cssText(titlestyle)
+
:cssText(titlestyle)
−
        :addClass('navbox-title')
+
:addClass('navbox-title')
−
        :attr('colspan', titleColspan)
+
:attr('colspan', titleColspan)
   −
    renderNavBar(titleCell)
+
renderNavBar(titleCell)
   −
    titleCell
+
titleCell
−
        :tag('div')
+
:tag('div')
−
            :addClass(titleclass)
+
:attr('id', mw.uri.anchorEncode(maintitle))
−
            :css('font-size', '114%')
+
:addClass(titleclass)
−
            :wikitext(addNewline(maintitle))
+
:css('font-size', '114%')
 +
:wikitext(addNewline(maintitle))
 
end
 
end
   Строка 173: Строка 192:     
local function getAboveBelowColspan()
 
local function getAboveBelowColspan()
−
    local ret = 2
+
local ret = 2
−
    if imageleft then ret = ret + 1 end
+
if imageleft then ret = ret + 1 end
−
    if image then ret = ret + 1 end
+
if image then ret = ret + 1 end
−
    return ret
+
return ret
 
end
 
end
    
local function renderAboveRow(tbl)
 
local function renderAboveRow(tbl)
−
    if not above then return end
+
if not above then return end
   −
    addTableRow(tbl)
+
addTableRow(tbl)
−
        :tag('td')
+
:tag('td')
−
            :addClass('navbox-abovebelow')
+
:addClass('navbox-abovebelow')
−
            :addClass(aboveclass)
+
:addClass(aboveclass)
−
            :cssText(basestyle)
+
:cssText(basestyle)
−
            :cssText(abovestyle)
+
:cssText(abovestyle)
−
            :attr('colspan', getAboveBelowColspan())
+
:attr('colspan', getAboveBelowColspan())
−
            :tag('div')
+
:tag('div')
−
                :wikitext(addNewline(above))
+
:wikitext(addNewline(above))
 
end
 
end
    
local function renderBelowRow(tbl)
 
local function renderBelowRow(tbl)
−
    if not below then return end
+
if not below then return end
   −
    addTableRow(tbl)
+
addTableRow(tbl)
−
        :tag('td')
+
:tag('td')
−
            :addClass('navbox-abovebelow')
+
:addClass('navbox-abovebelow')
−
            :addClass(belowclass)
+
:addClass(belowclass)
−
            :cssText(basestyle)
+
:cssText(basestyle)
−
            :cssText(belowstyle)
+
:cssText(belowstyle)
−
            :attr('colspan', getAboveBelowColspan())
+
:attr('colspan', getAboveBelowColspan())
−
            :tag('div')
+
:tag('div')
−
                :wikitext(addNewline(below))
+
:wikitext(addNewline(below))
 
end
 
end
   Строка 210: Строка 229:  
--  List rows
 
--  List rows
 
--
 
--
−
local function renderListRow(tbl, listnum)
+
local function renderListRow(tbl, index, listnum)
−
    local row = addTableRow(tbl)
+
local row = addTableRow(tbl)
   −
    if listnum == 1 and imageleft then
+
if index == 1 and imageleft then
−
        row
+
row
−
            :tag('td')
+
:tag('td')
−
                :addClass('navbox-image')
+
:addClass('navbox-image')
−
                :addClass(imageclass)
+
:addClass(imageclass)
−
                :css('width', '1%')
+
:css('width', '1%')
−
                :css('padding', '0px 7px 0px 0px')
+
:css('padding', '0px 7px 0px 0px')
−
                :cssText(imageleftstyle)
+
:cssText(imageleftstyle)
−
                :attr('rowspan', 2 * #listnums - 1)
+
:attr('rowspan', 2 * #listnums - 1)
−
                :tag('div')
+
:tag('div')
−
                    :wikitext(addNewline(imageleft))
+
:wikitext(addNewline(imageleft))
−
    end
+
end
   −
    if (args['group' .. listnum] or args['заголовок' .. listnum] or args['группа' .. listnum]) then
+
if (args['group' .. listnum] or args['заголовок' .. listnum] or args['группа' .. listnum]) 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(groupclass)
−
            :cssText(basestyle)
+
:cssText(basestyle)
    
-- заголовки без списков - для обратной совместимости, только в нашем разделе
 
-- заголовки без списков - для обратной совместимости, только в нашем разделе
Строка 242: Строка 261:  
end
 
end
   −
        if groupwidth then
+
if groupwidth then
−
            groupCell:css('width', groupwidth)
+
groupCell:css('width', groupwidth)
−
        end
+
end
   −
        groupCell
+
groupCell
−
            :cssText(groupstyle)
+
:cssText(groupstyle)
−
            :cssText(args['group' .. listnum .. 'style'] or args['стиль_группы' .. listnum] or args['стиль_заголовка' .. listnum])
+
:cssText(args['group' .. listnum .. 'style'] or args['стиль_группы' .. listnum] or args['стиль_заголовка' .. listnum])
−
            :wikitext(args['group' .. listnum] or args['заголовок' .. listnum] or args['группа' .. listnum])
+
:wikitext(args['group' .. listnum] or args['заголовок' .. listnum] or args['группа' .. listnum])
−
    end
+
end
   −
    if args['list' .. listnum] or args['список' .. listnum] then
+
local listCell = row:tag('td')
−
    local listCell = row:tag('td')
   
 
−
    if (args['group' .. listnum] or args['заголовок' .. listnum] or args['группа' .. listnum]) then
+
if (args['group' .. listnum] or args['заголовок' .. listnum] or args['группа' .. listnum]) then
−
        listCell
+
listCell
−
            :css('text-align', 'left')
+
:css('text-align', 'left')
−
            :css('border-left-width', '2px')
+
:css('border-left-width', '2px')
−
            :css('border-left-style', 'solid')
+
:css('border-left-style', 'solid')
−
    else
+
else
−
        listCell:attr('colspan', 2)
+
listCell:attr('colspan', 2)
−
    end
+
end
 
 
−
    if not groupwidth then
+
if not groupwidth then
−
        listCell:css('width', '100%')
+
listCell:css('width', '100%')
−
    end
+
end
 
 
−
    local isOdd = (listnum % 2) == 1
+
local rowstyle  -- usually nil so cssText(rowstyle) usually adds nothing
−
    local rowstyle = evenstyle
+
if index % 2 == 1 then
−
    if isOdd then rowstyle = oddstyle end
+
rowstyle = oddstyle
−
+
else
−
    local evenOdd
+
rowstyle = evenstyle
−
    if evenoddARG == 'swap' then
+
end
−
        if isOdd then evenOdd = 'even' else evenOdd = 'odd' end
+
−
    else
+
local listText = args['list' .. listnum] or args['список' .. listnum] or args['title' .. listnum] or args['заголовок' .. listnum]
−
        if isOdd then evenOdd = evenoddARG or 'odd' else evenOdd = evenoddARG or 'even' end
+
local oddEven = ODD_EVEN_MARKER
−
    end
+
if listText:sub(1, 12) == '</div><table' then
−
+
-- Assume list text is for a subgroup navbox so no automatic striping for this row.
−
    listCell
+
oddEven = listText:find('<th[^>]*"navbox%-title"') and RESTART_MARKER or 'odd'
−
        :css('padding', '0px')
+
end
−
        :cssText(liststyle)
+
listCell
−
        :cssText(rowstyle)
+
:css('padding', '0px')
−
        :cssText(args['list' .. listnum .. 'style'] or args['стиль_списка' .. listnum])
+
:cssText(liststyle)
−
        :addClass('navbox-list')
+
:cssText(rowstyle)
−
        :addClass('navbox-' .. evenOdd)
+
:cssText(args['list' .. listnum .. 'style'] or args['стиль_списка' .. listnum])
−
        :addClass(listclass)
+
:addClass('navbox-list')
−
        :tag('div')
+
:addClass('navbox-' .. oddEven)
−
            :css('padding', (listnum == 1 and args.list1padding) or listpadding or '0em 0.25em')
+
:addClass(listclass)
−
            :wikitext('\n' .. (args['list' .. listnum] or args['список' .. listnum]))
+
:tag('div')
 +
:css('padding', (index == 1 and args.list1padding) or listpadding or '0em 0.25em')
 +
:wikitext(addNewline(listText))
 +
 
 +
if index == 1 and args.image then
 +
row
 +
:tag('td')
 +
:addClass('navbox-image')
 +
:addClass(imageclass)
 +
:css('width', '0%')
 +
:css('padding', '0px 0px 0px 2px')
 +
:cssText(args.imagestyle)
 +
:attr('rowspan', 2 * #listnums - 1)
 +
:tag('div')
 +
:wikitext(addNewline(image))
 
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
−
      
--
 
--
Строка 320: Строка 338:     
local function needsHorizontalLists()
 
local function needsHorizontalLists()
−
    if border == 'child' or border == 'subgroup' or args.tracking == 'no' then return false end
+
if 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[listclass] or listClasses[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()
−
    local styleratio = require('Module:Color contrast')._styleratio
+
local styleratio = require('Module:Color contrast')._styleratio
   −
    for key, style in pairs(args) do
+
for key, style in pairs(args) do
−
        if tostring(key):match("style$") or tostring(key):match("^стиль") 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()
−
    local cats = {}
+
local cats = {}
−
    if needsChangetoSubgroups() then table.insert(cats, 'Навигационные шаблоны с ошибочным использованием заголовков') end
+
if needsChangetoSubgroups() then table.insert(cats, 'Навигационные шаблоны с ошибочным использованием заголовков') end
−
    if needsHorizontalLists() then table.insert(cats, 'Навигационные шаблоны без горизонтальных списков') end
+
if needsHorizontalLists() then table.insert(cats, 'Навигационные шаблоны без горизонтальных списков') end
−
    if isIllegible() then table.insert(cats, 'Потенциально нечитаемые навигационные шаблоны') end
+
if isIllegible() then table.insert(cats, 'Потенциально нечитаемые навигационные шаблоны') end
−
    return cats
+
return cats
 
end
 
end
    
local function renderTrackingCategories(builder)
 
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 == '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()) do
−
        builder:wikitext('[[Категория:' .. cat .. ']]')
+
builder:wikitext('[[Категория:' .. cat .. ']]')
−
    end
+
end
 
end
 
end
   Строка 372: Строка 389:  
--
 
--
 
local function renderMainTable()
 
local function renderMainTable()
−
    local tbl = mw.html.create('table')
+
local tbl = mw.html.create('table')
−
        :addClass('nowraplinks')
+
:addClass('nowraplinks')
−
        :addClass(bodyclass)
+
:addClass(bodyclass)
   −
    if maintitle and (args.state ~= 'plain' and args.state ~= 'off') then
+
if maintitle 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 border == 'subgroup' or border == 'none' then
−
        tbl
+
tbl
−
            :addClass('navbox-subgroup')
+
:addClass('navbox-subgroup')
−
            :cssText(bodystyle)
+
:cssText(bodystyle)
−
            :cssText(style)
+
: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)
−
    renderAboveRow(tbl)
+
renderAboveRow(tbl)
−
    for i, listnum in ipairs(listnums) do
+
for i, listnum in ipairs(listnums) do
−
        renderListRow(tbl, listnum)
+
renderListRow(tbl, i, listnum)
−
    end
+
end
−
    renderBelowRow(tbl)
+
renderBelowRow(tbl)
   −
    return tbl
+
return tbl
 
end
 
end
    
function p._navbox(navboxArgs)
 
function p._navbox(navboxArgs)
−
    args = navboxArgs
+
args = navboxArgs
   −
    for k, v in pairs(args) do
+
for k, v in pairs(args) do
−
        local listnum = ('' .. k):match('^list(%d+)$') or ('' .. k):match('^список(%d+)$')
+
local listnum = ('' .. k):match('^list(%d+)$') or ('' .. k):match('^список(%d+)$')
−
        if listnum then table.insert(listnums, tonumber(listnum)) end
+
if listnum then table.insert(listnums, tonumber(listnum)) end
−
    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 '')
+
-- заголовки без списков - для обратной совместимости, только в нашем разделе
−
    maintitle = args.title or args['заголовок']
+
for k, v in pairs(args) do
−
    navbar = args.navbar or args['ссылка_на_просмотр']
+
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 = mw.text.trim(args.border or args[1] or '')
 +
if border == 'child' then
 +
border = 'subgroup'
 +
end
 +
 +
maintitle = args.title or args['заголовок']
 +
navbar = args.navbar or args['ссылка_на_просмотр']
 
name = args.name or args['имя']
 
name = args.name or args['имя']
 
above = args.above or args['вверху']
 
above = args.above or args['вверху']
Строка 457: Строка 478:  
 
 
bodyclass = args.bodyclass or args['класс_тела']
 
bodyclass = args.bodyclass or args['класс_тела']
−
    titleclass = args.titleclass or args['класс_заголовка']
+
titleclass = args.titleclass or args['класс_заголовка']
−
    aboveclass =args.aboveclass or args['класс_вверху']
+
aboveclass =args.aboveclass or args['класс_вверху']
 
belowclass = args.belowclass or args['класс_внизу']
 
belowclass = args.belowclass or args['класс_внизу']
 
groupclass = args.groupclass or args['класс_групп']
 
groupclass = args.groupclass or args['класс_групп']
Строка 464: Строка 485:  
imageclass = args.imageclass or args['класс_изображения']
 
imageclass = args.imageclass or args['класс_изображения']
 
 
−
    -- render the main body of the navbox
+
-- render the main body of the navbox
−
    local tbl = renderMainTable()
+
local tbl = renderMainTable()
   −
    -- 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 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 maintitle 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(maintitle))
−
        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.
+
elseif border == 'subgroup' then
−
    else
+
-- We assume that this navbox is being rendered in a list cell of a parent navbox, and is
−
        local tableTag = res:tag('table')
+
-- therefore inside a div with padding:0em 0.25em. We start with a </div> to avoid the
−
        tableTag:addClass('navbox')
+
-- padding being applied, and at the end add a <div> to balance out the parent's </div>
−
                :css('border-spacing', 0)
+
res
−
                :cssText(bodystyle)
+
:wikitext('</div>') -- XXX: hack due to lack of unclosed support in mw.html.
−
                :cssText(style)
+
:node(tbl)
−
                :tag('tr')
+
:wikitext('<div>') -- XXX: hack due to lack of unclosed support in mw.html.
−
                    :tag('td')
+
else
−
                        :css('padding', '2px')
+
local nav = res:tag('div')
−
                        :node(tbl)
+
:attr('role', 'navigation')
−
       
+
:addClass('navbox')
−
        if ( not titlestyle and not groupstyle and not bodystyle and not basestyle and not style
+
:cssText(bodystyle)
−
        and not liststyle and not oddstyle and not evenstyle and not abovestyle and not belowstyle
+
:cssText(style)
−
        and not args["group6"] and not args["group7"] and not args["group8"] and not args["group9"] ) then
+
:css('padding', '3px')
−
        tableTag:addClass( 'navbox-allow-mobile' );
+
:node(tbl)
−
        end
+
if maintitle then
−
    end
+
nav:attr('aria-labelledby', mw.uri.anchorEncode(maintitle))
 +
else
 +
nav:attr('aria-label', 'Навигационный шаблон')
 +
end
 +
 +
end
   −
    renderTrackingCategories(res)
+
renderTrackingCategories(res)
   −
    return tostring(res)
+
return striped(tostring(res))
 
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 = {'Шаблон:Навигационная таблица', 'Шаблон:Навигационная таблица/песочница'}})
+
args = getArgs(frame, {wrappers = {'Шаблон:Навигационная таблица', 'Шаблон:Навигационная таблица/песочница'}})
   −
    -- Read the arguments in the order they'll be output in, to make references number in the right order.
+
-- Read the arguments in the order they'll be output in, to make references number in the right order.
−
    local _
+
local _
−
    _ = maintitle
+
_ = maintitle
−
    _ = above
+
_ = above
−
    for i = 1, 23 do
+
for i = 1, 23 do
−
        _ = args["group" .. tostring(i)] and args["заголовок" .. tostring(i)] and args["группа" .. tostring(i)]
+
_ = args["group" .. tostring(i)] and args["заголовок" .. tostring(i)] and args["группа" .. tostring(i)]
−
        _ = args["list" .. tostring(i)] and args["список" .. tostring(i)]
+
_ = args["list" .. tostring(i)] and args["список" .. tostring(i)]
−
    end
+
end
−
    _ = below
+
_ = below
   −
    return p._navbox(args)
+
return p._navbox(args)
 
end
 
end
    
return p
 
return p
Анонимный участник
Источник — https://in.wiki/Служебная:Сравнение_версий/189108

Реклама:

Навигация