autoreview, Бюрократы, Проверяющие участников, developer, editor, Администраторы интерфейса, reviewer, Администраторы, translator
2802
правки
imported>Polkovnik blazer (← Новая страница: «{{ {{{1<noinclude>|флагификация/флаг</noinclude>}}} | размер = {{{размер|}}} | alias = Пардубицкий кра…») |
Oles (обсуждение | вклад) м (робот добавил: uk:Шаблон:Str left) |
||
Строка 1: | Строка 1: | ||
{{ {{{ | -- | ||
-- Этот модуль реализует {{Навигационная таблица}}. | |||
-- Основной объём кода заимствован из английского Module:Navbox. | |||
-- | |||
local p = {} | |||
local getArgs -- lazily initialized | |||
local args | |||
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 name | |||
local navbar | |||
local above | |||
local image | |||
local below | |||
local titlestyle | |||
local groupstyle | |||
local bodystyle | |||
local basestyle | |||
local liststyle | |||
local oddstyle | |||
local evenstyle | |||
local evenoddARG | |||
local abovestyle | |||
local belowstyle | |||
local imageleft | |||
local imageleftstyle | |||
local style | |||
local groupwidth | |||
local listpadding | |||
local bodyclass | |||
local titleclass | |||
local aboveclass | |||
local belowclass | |||
local groupclass | |||
local listclass | |||
local imageclass | |||
local function striped(wikitext) | |||
-- 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 | |||
local function addNewline(s) | |||
if s:match('^[*:;#]') or s:match('^{|') then | |||
return '\n' .. s ..'\n' | |||
else | |||
return s | |||
end | |||
end | |||
local function renderNavBar(titleCell) | |||
if navbar ~= 'off' and navbar ~= 'plain' and not (not name and mw.getCurrentFrame():getParent():getTitle():gsub('/песочница$', '') == 'Шаблон:Навигационная таблица') then | |||
-- 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 '') | |||
if styleratio{gearStyleBlack} < styleratio{gearStyleWhite} then | |||
gearColor = ' white' | |||
end | |||
--- Gear creation | |||
titleCell | |||
:tag('span') | |||
:css('float', 'left') | |||
:css('text-align', 'left') | |||
:css('width', '5em') | |||
:css('margin-right', '0.5em') | |||
:wikitext('[[Файл:Wikipedia interwiki section gear icon' .. gearColor .. '.svg|14px|Просмотр этого шаблона|link=Шаблон:' .. name .. '|alt=⛭]]') | |||
end | |||
end | |||
-- | |||
-- Title row | |||
-- | |||
local function renderTitleRow(tbl) | |||
if not maintitle then return end | |||
local titleRow = tbl:tag('tr') | |||
if args.titlegroup then | |||
titleRow | |||
:tag('th') | |||
:attr('scope', 'row') | |||
:addClass('navbox-group') | |||
:addClass(args.titlegroupclass) | |||
:cssText(basestyle) | |||
:cssText(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 imageleft then titleColspan = titleColspan + 1 end | |||
if image then titleColspan = titleColspan + 1 end | |||
if args.titlegroup then titleColspan = titleColspan - 1 end | |||
titleCell | |||
:cssText(basestyle) | |||
:cssText(titlestyle) | |||
:addClass('navbox-title') | |||
:attr('colspan', titleColspan) | |||
renderNavBar(titleCell) | |||
titleCell | |||
:tag('div') | |||
:attr('id', mw.uri.anchorEncode(maintitle)) | |||
:addClass(titleclass) | |||
:css('font-size', '114%') | |||
:css('margin', '0 5em') | |||
:wikitext(addNewline(maintitle)) | |||
end | |||
-- | |||
-- Above/Below rows | |||
-- | |||
local function getAboveBelowColspan() | |||
local ret = 2 | |||
if imageleft then ret = ret + 1 end | |||
if image then ret = ret + 1 end | |||
return ret | |||
end | |||
local function renderAboveRow(tbl) | |||
if not above then return end | |||
tbl:tag('tr') | |||
:tag('td') | |||
:addClass('navbox-abovebelow') | |||
:addClass(aboveclass) | |||
:cssText(basestyle) | |||
:cssText(abovestyle) | |||
:attr('colspan', getAboveBelowColspan()) | |||
:tag('div') | |||
:wikitext(addNewline(above)) | |||
end | |||
local function renderBelowRow(tbl) | |||
if not below then return end | |||
tbl:tag('tr') | |||
:tag('td') | |||
:addClass('navbox-abovebelow') | |||
:addClass(belowclass) | |||
:cssText(basestyle) | |||
:cssText(belowstyle) | |||
:attr('colspan', getAboveBelowColspan()) | |||
:tag('div') | |||
:wikitext(addNewline(below)) | |||
end | |||
-- | |||
-- List rows | |||
-- | |||
local function haveSubgroups() | |||
for i = 1, 23 do | |||
if (args['group' .. i] or args['заголовок' .. i] or args['группа' .. i]) and (args['list' .. i] or args['список' .. i]) then | |||
return true | |||
end | |||
end | |||
return false | |||
end | |||
local function renderListRow(tbl, index, listnum) | |||
local row = tbl:tag('tr') | |||
if index == 1 and imageleft then | |||
row | |||
:tag('td') | |||
:addClass('navbox-image') | |||
:addClass(imageclass) | |||
:css('width', '1px') | |||
:css('padding', '0px 7px 0px 0px') | |||
:cssText(imageleftstyle) | |||
:attr('rowspan', #listnums) | |||
:tag('div') | |||
:wikitext(addNewline(imageleft)) | |||
end | |||
if (args['group' .. listnum] or args['заголовок' .. listnum] or args['группа' .. listnum]) then | |||
local groupCell = row:tag('th') | |||
groupCell | |||
:attr('scope', 'row') | |||
:addClass('navbox-group') | |||
:addClass(groupclass) | |||
:cssText(basestyle) | |||
:css('width', args.groupwidth or '1px') -- If groupwidth not specified, minimize width | |||
-- заголовки без списков - для обратной совместимости, только в нашем разделе | |||
if not (args['list' .. listnum] or args['список' .. listnum]) then | |||
groupCell | |||
:css('text-align', 'center') | |||
if haveSubgroups() then | |||
groupCell:attr('colspan', 2) | |||
end | |||
end | |||
groupCell | |||
:cssText(groupstyle) | |||
:cssText(args['group' .. listnum .. 'style'] or args['стиль_группы' .. listnum] or args['стиль_заголовка' .. listnum]) | |||
:wikitext(args['group' .. listnum] or args['заголовок' .. listnum] or args['группа' .. listnum]) | |||
end | |||
if args['list' .. listnum] or args['список' .. listnum] then -- проверка на наличие списков, иначе временный наш безсписочный функционал не поддерживается | |||
local listCell = row:tag('td') | |||
if (args['group' .. listnum] or args['заголовок' .. listnum] or args['группа' .. listnum]) then | |||
listCell | |||
:css('text-align', 'left') | |||
:css('border-left-width', '2px') | |||
:css('border-left-style', 'solid') | |||
else | |||
if haveSubgroups() then | |||
listCell | |||
:attr('colspan', 2) | |||
end | |||
end | |||
if not groupwidth then | |||
listCell:css('width', '100%') | |||
end | |||
local rowstyle -- usually nil so cssText(rowstyle) usually adds nothing | |||
if index % 2 == 1 then | |||
rowstyle = oddstyle | |||
else | |||
rowstyle = evenstyle | |||
end | |||
local listText = args['list' .. listnum] or args['список' .. listnum] | |||
local oddEven = ODD_EVEN_MARKER | |||
if listText:sub(1, 12) == '</div><table' then | |||
-- Assume list text is for a subgroup navbox so no automatic striping for this row. | |||
oddEven = listText:find('<th[^>]*"navbox%-title"') and RESTART_MARKER or 'odd' | |||
end | |||
listCell | |||
:css('padding', '0px') | |||
:cssText(liststyle) | |||
:cssText(rowstyle) | |||
:cssText(args['list' .. listnum .. 'style'] or args['стиль_списка' .. listnum]) | |||
:addClass('navbox-list') | |||
:addClass('navbox-' .. oddEven) | |||
:addClass(listclass) | |||
:tag('div') | |||
:css('padding', (index == 1 and args.list1padding) or listpadding or '0em 0.25em') | |||
:wikitext(addNewline(listText)) | |||
end | |||
if index == 1 and image then | |||
row | |||
:tag('td') | |||
:addClass('navbox-image') | |||
:addClass(imageclass) | |||
:css('width', '1px') | |||
:css('padding', '0px 0px 0px 7px') | |||
:cssText(imagestyle) | |||
:attr('rowspan', #listnums) | |||
:tag('div') | |||
:wikitext(addNewline(image)) | |||
end | |||
end | |||
-- | |||
-- Tracking categories | |||
-- | |||
local function needsChangetoSubgroups() | |||
for i = 1, 23 do | |||
if (args['group' .. i] or args['заголовок' .. i] or args['группа' .. i]) and not (args['list' .. i] or args['список' .. i]) then | |||
return true | |||
end | |||
end | |||
return false | |||
end | |||
local function needsHorizontalLists() | |||
if border == 'subgroup' or args.tracking == 'no' then | |||
return false | |||
end | |||
local listClasses = { | |||
['plainlist'] = true, ['hlist'] = true, ['hlist hnum'] = true, | |||
['hlist hwrap'] = true, ['hlist vcard'] = true, ['vcard hlist'] = true, | |||
['hlist vevent'] = true, ['hlist hlist-items-nowrap'] = true, ['hlist-items-nowrap'] = true, | |||
} | |||
return not (listClasses[listclass] or listClasses[bodyclass]) | |||
end | |||
-- local function hasBackgroundColors() | |||
-- return mw.ustring.match(titlestyle or '','background') or mw.ustring.match(groupstyle or '','background') or mw.ustring.match(basestyle or '','background') | |||
-- end | |||
local function isIllegible() | |||
local styleratio = require('Module:Color contrast')._styleratio | |||
for key, style in pairs(args) do | |||
if tostring(key):match("style$") or tostring(key):match("^стиль") then | |||
if styleratio{mw.text.unstripNoWiki(style)} < 4.5 then | |||
return true | |||
end | |||
end | |||
end | |||
return false | |||
end | |||
local function getTrackingCategories() | |||
local cats = {} | |||
if needsChangetoSubgroups() then table.insert(cats, 'Навигационные шаблоны с ошибочным использованием заголовков') end | |||
if needsHorizontalLists() then table.insert(cats, 'Навигационные шаблоны без горизонтальных списков') end | |||
if isIllegible() then table.insert(cats, 'Потенциально нечитаемые навигационные шаблоны') 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 == 'песочница' or subpage == 'тесты' then return end | |||
for i, cat in ipairs(getTrackingCategories()) do | |||
builder:wikitext('[[Категория:' .. cat .. ']]') | |||
end | |||
end | |||
-- | |||
-- Main navbox tables | |||
-- | |||
local function renderMainTable() | |||
local tbl = mw.html.create('table') | |||
:addClass('nowraplinks') | |||
:addClass(bodyclass) | |||
if maintitle and (args.state ~= 'plain' and args.state ~= 'off') then | |||
tbl | |||
:addClass('collapsible') | |||
:addClass(args.state or 'autocollapse') | |||
end | |||
tbl:css('border-spacing', 0) | |||
if border == 'subgroup' or border == 'none' then | |||
tbl | |||
:addClass('navbox-subgroup') | |||
:cssText(bodystyle) | |||
:cssText(style) | |||
else -- regular navbox - 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, i, 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+)$') or ('' .. k):match('^список(%d+)$') | |||
if listnum then table.insert(listnums, tonumber(listnum)) 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 = 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['имя'] | |||
above = args.above or args['вверху'] | |||
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['ширина_групп'] | |||
listpadding = args.listpadding or args['отступ_списков'] | |||
bodyclass = args.bodyclass or args['класс_тела'] | |||
titleclass = args.titleclass or args['класс_заголовка'] | |||
aboveclass =args.aboveclass or args['класс_вверху'] | |||
belowclass = args.belowclass or args['класс_внизу'] | |||
groupclass = args.groupclass or args['класс_групп'] | |||
listclass = args.listclass or args['класс_списков'] | |||
imageclass = args.imageclass or args['класс_изображения'] | |||
-- 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 maintitle then | |||
nav:attr('aria-labelledby', mw.uri.anchorEncode(maintitle)) | |||
else | |||
nav:attr('aria-label', 'Навигационный шаблон') | |||
end | |||
elseif 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>') -- 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(bodystyle) | |||
:cssText(style) | |||
:css('padding', '3px') | |||
:node(tbl) | |||
if maintitle then | |||
nav:attr('aria-labelledby', mw.uri.anchorEncode(maintitle)) | |||
else | |||
nav:attr('aria-label', 'Навигационный шаблон') | |||
end | |||
end | |||
renderTrackingCategories(res) | |||
return striped(tostring(res)) | |||
end | |||
function p.navbox(frame) | |||
if not getArgs then | |||
getArgs = require('Module:Arguments').getArgs | |||
end | |||
args = getArgs(frame, {wrappers = {'Шаблон:Навигационная таблица', 'Шаблон:Навигационная таблица/песочница'}}) | |||
-- Read the arguments in the order they'll be output in, to make references number in the right order. | |||
local _ | |||
_ = 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) | |||
end | |||
return p |
правки