Module:Navbox: Difference between revisions

local inArray = require("Module:TableTools").inArray

local getArgs -- lazily initialized

function p._navbox(args)

local function striped(wikitext, border)

-- Return wikitext with markers replaced for odd/even striping.

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.

end

if nowrapitems == cfg.keyword.nowrapitems_yes then

local prefix, content = line:match('^([*:;#]+)%s*(.*)')

if prefix and not content:match(cfg.pattern.nowrap) then

end

table.insert(lines, line)

end

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

end

return item

end

local function has_navbar()

return args[cfg.arg.navbar] ~= cfg.keyword.navbar_off

)

end

-- extract text color from css, which is the only permitted inline CSS for the navbar

local function extract_color(css_str)

return mw.ustring.match(';' .. css_str .. ';', '.*;%s*([Cc][Oo][Ll][Oo][Rr]%s*:%s*.-)%s*;') or nil

end

local function renderNavBar(titleCell)

if has_navbar() then

})

end

end

local function renderTitleRow(tbl)

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

local titleRow = tbl:tag('tr')

local titleCell = titleRow:tag('th'):attr('scope', 'col')

local titleColspan = 2

if args[cfg.arg.imageleft] then titleColspan = titleColspan + 1 end

if args[cfg.arg.image] then titleColspan = titleColspan + 1 end

titleCell

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

:addClass(cfg.class.navbox_title)

:attr('colspan', titleColspan)

renderNavBar(titleCell)

titleCell

:tag('div')

-- id for aria-labelledby attribute

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

:css('font-size', '114%')

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

end

local function getAboveBelowColspan()

local ret = 2

return ret

end

local function renderAboveRow(tbl)

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

tbl:tag('tr')

:tag('td')

:tag('div')

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

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

end

local function renderBelowRow(tbl)

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

tbl:tag('tr')

:tag('td')

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

end

local function renderListRow(tbl, index, listnum, listnums_size)

local row = tbl:tag('tr')

if index == 1 and args[cfg.arg.imageleft] then

row

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

end

if args[group_and_num] then

local groupCell = row:tag('th')

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

groupCell

end

groupCell

:attr('scope', 'row')

-- If groupwidth not specified, minimize width

:css('width', args[cfg.arg.groupwidth] or '1%')

groupCell

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

:wikitext(args[group_and_num])

end

local listCell = row:tag('td')

if args[group_and_num] then

listCell

listCell:attr('colspan', 2)

end

if not args[cfg.arg.groupwidth] then

listCell:css('width', '100%')

end

local rowstyle  -- usually nil so cssText(rowstyle) usually adds nothing

if index % 2 == 1 then

rowstyle = args[cfg.arg.evenstyle]

end

local oddEven = cfg.marker.oddeven

if listText:sub(1, 12) == '</div><table' then

oddEven = listText:find(cfg.pattern.navbox_title) and cfg.marker.restart or cfg.class.navbox_odd_part

end

listCell

:css('padding', '0')

)

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

if index == 1 and args[cfg.arg.image] then

row

end

end

local function has_list_class(htmlclass)

local patterns = {

'%s' .. htmlclass .. '%s'

}

for arg, _ in pairs(args) do

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

return false

end

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

local function add_list_styles()

end

end

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

}

end

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

-- this ordering is not a guarantee because most navboxes will emit only

return hlist_styles .. plainlist_styles

end

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)

end

local function hasBackgroundColors()

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

return false

end

local function hasBorders()

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

return false

end

local function isIllegible()

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

return false

end

local function getTrackingCategories(border)

local cats = {}

return cats

end

local function renderTrackingCategories(builder, border)

local title = mw.title.getCurrentTitle()

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

builder:wikitext('[[Category:' .. cat .. ']]')

end

end

local function renderMainTable(border, listnums)

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

:addClass(cfg.class.nowraplinks)

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

local state = args[cfg.arg.state]

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

: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

end

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

renderTitleRow(tbl)

renderAboveRow(tbl)

end

renderBelowRow(tbl)

return tbl

end

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)

return frame:extensionTag{

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

return ''

end

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

-- the work once of parser tag expansion

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 to wrap the styles to work around T200206

-- more elegantly. Instead of combinatorial rules, this ends up being linear

:done()

end

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

end

end

end

local listnums = {}

for k, _ in pairs(args) do

if type(k) == 'string' then

local listnum = k:match(cfg.pattern.listnum)

end

end

mw.uri.anchorEncode(

args[cfg.arg.title] or args[cfg.arg.above] or args[cfg.arg.group1]

)

else

nav:attr(

'aria-labelledby',

)

else

end

end

end

return striped(tostring(res), border)

local function readArgs(args, prefix)

-- Read the arguments in the order they'll be output in, to make references

-- number in the right order.

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

end

end

end

end

getArgs = require('Module:Arguments').getArgs

end

end

return p