navbox
Этот модуль используется группой основных навигационных шаблонов — }.
 | Внимание! Это один из самых используемых модулей. Каждое его изменение создаёт дополнительную нагрузку на серверы проекта. Пожалуйста, убедитесь в адекватности и правильности ваших изменений, проверьте их на тестовых страницах. |
 | Этот модуль относится к хәүефле. У него очень много включений или он используется с подстановкой. Из-за опасности вандализма или ошибочного редактирования он был защищён. |
 | Прежде, чем вносить какие-либо изменения в данный модуль, просьба оттестировать их в /песочнице и проверить результат на странице с /контрольными примерами. Изменения могут быть внесены после этого в данный модуль всего одной правкой. |
В частности шаблоном {{Навигационная таблица}}. Пожалуйста, просмотрите страницу шаблона, чтобы увидеть инструкцию по его использованию.
Отслеживающие/служебные категории
- Категория:Навигационные шаблоны без горизонтальных списков
- Категория:Потенциально нечитаемые навигационные шаблоны
- Категория:Навигационные шаблоны с ошибочным использованием заголовков
-- -- Реализует {{навигационная таблица}}, {{подгруппы навигационной таблицы}} и {{навигационная таблица с блоками}}. -- Основной объём кода заимствован из английского Module:Navbox. -- local p = {} local getArgs -- lazily initialized local yesno -- lazily initialized local styleratio local ODD_EVEN_MARKER = '\127_ODDEVEN_\127' local RESTART_MARKER = '\127_ODDEVEN0_\127' local REGEX_MARKER = '\127_ODDEVEN(%d?)_\127' -- общие параметры для всех шаблонов local commonAliases = { name = {'name', 'имя'}, navigation = {'navigation', 'навигация'}, navbar = {'navbar', 'ссылка_на_просмотр'}, state = {'state'}, orphan = {'orphan'}, tracking = {'tracking'}, border = {'border', 1}, title = {'title', 'заголовок'}, titlegroup = {'titlegroup'}, above = {'above', 'вверху'}, image = {'image', 'изображение'}, imageleft = {'imageleft', 'изображение2', 'изображение_слева'}, below = {'below', 'внизу'}, bodyclass = {'bodyclass', 'класс_тела'}, titleclass = {'titleclass', 'класс_заголовка'}, titlegroupclass = {'titlegroupclass'}, aboveclass = {'aboveclass', 'класс_вверху'}, 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 groupsChildAliases = { groupname = {'abbr%s', 'имя_блока%s', 'аббр%s'}, state = {'state%s'}, title = {'group%s', 'блок%s', 'заголовок%s', 'группа%s', 'sect%s', 'section%s', 'секция%s'}, list1 = {'list%s', 'список%s', 'content%s'}, image = {'image%s', 'изображение%s'}, imageleft = {'imageleft%s', 'изображение_слева%s'}, 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 checkAliases(args, aliases, index) 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 local function checkElAliases(args, name, index) return checkAliases(args, standardElementAliases[name], index) end local function concatStyles(t) local res for k, v in pairs(t) do if v then res = res and res .. ';' .. v or v end end return res end 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 local function addNewline(s) if s:match('^[*:;#]') or s:match('^{|') then return '\n' .. s ..'\n' else return s end end local function renderNavBar(titleCell, args) local currentFrame = mw.getCurrentFrame() if args.navbar ~= 'off' and args.navbar ~= 'plain' and (args.name or not currentFrame:getParent():getTitle():gsub('/песочница$', '') == 'Ҡалып:Навигационная таблица') then -- Check color contrast of the gear icon if not styleratio then styleratio = require('Module:Color contrast')._styleratio end local contrastStyle = args.titlestyle or args.basestyle local gearStyleBlack = (contrastStyle and mw.text.unstripNoWiki(contrastStyle) .. '; color:#666;' or '') local gearStyleWhite = (contrastStyle and mw.text.unstripNoWiki(contrastStyle) .. '; color:#fff;' or '') local gear = currentFrame:expandTemplate{ title = 'Tnavbar-view', args = { args.name, fontcolor = (styleratio{gearStyleBlack} < styleratio{gearStyleWhite}) and 'white', } } --- Gear creation titleCell :tag('span') :addClass('navbox-gear') :css('float', 'left') :css('text-align', 'left') :css('width', '5em') :css('margin-right', '0.5em') :wikitext(gear) end end -- -- Title row -- local function renderTitleRow(tbl, args) if not args.title 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(args.basestyle) :cssText(args.groupstyle) :cssText(args.titlegroupstyle) :wikitext(args.titlegroup) end local titleCell = titleRow:tag('th'):attr('scope', 'colgroup') 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, args) titleCell :tag('div') :attr('id', mw.uri.anchorEncode(args.title)) :addClass(args.titleclass) :css('font-size', '114%') :css('margin', '0 5em') :wikitext(addNewline(args.title)) end -- -- Above/Below rows -- local function getAboveBelowColspan(args) 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, args) if not args.above then return end tbl:tag('tr') :tag('td') :addClass('navbox-abovebelow') :addClass(args.aboveclass) :cssText(args.basestyle) :cssText(args.abovestyle) :attr('colspan', getAboveBelowColspan(args)) :tag('div') :wikitext(addNewline(args.above)) end local function renderBelowRow(tbl, args) if not args.below then return end tbl:tag('tr') :tag('td') :addClass('navbox-abovebelow') :addClass(args.belowclass) :cssText(args.basestyle) :cssText(args.belowstyle) :attr('colspan', getAboveBelowColspan(args)) :tag('div') :wikitext(addNewline(args.below)) end -- -- List rows -- local function haveSubgroups(args) for i = 1, 23 do if checkElAliases(args, 'group', i) and checkElAliases(args, 'list', i) then return true end end return false end local function renderListRow(tbl, args, index, rowspan, rowArgs) local row = tbl:tag('tr') 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 rowArgs.group then local groupCell = row:tag('th') groupCell :attr('scope', 'row') :addClass('navbox-group') :addClass(args.groupclass) :cssText(args.basestyle) :css('width', args.groupwidth or '1px') -- If groupwidth not specified, minimize width groupCell :cssText(args.groupstyle) :cssText(rowArgs.groupstyle) :wikitext(rowArgs.group) 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 if not args.groupwidth then listCell:css('width', '100%') end local listText = rowArgs.list local oddEven = ODD_EVEN_MARKER if listText:sub(1, 12) == ' to balance out the parent's
res :wikitext('') -- 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) :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, args) return striped(tostring(res), args) end function p.navbox(frame) if not getArgs then getArgs = require('Module:Arguments').getArgs end 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) return p._navbox(args) end 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 return p