local check_for_unknown_parameters = require("Module:Check for unknown parameters")._check
local p = local args = local origArgs = local rootlocal lists =
local function has_list_class(args_to_check) for _, list in pairs(lists) do if not list.found then for _, arg in pairs(args_to_check) do for _, pattern in ipairs(list.patterns) do if mw.ustring.find(arg or , pattern) then list.found = true break end end if list.found then break end end end endend
-- Returns the union of the values of two tables, as a sequence.local function union(t1, t2)
local vals = for k, v in pairs(t1) do vals[v] = true end for k, v in pairs(t2) do vals[v] = true end local ret = for k, v in pairs(vals) do table.insert(ret, k) end return retend
-- Returns a table containing the numbers of the arguments that exist-- for the specified prefix. For example, if the prefix was 'data', and-- 'data1', 'data2', and 'data5' exist, it would return .local function getArgNums(prefix, suffix) local nums = for k, v in pairs(args) do local num = tostring(k):match('^' .. prefix .. '([0-9]%d*)' .. suffix .. '$') if num then table.insert(nums, tonumber(num)) end end table.sort(nums) return numsend
-- Adds a row to the infobox, with either a header cell-- or a label/data cell combination.local function addRow(rowArgs) if rowArgs.header then has_list_class root :tag('tr') :addClass(rowArgs.rowclass) :cssText(rowArgs.rowstyle) :tag('th') :attr('colspan', '4') :addClass('infobox-header') :addClass(rowArgs.class) :addClass(args.headerclass) -- @deprecated next; target .infobox-
local dataCella = row:tag('td') dataCella :addClass('infobox-data infobox-data-a') :addClass(rowArgs.classa) -- @deprecated next; target .infobox-
local function renderTitle if not args.title then return end has_list_class
root :tag('caption') :addClass('infobox-title') :addClass(args.titleclass) -- @deprecated next; target .infobox-
local function renderAboveRow if not args.above then return end has_list_class root :tag('tr') :tag('th') :attr('colspan', '4') :addClass('infobox-above') :addClass(args.aboveclass) -- @deprecated next; target .infobox-
local function renderBelowRow if not args.below then return end has_list_class root :tag('tr') :tag('td') :attr('colspan', '4') :addClass('infobox-below') :addClass(args.belowclass) -- @deprecated next; target .infobox-
local function addSubheaderRow(subheaderArgs) if not subheaderArgs.data then return end has_list_class local row = root:tag('tr') row:addClass(subheaderArgs.rowclass) local dataCell = row:tag('td') dataCell :attr('colspan', '4') :addClass('infobox-subheader') :addClass(subheaderArgs.class) :cssText(subheaderArgs.datastyle) :cssText(subheaderArgs.rowcellstyle) :newline :wikitext(subheaderArgs.data)end
local function renderSubheaders if args.subheader then args.subheader1 = args.subheader end if args.subheaderrowclass then args.subheaderrowclass1 = args.subheaderrowclass end local subheadernums = getArgNums('subheader',) for k, num in ipairs(subheadernums) do addSubheaderRow endend
local function addImageRow(imageArgs) if not imageArgs.data then return end has_list_class local row = root:tag('tr') row:addClass(imageArgs.rowclass) local dataCell = row:tag('td') dataCell :attr('colspan', '4') :addClass('infobox-image') :addClass(imageArgs.class) :cssText(imageArgs.datastyle) :newline :wikitext(imageArgs.data)end
local function renderImages if args.image then args.image1 = args.image end if args.caption then args.caption1 = args.caption end local imagenums = getArgNums('image',) for k, num in ipairs(imagenums) do local caption = args['caption' .. tostring(num)] local data = mw.html.create:wikitext(args['image' .. tostring(num)]) if caption then data :tag('div') :addClass('infobox-caption') -- @deprecated next; target .infobox-
-- Gets the union of the header and data argument numbers,-- and renders them all in orderlocal function renderRows local rownums = union(getArgNums('header',), getArgNums('data','[abc]?')) local datab_count = #(getArgNums('data','b')) local datac_count = #(getArgNums('data','c')) table.sort(rownums) for k, num in ipairs(rownums) do addRow endend
local function renderNavBar if not args.name then return end root :tag('tr') :tag('td') :attr('colspan', '4') :addClass('infobox-navbar') :wikitext(require('Module:Navbar')._navbar)end
local function renderItalicTitle local italicTitle = args['italic title'] and mw.ustring.lower(args['italic title']) if italicTitle
'force' or italicTitle
-- Render tracking categories. args.decat
'yes' then return end if #(getArgNums('data','[abc]?'))
0 then root:wikitext('') end root:wikitext(check_for_unknown_parameters(origArgs))
if origArgs.header0 or origArgs.label0 or origArgs.data0 or origArgs.data0a or origArgs.data0b or origArgs.data0c or origArgs.class0 or origArgs.rowclass0 then root:wikitext("") end
if title.namespace
"Infobox" then root:wikitext("") endend
--[=[ Loads the templatestyles for the infobox. TODO: FINISH loading base templatestyles here rather than in MediaWiki:Common.css. There are 4-5000 pages with 'raw' infobox tables. See [[Mediawiki_talk:Common.css/to_do#Infobox]] and/or come help :).When we do this we should clean up the inline CSS below too.Will have to do some bizarre conversion category like with sidebar.
]=]local function loadTemplateStyles local frame = mw.getCurrentFrame local hlist_templatestyles = if lists.hlist_t.found then hlist_templatestyles = frame:extensionTag end local plainlist_templatestyles = if lists.plainlist_t.found then plainlist_templatestyles = frame:extensionTag end -- See function description local base_templatestyles = frame:extensionTag
local templatestyles = if args['templatestyles'] then templatestyles = frame:extensionTag end local child_templatestyles = if args['child templatestyles'] then child_templatestyles = frame:extensionTag end local grandchild_templatestyles = if args['grandchild templatestyles'] then grandchild_templatestyles = frame:extensionTag end
return table.concat end
-- common functions between the child and non child caseslocal function structure_infobox_common renderSubheaders renderImages-- preprocessRows renderRows renderBelowRow renderNavBar renderItalicTitle-- renderEmptyRowCategories renderTrackingCategories-- cleanInfoboxend
-- Specify the overall layout of the infobox, with special settings if the-- infobox is used as a 'child' inside another infobox.local function _infobox
root = mw.html.create('table') has_list_class root :addClass((args.child
'yes') and 'infobox-subbox' or 'infobox') :addClass(args.child
-- If the argument exists and isn't blank, add it to the argument table.-- Blank arguments are treated as nil to match the behaviour of ParserFunctions.local function preprocessSingleArg(argName) if origArgs[argName] and origArgs[argName] ~= then args[argName] = origArgs[argName] endend
-- Assign the parameters with the given prefixes to the args table, in order, in-- batches of the step size specified. This is to prevent references etc. from-- appearing in the wrong order. The prefixTable should be an array containing-- tables, each of which has two possible fields, a "prefix" string and a-- "depend" table. The function always parses parameters containing the "prefix"-- string, but only parses parameters in the "depend" table if the prefix-- parameter is present and non-blank.local function preprocessArgs(prefixTable, step) if type(prefixTable) ~= 'table' then error("Non-table value detected for the prefix table", 2) end if type(step) ~= 'number' then error("Invalid step value detected", 2) end
-- Get arguments without a number suffix, and check for bad input. for i,v in ipairs(prefixTable) do if type(v) ~= 'table' or type(v.prefix) ~= "string" or (v.depend and type(v.depend) ~= 'table') then error('Invalid input detected to preprocessArgs prefix table', 2) end preprocessSingleArg(v.prefix) -- Only parse the depend parameter if the prefix parameter is present -- and not blank. if args[v.prefix] and v.depend then for j, dependValue in ipairs(v.depend) do if type(dependValue) ~= 'string' then error('Invalid "depend" parameter value detected in preprocessArgs') end preprocessSingleArg(dependValue) end end end
-- Get arguments with number suffixes. local a = 0 -- Counter variable. local moreArgumentsExist = true while moreArgumentsExist
1 and args[v.prefix])) then for j,dependValue in ipairs(v.depend) do local dependArgName = dependValue .. tostring(i) .. (v.dependsuffix or ) preprocessSingleArg(dependArgName) end end end end a = a + step endend
-- Parse the data parameters in the same order that the old
did, so-- that references etc. will display in the expected places. Parameters that-- depend on another parameter are only processed if that parameter is present,-- to avoid phantom references appearing in article reference lists.local function parseDataParameters preprocessSingleArg('child') preprocessSingleArg('bodyclass') preprocessSingleArg('subbox') preprocessSingleArg('bodystyle') preprocessSingleArg('title') preprocessSingleArg('titleclass') preprocessSingleArg('titlestyle') preprocessSingleArg('above') preprocessSingleArg('aboveclass') preprocessSingleArg('abovestyle') preprocessArgs(10) preprocessSingleArg('subheaderstyle') preprocessSingleArg('subheaderclass') preprocessSingleArg('image') preprocessSingleArg('caption') preprocessArgs(10) preprocessSingleArg('captionstyle') preprocessSingleArg('imagestyle') preprocessSingleArg('imageclass') preprocessArgs(50) preprocessSingleArg('headerclass') preprocessSingleArg('headerstyle') preprocessSingleArg('labelstyle') preprocessSingleArg('datastyle') preprocessSingleArg('datastylea') preprocessSingleArg('datastyleb') preprocessSingleArg('datastylec') preprocessSingleArg('below') preprocessSingleArg('belowclass') preprocessSingleArg('belowstyle') preprocessSingleArg('name') -- different behaviour for italics if blank or absent args['italic title'] = origArgs['italic title'] preprocessSingleArg('decat') preprocessSingleArg('templatestyles') preprocessSingleArg('child templatestyles') preprocessSingleArg('grandchild templatestyles')
args['extracellstyles'] = for line in mw.text.gsplit(origArgs['extracellstyles'] or , '\n') do local equals = line:find('=') if equals then for i in mw.text.gsplit(line:sub(1, equals - 1), '%s*,%s*') do args.extracellstyles[i] = line:sub(equals + 1) end end endend
-- If called via #invoke, use the args passed into the invoking template.-- Otherwise, for testing purposes, assume args are being passed directly in.function p.infobox(frame) if frame
-- For calling via #invoke within a templatefunction p.infoboxTemplate(frame, extra_args) origArgs = extra_args or for k,v in pairs(frame.args) do origArgs[k] = mw.text.trim(v) end parseDataParameters return _infoboxend
-- Shortcut for making child infoboxes via #invoke.function p.child(frame) return p.infoboxTemplate(frame,)end
return p