|
|
| Line 1: |
Line 1: |
| | -- <nowiki> |
| | -- |
| | -- Implements {{navbox}} |
| | -- |
| | |
| local p = {} | | local p = {} |
| local navbar = require('Module:Navbar')._navbar | | local tnavbar = require( 'Module:Tnavbar' ) |
| local cfg = mw.loadData('Module:Navbox/configuration') | | local yesno = require( 'Module:Yesno' ) |
| local getArgs -- lazily initialized | | local onmain = require('Module:Mainonly').on_main() |
| local args
| | local page_title = mw.title.getCurrentTitle().fullText |
| local format = string.format
| | -- |
| | | -- Helper for inserting a new row into the navbox |
| local function striped(wikitext, border)
| | -- |
| -- Return wikitext with markers replaced for odd/even striping.
| | -- @param tbl {mw.html table} |
| -- Child (subgroup) navboxes are flagged with a category that is removed
| | -- @return tbl {mw.html table} |
| -- by parent navboxes. The result is that the category shows all pages
| | -- |
| -- where a child navbox is not contained in a parent navbox.
| | local function insertRow( tbl ) |
| local orphanCat = cfg.category.orphan
| | return tbl:tag( 'tr' ) |
| if border == cfg.keyword.border_subgroup and args[cfg.arg.orphan] ~= cfg.keyword.orphan_yes then
| |
| -- No change; striping occurs in outermost navbox.
| |
| return wikitext .. orphanCat
| |
| end
| |
| local first, second = cfg.class.navbox_odd_part, cfg.class.navbox_even_part
| |
| if args[cfg.arg.evenodd] then
| |
| if args[cfg.arg.evenodd] == cfg.keyword.evenodd_swap then
| |
| first, second = second, first
| |
| else
| |
| first = args[cfg.arg.evenodd]
| |
| second = first
| |
| end
| |
| end
| |
| local changer
| |
| if first == second then
| |
| changer = first
| |
| else
| |
| local index = 0
| |
| changer = function (code)
| |
| if code == '0' then
| |
| -- Current occurrence is for a group before a nested table.
| |
| -- Set it to first as a valid although pointless class.
| |
| -- The next occurrence will be the first row after a title
| |
| -- in a subgroup and will also be first.
| |
| index = 0
| |
| return first
| |
| end
| |
| index = index + 1
| |
| return index % 2 == 1 and first or second
| |
| end
| |
| end
| |
| local regex = orphanCat:gsub('([%[%]])', '%%%1')
| |
| return (wikitext:gsub(regex, ''):gsub(cfg.marker.regex, changer)) -- () omits gsub count
| |
| end
| |
| | |
| local function processItem(item, nowrapitems)
| |
| if item:sub(1, 2) == '{|' then
| |
| -- Applying nowrap to lines in a table does not make sense.
| |
| -- Add newlines to compensate for trim of x in |parm=x in a template.
| |
| return '\n' .. item ..'\n'
| |
| end
| |
| if nowrapitems == cfg.keyword.nowrapitems_yes then
| |
| local lines = {}
| |
| for line in (item .. '\n'):gmatch('([^\n]*)\n') do
| |
| local prefix, content = line:match('^([*:;#]+)%s*(.*)')
| |
| if prefix and not content:match(cfg.pattern.nowrap) then
| |
| line = format(cfg.nowrap_item, prefix, content)
| |
| end
| |
| table.insert(lines, line)
| |
| end
| |
| item = table.concat(lines, '\n')
| |
| end | |
| if item:match('^[*:;#]') then
| |
| return '\n' .. item ..'\n'
| |
| end
| |
| return item
| |
| end | | end |
|
| |
|
| -- we will want this later when we want to add tstyles for hlist/plainlist | | -- |
| local function has_navbar()
| | -- Creates the navbox table |
| return args[cfg.arg.navbar] ~= cfg.keyword.navbar_off
| | -- |
| and args[cfg.arg.navbar] ~= cfg.keyword.navbar_plain
| | -- @param args {table} |
| and (
| | -- @return tbl {mw.html table} |
| args[cfg.arg.name]
| | -- |
| or mw.getCurrentFrame():getParent():getTitle():gsub(cfg.pattern.sandbox, '')
| | local function createTbl( args ) |
| ~= cfg.pattern.navbox
| |
| )
| |
| end
| |
|
| |
|
| local function renderNavBar(titleCell) | | local tbl = mw.html.create( 'table' ) |
| if has_navbar() then
| |
| titleCell:wikitext(navbar{
| |
| [cfg.navbar.name] = args[cfg.arg.name],
| |
| [cfg.navbar.mini] = 1,
| |
| [cfg.navbar.fontstyle] = (args[cfg.arg.basestyle] or '') .. ';' ..
| |
| (args[cfg.arg.titlestyle] or '') ..
| |
| ';background:none transparent;border:none;box-shadow:none;padding:0;'
| |
| })
| |
| end
| |
|
| |
|
| end
| | tbl |
| | :addClass( yesno( args.subgroup ) and 'navbox-subgroup' or 'navbox' ) |
| | :addClass( 'nowraplinks' ) |
|
| |
|
| local function renderTitleRow(tbl)
| | if not yesno( args.subgroup ) and |
| if not args[cfg.arg.title] then return end
| | ( args.state == 'collapsed' or |
| | args.state == 'uncollapsed' or |
| | args.state == 'autocollapse' or |
| | -- defaults to autocollapse |
| | args.state == nil ) |
| | then |
| | tbl:addClass( 'mw-collapsible' ) |
|
| |
|
| local titleRow = tbl:tag('tr')
| | if args.state == 'collapsed' then |
| | tbl:addClass( 'mw-collapsed' ) |
| | elseif args.state == 'uncollapsed' then |
| | tbl:addClass('navbox-uncollapsed') |
| | end |
| | end |
|
| |
|
| if args[cfg.arg.titlegroup] then | | if yesno( args.collapsible ) then |
| titleRow | | tbl:addClass( 'navbox-collapsible' ) |
| :tag('th')
| |
| :attr('scope', 'row')
| |
| :addClass(cfg.class.navbox_group)
| |
| :addClass(args[cfg.arg.titlegroupclass])
| |
| :cssText(args[cfg.arg.basestyle])
| |
| :cssText(args[cfg.arg.groupstyle])
| |
| :cssText(args[cfg.arg.titlegroupstyle])
| |
| :wikitext(args[cfg.arg.titlegroup])
| |
| end | | end |
|
| |
|
| local titleCell = titleRow:tag('th'):attr('scope', 'col')
| | if args.style then |
| | | tbl:cssText( args.style ) |
| if args[cfg.arg.titlegroup] then | |
| titleCell | |
| :css('border-left', '2px solid #fdfdfd')
| |
| :css('width', '100%')
| |
| end | | end |
|
| |
|
| local titleColspan = 2 | | -- manually set collapse/expand messages |
| if args[cfg.arg.imageleft] then titleColspan = titleColspan + 1 end | | -- bug causing the default database messages to be used |
| if args[cfg.arg.image] then titleColspan = titleColspan + 1 end
| | tbl |
| if args[cfg.arg.titlegroup] then titleColspan = titleColspan - 1 end
| | :attr( { |
| | ['cellspacing'] = '0', |
| | ['data-expandtext'] = 'show', |
| | ['data-collapsetext'] = 'hide', |
| | ['data-navbox-name'] = args.name |
| | } ) |
|
| |
|
| titleCell | | return tbl |
| :cssText(args[cfg.arg.basestyle])
| |
| :cssText(args[cfg.arg.titlestyle])
| |
| :addClass(cfg.class.navbox_title)
| |
| :attr('colspan', titleColspan)
| |
| | |
| renderNavBar(titleCell)
| |
| | |
| titleCell
| |
| :tag('div')
| |
| -- id for aria-labelledby attribute
| |
| :attr('id', mw.uri.anchorEncode(args[cfg.arg.title]))
| |
| :addClass(args[cfg.arg.titleclass])
| |
| :css('font-size', '114%')
| |
| :css('margin', '0 4em')
| |
| :wikitext(processItem(args[cfg.arg.title]))
| |
| end | | end |
|
| |
|
| local function getAboveBelowColspan() | | -- |
| local ret = 2 | | -- Wrapper for [[Module:Tnavbar]] |
| if args[cfg.arg.imageleft] then ret = ret + 1 end
| | -- |
| if args[cfg.arg.image] then ret = ret + 1 end
| | -- @param args {table} |
| return ret
| | -- @return {string} |
| | -- |
| | local function navbar( args ) |
| | return tnavbar._collapsible( { [1] = '<span style="display:none;">RS3 </span>'..args.title, [2] = args.name } ) |
| end | | end |
|
| |
|
| local function renderAboveRow(tbl) | | -- |
| if not args[cfg.arg.above] then return end | | -- Creates the header (what you see when the navbox is collapsed) |
| | -- |
| | -- @param tbl {mw.html table} |
| | -- @param args {table} |
| | -- @return {mw.html table} |
| | -- |
| | local function header( tbl, args ) |
| | local div = insertRow( tbl ) |
| | :tag( 'th' ) |
| | :attr( 'colspan', '2' ) |
| | :addClass( 'navbox-title' ) |
| | :attr( 'id' , 'navbox-title' ) |
| | :tag( 'div' ) |
|
| |
|
| tbl:tag('tr') | | -- @todo move this to site css so we can simplify this (hook off a class) |
| :tag('td')
| | -- to something like div:wikitext( args.name and navbar( args ) or args.title ) |
| :addClass(cfg.class.navbox_abovebelow)
| | -- which can be appended to the above and returned straight away |
| :addClass(args[cfg.arg.aboveclass])
| | if args.name then |
| :cssText(args[cfg.arg.basestyle])
| | div |
| :cssText(args[cfg.arg.abovestyle]) | | :css( 'padding-right', args.state == 'plain' and '6em' or '0' ) |
| :attr('colspan', getAboveBelowColspan()) | | :wikitext( navbar( args ) ) |
| :tag('div') | | else |
| -- id for aria-labelledby attribute, if no title
| | div |
| :attr('id', args[cfg.arg.title] and nil or mw.uri.anchorEncode(args[cfg.arg.above]))
| | :css( 'padding-left', args.state == 'plain' and '0' or '6em' ) |
| :wikitext(processItem(args[cfg.arg.above], args[cfg.arg.nowrapitems]))
| | :wikitext( '<span style="display:none;">RS3 </span>'..args.title ) |
| | end |
| | |
| | return div:allDone() |
| end | | end |
|
| |
|
| local function renderBelowRow(tbl) | | -- |
| if not args[cfg.arg.below] then return end | | -- Inserts a row into the navbox |
| | -- |
| | -- @param tbl {mw.html table} |
| | -- @param gtitle {string} |
| | -- @param group {string} |
| | -- @param gtype {string} |
| | -- @param gcats {table} |
| | -- @param style {string} |
| | -- @return {mw.html table} |
| | -- |
| | local function row( tbl, gtitle, group, gtype, gcats, style, _name, subgroup ) |
| | local tr = insertRow( tbl ) |
| | local td |
| | |
| | if gtitle then |
| | td = tr |
| | :addClass( 'navbox-group' ) |
| | :tag( 'td' ) |
| | :addClass( 'navbox-group-title' ) |
| | :wikitext( gtitle ) |
| | :done() |
| | :tag( 'td' ) |
| | else |
| | td = tr |
| | :addClass( 'navbox-group' ) |
| | :addClass( 'navbox-group-split' ) |
| | :tag( 'td' ) |
| | :addClass( 'navbox-group-title-hidden' ) |
| | :attr( 'colspan', '0' ) |
| | :css( 'display', 'none' ) |
| | :done() |
| | :tag( 'td' ) |
| | :attr( 'colspan', '2' ) |
| | end |
| | |
| | --[[ |
| | List styling |
| | This is unlikely to be implemented in the near future due to it requiring extra css to work |
| | and mobile currently not supporting that css. |
| | As an example, it lets you do the following instead if using {{*}} all the time |
| | | group3 = |
| | * {{plink|foo}} |
| | * {{plink|bar}} |
| | * {{plink|baz}} |
| | ]] |
| | if mw.ustring.match( group, '^%s*%*' ) then |
| | td:newline() |
|
| |
|
| tbl:tag('tr')
| | -- trim whitespace on bullets |
| :tag('td') | | local spl = mw.text.split( group, '\n' ) |
| :addClass(cfg.class.navbox_abovebelow)
| |
| :addClass(args[cfg.arg.belowclass])
| |
| :cssText(args[cfg.arg.basestyle])
| |
| :cssText(args[cfg.arg.belowstyle])
| |
| :attr('colspan', getAboveBelowColspan())
| |
| :tag('div')
| |
| :wikitext(processItem(args[cfg.arg.below], args[cfg.arg.nowrapitems]))
| |
| end
| |
|
| |
|
| local function renderListRow(tbl, index, listnum, listnums_size)
| | for i = 1, #spl do |
| local row = tbl:tag('tr')
| | spl[i] = mw.text.trim( spl[i] ) |
| | end |
|
| |
|
| if index == 1 and args[cfg.arg.imageleft] then
| | group = '\n' .. table.concat( spl, '\n' ) |
| row
| |
| :tag('td')
| |
| :addClass(cfg.class.noviewer)
| |
| :addClass(cfg.class.navbox_image)
| |
| :addClass(args[cfg.arg.imageclass])
| |
| :css('width', '1px') -- Minimize width
| |
| :css('padding', '0 2px 0 0')
| |
| :cssText(args[cfg.arg.imageleftstyle])
| |
| :attr('rowspan', listnums_size)
| |
| :tag('div')
| |
| :wikitext(processItem(args[cfg.arg.imageleft]))
| |
| end | | end |
|
| |
|
| local group_and_num = format(cfg.arg.group_and_num, listnum) | | --local group2 = group |
| local groupstyle_and_num = format(cfg.arg.groupstyle_and_num, listnum) | | --local group3 = group2 |
| if args[group_and_num] then | | -- analytics |
| local groupCell = row:tag('th')
| |
|
| |
|
| -- id for aria-labelledby attribute, if lone group with no title or above
| | --if _name then |
| if listnum == 1 and not (args[cfg.arg.title] or args[cfg.arg.above] or args[cfg.arg.group2]) then
| | -- local name = mw.ustring.gsub(_name,' ','_') |
| groupCell
| | -- for v in mw.ustring.gmatch(group,'%[%[[^%]]+%]%]') do |
| :attr('id', mw.uri.anchorEncode(args[cfg.arg.group1]))
| | -- if mw.ustring.match(v,'%[%[File:.+|link=') then |
| end
| | -- local link = mw.ustring.match(v,'|link=([^%]|]+)') |
| | -- if link then |
| | -- local linkrep = mw.ustring.gsub(link,'([%%%]%[%-^$*()+?])','%%%1') |
| | -- local _link = mw.ustring.gsub(link,' ','_') |
| | -- local newfile = mw.ustring.gsub(v,'|link='..linkrep,string.format('|link=https://runescape.wiki/w/%s?f=%s',_link,name)) |
| | -- local w = mw.ustring.gsub(v,'([%%%]%[%-^$*()+?])','%%%1') |
| | -- group2 = mw.ustring.gsub(group2,w,newfile) |
| | -- end |
| | -- elseif mw.ustring.match(v,'%[%[Category:') then |
| | -- nothing |
| | -- else |
| | -- local link = mw.ustring.match(v,'%[%[([^%]|]+)') |
| | -- local txt = mw.ustring.match(v,'%|([^%]|]+)') or link |
|
| |
|
| groupCell
| | -- local newlink = '' |
| :attr('scope', 'row')
| |
| :addClass(cfg.class.navbox_group)
| |
| :addClass(args[cfg.arg.groupclass])
| |
| :cssText(args[cfg.arg.basestyle])
| |
| -- If groupwidth not specified, minimize width
| |
| :css('width', args[cfg.arg.groupwidth] or '1%')
| |
|
| |
|
| groupCell | | -- black links if current page |
| :cssText(args[cfg.arg.groupstyle]) | | -- if link == page_title then |
| :cssText(args[groupstyle_and_num]) | | -- newlink = string.format('<b>%s</b>',txt) |
| :wikitext(args[group_and_num])
| | -- else |
| end | | -- local _link = mw.ustring.gsub(link or '',' ','_') |
| | -- newlink = string.format('[https://runescape.wiki.com/w/%s?n=%s %s]',_link,name,txt) |
| | -- end |
| | -- local w = mw.ustring.gsub(v,'([%%%]%[%-^$*()+?])','%%%1') |
| | -- group2 = mw.ustring.gsub(group2,w,newlink) |
| | -- end |
| | -- end |
|
| |
|
| local listCell = row:tag('td') | | --[==[ |
| | fix [[these kind]]s of [[link]]s post analytics parse |
| | ]==] |
| | -- group3 = group2 |
|
| |
|
| if args[group_and_num] then | | -- for v in mw.ustring.gmatch(group2,'%[https://runescape.wiki.com/w[^%]]-%]%a') do |
| listCell
| | -- local rep = mw.ustring.gsub(v,'%]','') |
| :addClass(cfg.class.navbox_list_with_group)
| | -- rep = rep..']' |
| else | | -- local w = mw.ustring.gsub(v,'([%%%]%[%-^$*()+?])','%%%1') |
| listCell:attr('colspan', 2)
| |
| end
| |
|
| |
|
| if not args[cfg.arg.groupwidth] then | | -- group3 = mw.ustring.gsub(group2,w,rep) |
| listCell:css('width', '100%')
| | -- end |
| end | | --end |
|
| |
|
| local rowstyle -- usually nil so cssText(rowstyle) usually adds nothing | | td |
| if index % 2 == 1 then
| | :addClass( 'navbox-list' ) |
| rowstyle = args[cfg.arg.oddstyle] | | :wikitext( group ) --group3 |
| else
| |
| rowstyle = args[cfg.arg.evenstyle]
| |
| end
| |
|
| |
|
| local list_and_num = format(cfg.arg.list_and_num, listnum) | | if gtype and mw.ustring.lower( gtype ) == 'subgroup' then |
| local listText = args[list_and_num]
| | td |
| local oddEven = cfg.marker.oddeven
| | :addClass( 'navbox-parent' ) |
| if listText:sub(1, 12) == '</div><table' then
| | :css( { |
| -- Assume list text is for a subgroup navbox so no automatic striping for this row.
| | padding = '0', |
| oddEven = listText:find(cfg.pattern.navbox_title) and cfg.marker.restart or cfg.class.navbox_odd_part
| | ['border-bottom'] = '0' |
| | } ) |
| end | | end |
|
| |
|
| local liststyle_and_num = format(cfg.arg.liststyle_and_num, listnum)
| | if style then |
| local listclass_and_num = format(cfg.arg.listclass_and_num, listnum)
| | td:cssText( style ) |
| listCell
| |
| :css('padding', '0')
| |
| :cssText(args[cfg.arg.liststyle])
| |
| :cssText(rowstyle)
| |
| :cssText(args[liststyle_and_num])
| |
| :addClass(cfg.class.navbox_list)
| |
| :addClass(cfg.class.navbox_part .. oddEven)
| |
| :addClass(args[cfg.arg.listclass])
| |
| :addClass(args[listclass_and_num])
| |
| :tag('div')
| |
| :css('padding',
| |
| (index == 1 and args[cfg.arg.list1padding]) or args[cfg.arg.listpadding] or '0 0.25em'
| |
| )
| |
| :wikitext(processItem(listText, args[cfg.arg.nowrapitems]))
| |
| | |
| if index == 1 and args[cfg.arg.image] then | |
| row | |
| :tag('td')
| |
| :addClass(cfg.class.noviewer)
| |
| :addClass(cfg.class.navbox_image)
| |
| :addClass(args[cfg.arg.imageclass])
| |
| :css('width', '1px') -- Minimize width
| |
| :css('padding', '0 0 0 2px')
| |
| :cssText(args[cfg.arg.imagestyle])
| |
| :attr('rowspan', listnums_size)
| |
| :tag('div')
| |
| :wikitext(processItem(args[cfg.arg.image]))
| |
| end | | end |
| end
| |
|
| |
| -- uses this now to make the needHlistCategory correct
| |
| -- to use later for when we add list styles via navbox
| |
| local function has_list_class(htmlclass)
| |
| local class_args = { -- rough order of probability of use
| |
| cfg.arg.bodyclass, cfg.arg.listclass, cfg.arg.aboveclass,
| |
| cfg.arg.belowclass, cfg.arg.titleclass, cfg.arg.navboxclass,
| |
| cfg.arg.groupclass, cfg.arg.titlegroupclass, cfg.arg.imageclass
| |
| }
| |
| local patterns = {
| |
| '^' .. htmlclass .. '$',
| |
| '%s' .. htmlclass .. '$',
| |
| '^' .. htmlclass .. '%s',
| |
| '%s' .. htmlclass .. '%s'
| |
| }
| |
| | | |
| for _, arg in ipairs(class_args) do | | -- add subgroup categories |
| for _, pattern in ipairs(patterns) do
| | if next(gcats) and onmain then |
| if mw.ustring.find(args[arg] or '', pattern) then
| | first_char = page_title:sub(1,1) |
| return true | | title_pattern = "[" .. first_char:upper() .. first_char:lower() .. "]" .. page_title:sub(2) |
| | title_pattern = title_pattern :gsub("%(","%%(") |
| | :gsub("%)","%%)") |
| | :gsub("_"," ") |
| | :gsub(" ","[_ ]") |
| | :gsub("%-","%%-") |
| | local link_patterns = { |
| | "%[%["..title_pattern.."%]%]", "%[%["..title_pattern.."%|", "{{[Pp]link%|"..title_pattern.."}}", |
| | "{{[Pp]link%|"..title_pattern.."%|", "{{[Pp]linkp%|"..title_pattern.."}}", |
| | "{{[Pp]linkp%|"..title_pattern.."%|", "{{[Ii]linkp%|"..title_pattern.."}}", |
| | "{{[Ii]linkp%|"..title_pattern.."%|", "{{[Cc]hatl%|"..title_pattern.."}}", |
| | "{{[Cc]hatl%|"..title_pattern.."%|" |
| | } |
| | for _,v in ipairs(link_patterns) do |
| | if group:match(v) then |
| | for _,cat in ipairs(gcats) do |
| | td:wikitext('[[Category:'..cat..']]') |
| | end |
| | break |
| end | | end |
| end | | end |
| end | | end |
| return false | | return td:allDone() |
| end | | end |
|
| |
|
| local function needsHorizontalLists(border) | | -- |
| if border == cfg.keyword.border_subgroup or args[cfg.arg.tracking] == cfg.keyword.tracking_no then | | -- Inserts a footer into the navbox |
| return false | | -- |
| end
| | -- @param tbl {mw.html table} |
| return not has_list_class(cfg.pattern.hlist) and not has_list_class(cfg.pattern.plainlist)
| | -- @param args {table} |
| end
| | -- @return {mw.html table} |
| | -- |
| | local function footer( tbl, args ) |
| | local th = insertRow( tbl ) |
| | :tag( 'th' ) |
| | :attr( 'colspan', '2' ) |
| | :addClass( 'navbox-footer' ) |
|
| |
|
| local function hasBackgroundColors()
| | if args.fstyle then |
| for _, key in ipairs({cfg.arg.titlestyle, cfg.arg.groupstyle, | | th:cssText( args.fstyle ) |
| cfg.arg.basestyle, cfg.arg.abovestyle, cfg.arg.belowstyle}) do | |
| if tostring(args[key]):find('background', 1, true) then
| |
| return true
| |
| end
| |
| end | | end |
| return false
| |
| end
| |
|
| |
|
| local function hasTitleGroup()
| | if mw.ustring.match( args.footer, '^%s*%*' ) then |
| if args[cfg.arg.titlegroup] and args[cfg.arg.titlegroup] ~= '' then | | th:newline() |
| return true | |
| end
| |
| return false
| |
| end
| |
|
| |
|
| local function hasBorders()
| | -- trim whitespace on bullets |
| for _, key in ipairs({cfg.arg.groupstyle, cfg.arg.basestyle,
| | local spl = mw.text.split( args.footer, '\n' ) |
| cfg.arg.abovestyle, cfg.arg.belowstyle}) do | |
| if tostring(args[key]):find('border', 1, true) then
| |
| return true
| |
| end
| |
| end
| |
| return false
| |
| end
| |
|
| |
|
| local function isIllegible()
| | for i = 1, #spl do |
| local styleratio = require('Module:Color contrast')._styleratio
| | spl[i] = mw.text.trim( spl[i] ) |
| for key, style in pairs(args) do
| |
| if tostring(key):match(cfg.pattern.style) then
| |
| if styleratio{mw.text.unstripNoWiki(style)} < 4.5 then | |
| return true
| |
| end
| |
| end | | end |
| end
| |
| return false
| |
| end
| |
|
| |
| local function getTrackingCategories(border)
| |
| local cats = {}
| |
| if needsHorizontalLists(border) then table.insert(cats, cfg.category.horizontal_lists) end
| |
| if hasBackgroundColors() then table.insert(cats, cfg.category.background_colors) end
| |
| if isIllegible() then table.insert(cats, cfg.category.illegible) end
| |
| if hasBorders() then table.insert(cats, cfg.category.borders) end
| |
| if hasTitleGroup() then table.insert(cats, cfg.category.titlegroup) end
| |
| return cats
| |
| end
| |
|
| |
|
| local function renderTrackingCategories(builder, border)
| | args.footer = table.concat( spl, '\n' ) |
| local title = mw.title.getCurrentTitle()
| |
| if title.namespace ~= 10 then return end -- not in template space
| |
| local subpage = title.subpageText
| |
| if subpage == cfg.keyword.subpage_doc or subpage == cfg.keyword.subpage_sandbox
| |
| or subpage == cfg.keyword.subpage_testcases then return end
| |
|
| |
|
| for _, cat in ipairs(getTrackingCategories(border)) do
| | th:addClass( 'navbox-list' ) |
| builder:wikitext('[[Category:' .. cat .. ']]') | |
| end | | end |
| end
| |
|
| |
|
| local function renderMainTable(border, listnums)
| | th:wikitext( args.footer ) |
| local tbl = mw.html.create('table') | |
| :addClass(cfg.class.nowraplinks)
| |
| :addClass(args[cfg.arg.bodyclass])
| |
|
| |
|
| local state = args[cfg.arg.state] | | return th:allDone() |
| if args[cfg.arg.title] and state ~= cfg.keyword.state_plain and state ~= cfg.keyword.state_off then
| | end |
| if state == cfg.keyword.state_collapsed then
| |
| state = cfg.class.collapsed
| |
| end
| |
| tbl
| |
| :addClass(cfg.class.collapsible)
| |
| :addClass(state or cfg.class.autocollapse)
| |
| end
| |
|
| |
|
| tbl:css('border-spacing', 0)
| | -- |
| if border == cfg.keyword.border_subgroup or border == cfg.keyword.border_none then
| | -- Adds [[Category:Navigational templates]] to navbox template pages |
| tbl
| | -- |
| :addClass(cfg.class.navbox_subgroup)
| | -- @return {string} |
| :cssText(args[cfg.arg.bodystyle])
| | -- |
| :cssText(args[cfg.arg.style])
| | local function categories() |
| else -- regular navbox - bodystyle and style will be applied to the wrapper table
| | local title = mw.title.getCurrentTitle() |
| tbl
| | local page = title.text |
| :addClass(cfg.class.navbox_inner)
| | local ns = title.nsText |
| :css('background', 'transparent')
| |
| :css('color', 'inherit')
| |
| end | |
| tbl:cssText(args[cfg.arg.innerstyle]) | |
|
| |
|
| renderTitleRow(tbl) | | if ns == 'Template' then |
| renderAboveRow(tbl)
| | -- sort in category by pagename |
| local listnums_size = #listnums
| | return '[[Category:Navigational templates|' .. page .. ']]' |
| for i, listnum in ipairs(listnums) do | | else |
| renderListRow(tbl, i, listnum, listnums_size) | | return '' |
| end | | end |
| renderBelowRow(tbl)
| |
|
| |
|
| return tbl
| |
| end | | end |
|
| |
|
| local function add_navbox_styles() | | -- |
| | -- Adds [[Template:Navbox/doc]] to navbox template pages |
| | -- |
| | -- @param args {table} |
| | -- @return {string} |
| | -- |
| | local function docs( args ) |
| local frame = mw.getCurrentFrame() | | local frame = mw.getCurrentFrame() |
| -- This is a lambda so that it doesn't need the frame as a parameter | | local title = mw.title.getCurrentTitle() |
| local function add_user_styles(templatestyles)
| | local base = title.baseText |
| if templatestyles and templatestyles ~= '' then | | local ns = title.nsText |
| return frame:extensionTag{
| | |
| name = 'templatestyles', args = { src = templatestyles }
| | -- not if a subpage of [[Template:Navbox]] |
| }
| | if base ~= 'Navbox' and |
| end
| | -- in template ns |
| | ns == 'Template' and |
| | -- not a navbox group within a navbox |
| | not yesno( args.subgroup ) and |
| | -- not a collapsible navbox within a navbox |
| | not yesno( args.collapsible ) and |
| | -- not if the doc argument is not set to "yes" |
| | yesno( args.doc, false ) |
| | then |
| | return frame:expandTemplate{ title = 'Navbox/doc' } |
| | else |
| return '' | | return '' |
| end | | end |
|
| |
|
| -- get templatestyles. load base from config so that Lua only needs to do
| |
| -- the work once of parser tag expansion
| |
| local base_templatestyles = cfg.templatestyles
| |
| local templatestyles = add_user_styles(args[cfg.arg.templatestyles])
| |
| local child_templatestyles = add_user_styles(args[cfg.arg.child_templatestyles])
| |
|
| |
| -- The 'navbox-styles' div exists for two reasons:
| |
| -- 1. To wrap the styles to work around T200206 more elegantly. Instead
| |
| -- of combinatorial rules, this ends up being linear number of CSS rules.
| |
| -- 2. To allow MobileFrontend to rip the styles out with 'nomobile' such that
| |
| -- they are not dumped into the mobile view.
| |
| return mw.html.create('div')
| |
| :addClass(cfg.class.navbox_styles)
| |
| :addClass(cfg.class.nomobile)
| |
| :wikitext(base_templatestyles .. templatestyles .. child_templatestyles)
| |
| :done()
| |
| end | | end |
|
| |
|
| function p._navbox(navboxArgs) | | -- |
| args = navboxArgs | | -- Navbox method to allow it to be called by other modules |
| local listnums = {} | | -- |
| | | -- @param _args {table} |
| for k, _ in pairs(args) do | | -- @return {string} |
| if type(k) == 'string' then | | -- |
| local listnum = k:match(cfg.pattern.listnum) | | function p._navbox( _args ) |
| if listnum then table.insert(listnums, tonumber(listnum)) end
| | local args = {} |
| | local wkCss = '' |
| | local wkDiv = '' |
| | local j |
| | |
| | -- preserves parser function behaviour where an empty string is considered undefined |
| | -- or nil in lua's case |
| | for k, v in pairs( _args ) do |
| | if v ~= '' then |
| | args[k] = v |
| end | | end |
| end | | end |
| table.sort(listnums)
| |
|
| |
|
| local border = mw.text.trim(args[cfg.arg.border] or args[1] or '') | | local tbl = createTbl( args ) |
| if border == cfg.keyword.border_child then | | |
| border = cfg.keyword.border_subgroup | | if not yesno( args.subgroup ) then |
| | tbl = header( tbl, args ) |
| end | | end |
|
| |
|
| -- render the main body of the navbox | | -- insert up to 20 rows |
| local tbl = renderMainTable(border, listnums) | | -- |
| | -- 20 is a limit inherited from wikipedia when we copied this over |
| | -- and we've never had a reason to extend it |
| | for i = 1, 20 do |
| | j = tostring( i ) |
|
| |
|
| local res = mw.html.create()
| | if args['group' .. j] then |
| -- render the appropriate wrapper for the navbox, based on the border param
| | local gcats = {} |
| | | for p = 1, 20 do |
| if border == cfg.keyword.border_none then
| | local q = tostring ( p ) |
| res:node(add_navbox_styles())
| | |
| local nav = res:tag('div')
| | if args['g' .. j .. 'cat' .. q] then |
| :attr('role', 'navigation') | | table.insert(gcats, args['g' .. j .. 'cat' .. q]) |
| :node(tbl)
| | else |
| -- aria-labelledby title, otherwise above, otherwise lone group
| | break |
| if args[cfg.arg.title] or args[cfg.arg.above] or (args[cfg.arg.group1]
| | end |
| and not args[cfg.arg.group2]) then
| | end |
| nav:attr( | | |
| 'aria-labelledby',
| | tbl = row( tbl, args['gtitle' .. j], args['group' .. j], args['gtype' .. j], gcats, args['style' .. j], args.name, args.subgroup ) |
| mw.uri.anchorEncode(
| |
| args[cfg.arg.title] or args[cfg.arg.above] or args[cfg.arg.group1]
| |
| )
| |
| )
| |
| else | | else |
| nav:attr('aria-label', cfg.aria_label) | | break |
| end
| |
| elseif border == cfg.keyword.border_subgroup then
| |
| -- We assume that this navbox is being rendered in a list cell of a
| |
| -- parent navbox, and is therefore inside a div with padding:0em 0.25em.
| |
| -- We start with a </div> to avoid the padding being applied, and at the
| |
| -- end add a <div> to balance out the parent's </div>
| |
| res
| |
| :wikitext('</div>')
| |
| :node(tbl)
| |
| :wikitext('<div>')
| |
| else
| |
| res:node(add_navbox_styles())
| |
| local nav = res:tag('div')
| |
| :attr('role', 'navigation')
| |
| :addClass(cfg.class.navbox)
| |
| :addClass(args[cfg.arg.navboxclass])
| |
| :cssText(args[cfg.arg.bodystyle])
| |
| :cssText(args[cfg.arg.style])
| |
| :css('padding', '3px')
| |
| :node(tbl)
| |
| -- aria-labelledby title, otherwise above, otherwise lone group
| |
| if args[cfg.arg.title] or args[cfg.arg.above]
| |
| or (args[cfg.arg.group1] and not args[cfg.arg.group2]) then
| |
| nav:attr(
| |
| 'aria-labelledby',
| |
| mw.uri.anchorEncode(args[cfg.arg.title] or args[cfg.arg.above] or args[cfg.arg.group1])
| |
| )
| |
| else
| |
| nav:attr('aria-label', cfg.aria_label)
| |
| end | | end |
| end | | end |
|
| |
|
| if (args[cfg.arg.nocat] or cfg.keyword.nocat_false):lower() == cfg.keyword.nocat_false then | | if args.footer then |
| renderTrackingCategories(res, border) | | tbl = footer( tbl, args ) |
| end | | end |
| return striped(tostring(res), border)
| |
| end
| |
|
| |
|
| function p.navbox(frame)
| | tbl = tostring( tbl ) |
| if not getArgs then | | |
| getArgs = require('Module:Arguments').getArgs | | local cats = '' |
| | if not yesno(args.subgroup) and not yesno(args.hidecat) then |
| | cats = categories() |
| end | | end |
| args = getArgs(frame, {wrappers = {cfg.pattern.navbox}}) | | local docs = docs( args ) |
|
| |
|
| -- Read the arguments in the order they'll be output in, to make references | | return tbl .. cats .. docs |
| -- number in the right order.
| | end |
| local _
| |
| _ = args[cfg.arg.title]
| |
| _ = args[cfg.arg.above]
| |
| -- Limit this to 20 as covering 'most' cases (that's a SWAG) and because
| |
| -- iterator approach won't work here
| |
| for i = 1, 20 do
| |
| _ = args[format(cfg.arg.group_and_num, i)]
| |
| _ = args[format(cfg.arg.list_and_num, i)]
| |
| end
| |
| _ = args[cfg.arg.below]
| |
|
| |
|
| return p._navbox(args) | | -- |
| | -- Main navbox method accessed through #invoke |
| | -- |
| | -- @param frame {table} |
| | -- @return {string} |
| | -- |
| | function p.navbox( frame ) |
| | local args = frame:getParent().args |
| | return p._navbox( args ) |
| end | | end |
|
| |
|
| return p | | return p |
| | -- </nowiki> |