Module:Navbox: Difference between revisions

local function striped(wikitext, border)

-- 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 = cfg.category.orphan

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

first = args[cfg.arg.evenodd]

second = first

local changer

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

index = index + 1

return index % 2 == 1 and first or second

local regex = orphanCat:gsub('([%[%]])', '%%%1')

return (wikitext:gsub(regex, ''):gsub(cfg.marker.regex, changer)) -- () omits gsub count

 

local function processItem(item, nowrapitems)

-- 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'

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)

if item:match('^[*:;#]') then

return '\n' .. item ..'\n'

return item

 

local function has_navbar()

and args[cfg.arg.navbar] ~= cfg.keyword.navbar_plain

and (

args[cfg.arg.name]

~= cfg.pattern.navbox

)

 

if has_navbar() then

[cfg.navbar.name] = args[cfg.arg.name],

[cfg.navbar.mini] = 1,

})

 

 

 

 

 

 

 

 

titleCell

 

return ret

 

local function renderAboveRow(tbl)

 

tbl:tag('tr')

:tag('td')

-- id for aria-labelledby attribute, if no title

:attr('id', (not args[cfg.arg.title]) and mw.uri.anchorEncode(args[cfg.arg.above]) or nil)

:wikitext(processItem(args[cfg.arg.above], args[cfg.arg.nowrapitems]))

 

if not args[cfg.arg.below] then return end

 

tbl:tag('tr')

:tag('td')

 

local row = tbl:tag('tr')

 

:addClass(cfg.class.noviewer)

:addClass(cfg.class.navbox_image)

:addClass(args[cfg.arg.imageclass])

:css('padding', '0 2px 0 0')

:cssText(args[cfg.arg.imageleftstyle])

:attr('rowspan', listnums_size)

:wikitext(processItem(args[cfg.arg.imageleft]))

 

local group_and_num = format(cfg.arg.group_and_num, listnum)

local groupstyle_and_num = format(cfg.arg.groupstyle_and_num, listnum)

 

-- id for aria-labelledby attribute, if lone group with no title or above

if listnum == 1 and not (args[cfg.arg.title] or args[cfg.arg.above] or args[cfg.arg.group2]) then

end

 

 

 

 

end

 

 

 

 

:tag('div')

(index == 1 and args[cfg.arg.list1padding]) or args[cfg.arg.listpadding] or '0 0.25em'

:wikitext(processItem(listText, args[cfg.arg.nowrapitems]))

 

:addClass(cfg.class.noviewer)

:addClass(cfg.class.navbox_image)

:addClass(args[cfg.arg.imageclass])

:css('padding', '0 0 0 2px')

:cssText(args[cfg.arg.imagestyle])

:attr('rowspan', listnums_size)

:wikitext(processItem(args[cfg.arg.image]))

for arg, _ in pairs(args) do

if type(arg) == 'string' and mw.ustring.find(arg, cfg.pattern.class) then

for _, pattern in ipairs(patterns) do

if mw.ustring.find(args[arg] or '', pattern) then

end

end

 

-- there are a lot of list classes in the wild, so we add their TemplateStyles

local function add_list_styles()

if has_list_class(htmlclass) then

return frame:extensionTag{

name = 'templatestyles', args = { src = templatestyles }

return ''

local hlist_styles = add_list_templatestyles('hlist', cfg.hlist_templatestyles)

local plainlist_styles = add_list_templatestyles('plainlist', cfg.plainlist_templatestyles)

-- a second workaround for [[phab:T303378]]

-- when that issue is fixed, we can actually use has_navbar not to emit the

-- tag here if we want

if has_navbar() and hlist_styles == '' then

hlist_styles = frame:extensionTag{

name = 'templatestyles', args = { src = cfg.hlist_templatestyles }

}

-- hlist -> plainlist is best-effort to preserve old Common.css ordering.

return hlist_styles .. plainlist_styles

 

local function needsHorizontalLists(border)

if border == cfg.keyword.border_subgroup or args[cfg.arg.tracking] == cfg.keyword.tracking_no then

return not has_list_class(cfg.pattern.hlist) and not has_list_class(cfg.pattern.plainlist)

 

local function hasBackgroundColors()

for _, key in ipairs({cfg.arg.titlestyle, cfg.arg.groupstyle,

cfg.arg.basestyle, cfg.arg.abovestyle, cfg.arg.belowstyle}) do

if tostring(args[key]):find('background', 1, true) then

return true

return false

 

local function hasBorders()

for _, key in ipairs({cfg.arg.groupstyle, cfg.arg.basestyle,

cfg.arg.abovestyle, cfg.arg.belowstyle}) do

if tostring(args[key]):find('border', 1, true) then

return true

return false

 

local function isIllegible()

local styleratio = require('Module:Color contrast')._styleratio

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 false

 

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

return cats

end

 

if title.namespace ~= 10 then return end -- not in template space

or subpage == cfg.keyword.subpage_testcases then return end

 

 

local function renderMainTable(border, listnums)

local tbl = mw.html.create('table')

:addClass(cfg.class.nowraplinks)

:addClass(args[cfg.arg.bodyclass])

 

if args[cfg.arg.title] and state ~= cfg.keyword.state_plain and state ~= cfg.keyword.state_off then

state = cfg.class.collapsed

tbl

 

tbl:css('border-spacing', 0)

if border == cfg.keyword.border_subgroup or border == cfg.keyword.border_none then

tbl

:addClass(cfg.class.navbox_subgroup)

:cssText(args[cfg.arg.bodystyle])

:cssText(args[cfg.arg.style])

else  -- regular navbox - bodystyle and style will be applied to the wrapper table

tbl

:addClass(cfg.class.navbox_inner)

:css('background', 'transparent')

:css('color', 'inherit')

tbl:cssText(args[cfg.arg.innerstyle])

 

renderTitleRow(tbl)

renderAboveRow(tbl)

local listnums_size = #listnums

for i, listnum in ipairs(listnums) do

renderListRow(tbl, i, listnum, listnums_size)

renderBelowRow(tbl)

 

return tbl

 

local function add_navbox_styles(hiding_templatestyles)

local frame = mw.getCurrentFrame()

-- This is a lambda so that it doesn't need the frame as a parameter

local function add_user_styles(templatestyles)

if templatestyles and templatestyles ~= '' then

return frame:extensionTag{

name = 'templatestyles', args = { src = templatestyles }

}

return ''

 

-- get templatestyles. load base from config so that Lua only needs to do

-- the work once of parser tag expansion

 

 

-- work around [[phab:T303378]]

-- for each arg: find all the templatestyles strip markers, insert them into a

-- table. then remove all templatestyles markers from the arg

local function move_hiding_templatestyles(args)

local gfind = string.gfind

local gsub = string.gsub

local templatestyles_markers = {}

local strip_marker_pattern = '(\127[^\127]*UNIQ%-%-templatestyles%-%x+%-QINU[^\127]*\127)'

for k, arg in pairs(args) do

for marker in gfind(arg, strip_marker_pattern) do

table.insert(templatestyles_markers, marker)

args[k] = gsub(arg, strip_marker_pattern, '')

return templatestyles_markers

 

 

args = getArgs(frame, {wrappers = {cfg.pattern.navbox}})

 

local _

-- Limit this to 20 as covering 'most' cases (that's a SWAG) and because

_ = args[format(cfg.arg.list_and_num, i)]