Difference between revisions of "Module:Infobox"
Jump to navigation
Jump to search
m (1 revision imported) |
m (1 revision imported) |
||
(9 intermediate revisions by 3 users not shown) | |||
Line 1: | Line 1: | ||
− | |||
− | |||
− | |||
− | |||
local p = {} | local p = {} | ||
− | |||
− | |||
− | |||
local args = {} | local args = {} | ||
− | local origArgs | + | local origArgs = {} |
local root | local root | ||
+ | local empty_row_categories = {} | ||
+ | local category_in_empty_row_pattern = '%[%[%s*[Cc][Aa][Tt][Ee][Gg][Oo][Rr][Yy]%s*:[^]]*]]' | ||
+ | local function fixChildBoxes(sval, tt) | ||
+ | local function notempty( s ) return s and s:match( '%S' ) end | ||
+ | |||
+ | if notempty(sval) then | ||
+ | local marker = '<span class=special_infobox_marker>' | ||
+ | local s = sval | ||
+ | s = mw.ustring.gsub(s, '(<%s*[Tt][Rr])', marker .. '%1') | ||
+ | s = mw.ustring.gsub(s, '(</[Tt][Rr]%s*>)', '%1' .. marker) | ||
+ | if s:match(marker) then | ||
+ | s = mw.ustring.gsub(s, marker .. '%s*' .. marker, '') | ||
+ | s = mw.ustring.gsub(s, '([\r\n]|-[^\r\n]*[\r\n])%s*' .. marker, '%1') | ||
+ | s = mw.ustring.gsub(s, marker .. '%s*([\r\n]|-)', '%1') | ||
+ | s = mw.ustring.gsub(s, '(</[Cc][Aa][Pp][Tt][Ii][Oo][Nn]%s*>%s*)' .. marker, '%1') | ||
+ | s = mw.ustring.gsub(s, '(<%s*[Tt][Aa][Bb][Ll][Ee][^<>]*>%s*)' .. marker, '%1') | ||
+ | s = mw.ustring.gsub(s, '^(%{|[^\r\n]*[\r\n]%s*)' .. marker, '%1') | ||
+ | s = mw.ustring.gsub(s, '([\r\n]%{|[^\r\n]*[\r\n]%s*)' .. marker, '%1') | ||
+ | s = mw.ustring.gsub(s, marker .. '(%s*</[Tt][Aa][Bb][Ll][Ee]%s*>)', '%1') | ||
+ | s = mw.ustring.gsub(s, marker .. '(%s*\n|%})', '%1') | ||
+ | end | ||
+ | if s:match(marker) then | ||
+ | local subcells = mw.text.split(s, marker) | ||
+ | s = '' | ||
+ | for k = 1, #subcells do | ||
+ | if k == 1 then | ||
+ | s = s .. subcells[k] .. '</' .. tt .. '></tr>' | ||
+ | elseif k == #subcells then | ||
+ | local rowstyle = ' style="display:none"' | ||
+ | if notempty(subcells[k]) then rowstyle = '' end | ||
+ | s = s .. '<tr' .. rowstyle ..'><' .. tt .. ' colspan=2>\n' .. | ||
+ | subcells[k] | ||
+ | elseif notempty(subcells[k]) then | ||
+ | if (k % 2) == 0 then | ||
+ | s = s .. subcells[k] | ||
+ | else | ||
+ | s = s .. '<tr><' .. tt .. ' colspan=2>\n' .. | ||
+ | subcells[k] .. '</' .. tt .. '></tr>' | ||
+ | end | ||
+ | end | ||
+ | end | ||
+ | end | ||
+ | -- the next two lines add a newline at the end of lists for the PHP parser | ||
+ | -- [[Special:Diff/849054481]] | ||
+ | -- remove when [[:phab:T191516]] is fixed or OBE | ||
+ | s = mw.ustring.gsub(s, '([\r\n][%*#;:][^\r\n]*)$', '%1\n') | ||
+ | s = mw.ustring.gsub(s, '^([%*#;:][^\r\n]*)$', '%1\n') | ||
+ | s = mw.ustring.gsub(s, '^([%*#;:])', '\n%1') | ||
+ | s = mw.ustring.gsub(s, '^(%{%|)', '\n%1') | ||
+ | return s | ||
+ | else | ||
+ | return sval | ||
+ | end | ||
+ | end | ||
+ | |||
+ | -- Returns the union of the values of two tables, as a sequence. | ||
local function union(t1, t2) | 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 ret | |
end | end | ||
+ | -- 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 {1, 2, 5}. | ||
local function getArgNums(prefix) | local function getArgNums(prefix) | ||
− | + | local nums = {} | |
− | + | for k, v in pairs(args) do | |
− | + | local num = tostring(k):match('^' .. prefix .. '([1-9]%d*)$') | |
− | + | if num then table.insert(nums, tonumber(num)) end | |
− | + | end | |
− | + | table.sort(nums) | |
− | + | return nums | |
− | |||
− | |||
− | |||
end | end | ||
+ | -- Adds a row to the infobox, with either a header cell | ||
+ | -- or a label/data cell combination. | ||
local function addRow(rowArgs) | local function addRow(rowArgs) | ||
− | + | ||
− | + | if rowArgs.header and rowArgs.header ~= '_BLANK_' then | |
− | + | root | |
− | + | :tag('tr') | |
− | + | :addClass(rowArgs.rowclass) | |
− | + | :cssText(rowArgs.rowstyle) | |
− | + | :tag('th') | |
− | + | :attr('colspan', '2') | |
− | + | :addClass('infobox-header') | |
− | + | :addClass(rowArgs.class) | |
− | + | :addClass(args.headerclass) | |
− | + | -- @deprecated next; target .infobox-<name> .infobox-header | |
− | + | :cssText(args.headerstyle) | |
− | + | :cssText(rowArgs.rowcellstyle) | |
− | + | :wikitext(fixChildBoxes(rowArgs.header, 'th')) | |
− | + | if rowArgs.data then | |
− | + | root:wikitext( | |
− | + | '[[Category:Pages which use infobox templates with ignored data cells]]' | |
− | + | ) | |
− | + | end | |
− | + | elseif rowArgs.data and rowArgs.data:gsub( | |
− | + | category_in_empty_row_pattern, '' | |
− | + | ):match('^%S') then | |
− | + | local row = root:tag('tr') | |
− | + | row:addClass(rowArgs.rowclass) | |
− | + | row:cssText(rowArgs.rowstyle) | |
− | + | if rowArgs.label then | |
− | + | row | |
− | + | :tag('th') | |
− | + | :attr('scope', 'row') | |
− | + | :addClass('infobox-label') | |
− | + | -- @deprecated next; target .infobox-<name> .infobox-label | |
− | + | :cssText(args.labelstyle) | |
− | + | :cssText(rowArgs.rowcellstyle) | |
− | + | :wikitext(rowArgs.label) | |
− | + | :done() | |
− | + | end | |
− | + | ||
− | + | local dataCell = row:tag('td') | |
− | + | dataCell | |
− | + | :attr('colspan', not rowArgs.label and '2' or nil) | |
− | + | :addClass(not rowArgs.label and 'infobox-full-data' or 'infobox-data') | |
− | + | :addClass(rowArgs.class) | |
− | + | -- @deprecated next; target .infobox-<name> .infobox(-full)-data | |
+ | :cssText(rowArgs.datastyle) | ||
+ | :cssText(rowArgs.rowcellstyle) | ||
+ | :wikitext(fixChildBoxes(rowArgs.data, 'td')) | ||
+ | else | ||
+ | table.insert(empty_row_categories, rowArgs.data or '') | ||
+ | end | ||
end | end | ||
local function renderTitle() | local function renderTitle() | ||
− | + | if not args.title then return end | |
− | + | root | |
− | + | :tag('caption') | |
− | + | :addClass('infobox-title') | |
− | + | :addClass(args.titleclass) | |
− | + | -- @deprecated next; target .infobox-<name> .infobox-title | |
+ | :cssText(args.titlestyle) | ||
+ | :wikitext(args.title) | ||
end | end | ||
local function renderAboveRow() | local function renderAboveRow() | ||
− | + | if not args.above then return end | |
− | + | ||
− | + | root | |
− | + | :tag('tr') | |
− | + | :tag('th') | |
− | + | :attr('colspan', '2') | |
− | + | :addClass('infobox-above') | |
− | + | :addClass(args.aboveclass) | |
− | + | -- @deprecated next; target .infobox-<name> .infobox-above | |
− | + | :cssText(args.abovestyle) | |
− | + | :wikitext(fixChildBoxes(args.above,'th')) | |
− | |||
end | end | ||
local function renderBelowRow() | local function renderBelowRow() | ||
− | + | if not args.below then return end | |
− | + | ||
− | + | root | |
− | + | :tag('tr') | |
− | + | :tag('td') | |
− | + | :attr('colspan', '2') | |
− | + | :addClass('infobox-below') | |
− | + | :addClass(args.belowclass) | |
− | + | -- @deprecated next; target .infobox-<name> .infobox-below | |
− | + | :cssText(args.belowstyle) | |
− | + | :wikitext(fixChildBoxes(args.below,'td')) | |
+ | end | ||
+ | |||
+ | local function addSubheaderRow(subheaderArgs) | ||
+ | if subheaderArgs.data and | ||
+ | subheaderArgs.data:gsub(category_in_empty_row_pattern, ''):match('^%S') then | ||
+ | local row = root:tag('tr') | ||
+ | row:addClass(subheaderArgs.rowclass) | ||
+ | |||
+ | local dataCell = row:tag('td') | ||
+ | dataCell | ||
+ | :attr('colspan', '2') | ||
+ | :addClass('infobox-subheader') | ||
+ | :addClass(subheaderArgs.class) | ||
+ | :cssText(subheaderArgs.datastyle) | ||
+ | :cssText(subheaderArgs.rowcellstyle) | ||
+ | :wikitext(fixChildBoxes(subheaderArgs.data, 'td')) | ||
+ | else | ||
+ | table.insert(empty_row_categories, subheaderArgs.data or '') | ||
+ | end | ||
end | end | ||
local function renderSubheaders() | 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({ | |
− | + | data = args['subheader' .. tostring(num)], | |
− | + | -- @deprecated next; target .infobox-<name> .infobox-subheader | |
− | + | datastyle = args.subheaderstyle, | |
− | + | rowcellstyle = args['subheaderstyle' .. tostring(num)], | |
− | + | class = args.subheaderclass, | |
− | + | rowclass = args['subheaderrowclass' .. tostring(num)] | |
+ | }) | ||
+ | end | ||
+ | end | ||
+ | |||
+ | local function addImageRow(imageArgs) | ||
+ | |||
+ | if imageArgs.data and | ||
+ | imageArgs.data:gsub(category_in_empty_row_pattern, ''):match('^%S') then | ||
+ | |||
+ | local row = root:tag('tr') | ||
+ | row:addClass(imageArgs.rowclass) | ||
+ | |||
+ | local dataCell = row:tag('td') | ||
+ | dataCell | ||
+ | :attr('colspan', '2') | ||
+ | :addClass('infobox-image') | ||
+ | :addClass(imageArgs.class) | ||
+ | :cssText(imageArgs.datastyle) | ||
+ | :wikitext(fixChildBoxes(imageArgs.data, 'td')) | ||
+ | else | ||
+ | table.insert(empty_row_categories, imageArgs.data or '') | ||
+ | end | ||
end | end | ||
local function renderImages() | 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-<name> .infobox-caption | |
− | + | :cssText(args.captionstyle) | |
− | + | :wikitext(caption) | |
− | + | end | |
− | + | addImageRow({ | |
− | + | data = tostring(data), | |
− | + | -- @deprecated next; target .infobox-<name> .infobox-image | |
− | + | datastyle = args.imagestyle, | |
− | + | class = args.imageclass, | |
+ | rowclass = args['imagerowclass' .. tostring(num)] | ||
+ | }) | ||
+ | end | ||
+ | end | ||
+ | |||
+ | -- When autoheaders are turned on, preprocesses the rows | ||
+ | local function preprocessRows() | ||
+ | if not args.autoheaders then return end | ||
+ | |||
+ | local rownums = union(getArgNums('header'), getArgNums('data')) | ||
+ | table.sort(rownums) | ||
+ | local lastheader | ||
+ | for k, num in ipairs(rownums) do | ||
+ | if args['header' .. tostring(num)] then | ||
+ | if lastheader then | ||
+ | args['header' .. tostring(lastheader)] = nil | ||
+ | end | ||
+ | lastheader = num | ||
+ | elseif args['data' .. tostring(num)] and | ||
+ | args['data' .. tostring(num)]:gsub( | ||
+ | category_in_empty_row_pattern, '' | ||
+ | ):match('^%S') then | ||
+ | local data = args['data' .. tostring(num)] | ||
+ | if data:gsub(category_in_empty_row_pattern, ''):match('%S') then | ||
+ | lastheader = nil | ||
+ | end | ||
+ | end | ||
+ | end | ||
+ | if lastheader then | ||
+ | args['header' .. tostring(lastheader)] = nil | ||
+ | end | ||
end | end | ||
+ | -- Gets the union of the header and data argument numbers, | ||
+ | -- and renders them all in order | ||
local function renderRows() | local function renderRows() | ||
− | + | ||
− | + | local rownums = union(getArgNums('header'), getArgNums('data')) | |
− | + | table.sort(rownums) | |
− | + | for k, num in ipairs(rownums) do | |
− | + | addRow({ | |
− | + | header = args['header' .. tostring(num)], | |
− | + | label = args['label' .. tostring(num)], | |
− | + | data = args['data' .. tostring(num)], | |
− | + | datastyle = args.datastyle, | |
− | + | class = args['class' .. tostring(num)], | |
− | + | rowclass = args['rowclass' .. tostring(num)], | |
− | + | -- @deprecated next; target .infobox-<name> rowclass | |
− | + | rowstyle = args['rowstyle' .. tostring(num)], | |
− | + | rowcellstyle = args['rowcellstyle' .. tostring(num)] | |
− | + | }) | |
− | + | end | |
− | |||
− | |||
− | |||
end | end | ||
local function renderNavBar() | local function renderNavBar() | ||
− | + | if not args.name then return end | |
− | + | ||
− | + | root | |
− | + | :tag('tr') | |
− | + | :tag('td') | |
− | + | :attr('colspan', '2') | |
− | + | :addClass('infobox-navbar') | |
− | + | :wikitext(require('Module:Navbar')._navbar{ | |
− | + | args.name, | |
− | + | mini = 1, | |
− | + | }) | |
end | end | ||
local function renderItalicTitle() | local function renderItalicTitle() | ||
− | + | local italicTitle = args['italic title'] and mw.ustring.lower(args['italic title']) | |
− | + | if italicTitle == '' or italicTitle == 'force' or italicTitle == 'yes' then | |
− | + | root:wikitext(mw.getCurrentFrame():expandTemplate({title = 'italic title'})) | |
− | + | end | |
end | end | ||
+ | -- Categories in otherwise empty rows are collected in empty_row_categories. | ||
+ | -- This function adds them to the module output. It is not affected by | ||
+ | -- args.decat because this module should not prevent module-external categories | ||
+ | -- from rendering. | ||
+ | local function renderEmptyRowCategories() | ||
+ | for _, s in ipairs(empty_row_categories) do | ||
+ | root:wikitext(s) | ||
+ | end | ||
+ | end | ||
+ | |||
+ | -- Render tracking categories. args.decat == turns off tracking categories. | ||
local function renderTrackingCategories() | local function renderTrackingCategories() | ||
− | + | if args.decat == 'yes' then return end | |
− | + | if args.child == 'yes' then | |
− | + | if args.title then | |
− | + | root:wikitext( | |
− | + | '[[Category:Pages which use embedded infobox templates with the title parameter]]' | |
− | + | ) | |
− | + | end | |
− | + | elseif #(getArgNums('data')) == 0 and mw.title.getCurrentTitle().namespace == 0 then | |
+ | root:wikitext('[[Category:Articles which use infobox templates with no data rows]]') | ||
+ | end | ||
end | end | ||
+ | --[=[ | ||
+ | Loads the templatestyles for the infobox. | ||
+ | |||
+ | TODO: load base templatestyles here rather than in MediaWiki:Common.css | ||
+ | We aren't doing it here yet because 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() | ||
+ | |||
+ | -- See function description | ||
+ | -- local base_templatestyles = frame:extensionTag{ | ||
+ | -- name = 'templatestyles', args = { src = cfg.i18n.templatestyles } | ||
+ | -- } | ||
+ | |||
+ | local templatestyles = '' | ||
+ | if args['templatestyles'] then templatestyles = frame:extensionTag{ | ||
+ | name = 'templatestyles', args = { src = args['templatestyles'] } | ||
+ | } | ||
+ | end | ||
+ | |||
+ | local child_templatestyles = '' | ||
+ | if args['child templatestyles'] then child_templatestyles = frame:extensionTag{ | ||
+ | name = 'templatestyles', args = { src = args['child templatestyles'] } | ||
+ | } | ||
+ | end | ||
+ | |||
+ | local grandchild_templatestyles = '' | ||
+ | if args['grandchild templatestyles'] then grandchild_templatestyles = frame:extensionTag{ | ||
+ | name = 'templatestyles', args = { src = args['grandchild templatestyles'] } | ||
+ | } | ||
+ | end | ||
+ | |||
+ | return table.concat({ | ||
+ | -- base_templatestyles, -- see function description | ||
+ | templatestyles, | ||
+ | child_templatestyles, | ||
+ | grandchild_templatestyles | ||
+ | }) | ||
+ | |||
+ | end | ||
+ | |||
+ | -- Specify the overall layout of the infobox, with special settings if the | ||
+ | -- infobox is used as a 'child' inside another infobox. | ||
local function _infobox() | local function _infobox() | ||
− | + | if args.child ~= 'yes' then | |
− | + | root = mw.html.create('table') | |
− | + | ||
− | + | root | |
− | + | :addClass(args.subbox == 'yes' and 'infobox-subbox' or 'infobox') | |
− | + | :addClass(args.bodyclass) | |
− | + | -- @deprecated next; target .infobox-<name> | |
− | + | :cssText(args.bodystyle) | |
− | + | ||
− | + | renderTitle() | |
− | + | renderAboveRow() | |
− | + | else | |
− | + | root = mw.html.create() | |
− | + | ||
− | + | root | |
− | + | :wikitext(args.title) | |
− | + | end | |
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | + | renderSubheaders() | |
− | + | renderImages() | |
− | + | preprocessRows() | |
− | + | renderRows() | |
− | + | renderBelowRow() | |
− | + | renderNavBar() | |
− | + | renderItalicTitle() | |
− | + | renderEmptyRowCategories() | |
− | + | renderTrackingCategories() | |
+ | |||
+ | return loadTemplateStyles() .. tostring(root) | ||
end | end | ||
+ | -- 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) | local function preprocessSingleArg(argName) | ||
− | + | if origArgs[argName] and origArgs[argName] ~= '' then | |
− | + | args[argName] = origArgs[argName] | |
− | + | end | |
− | |||
− | |||
end | end | ||
+ | -- 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) | 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 = 1 -- Counter variable. | |
− | + | local moreArgumentsExist = true | |
− | + | while moreArgumentsExist == true do | |
− | + | moreArgumentsExist = false | |
− | + | for i = a, a + step - 1 do | |
+ | for j,v in ipairs(prefixTable) do | ||
+ | local prefixArgName = v.prefix .. tostring(i) | ||
+ | if origArgs[prefixArgName] then | ||
+ | -- Do another loop if any arguments are found, even blank ones. | ||
+ | moreArgumentsExist = true | ||
+ | preprocessSingleArg(prefixArgName) | ||
+ | end | ||
+ | -- Process the depend table if the prefix argument is present | ||
+ | -- and not blank, or we are processing "prefix1" and "prefix" is | ||
+ | -- present and not blank, and if the depend table is present. | ||
+ | if v.depend and (args[prefixArgName] or (i == 1 and args[v.prefix])) then | ||
+ | for j,dependValue in ipairs(v.depend) do | ||
+ | local dependArgName = dependValue .. tostring(i) | ||
+ | preprocessSingleArg(dependArgName) | ||
+ | end | ||
+ | end | ||
+ | end | ||
+ | end | ||
+ | a = a + step | ||
+ | end | ||
end | end | ||
− | + | ||
+ | -- Parse the data parameters in the same order that the old {{infobox}} 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('autoheaders') | ||
+ | preprocessSingleArg('child') | ||
+ | preprocessSingleArg('bodyclass') | ||
+ | preprocessSingleArg('subbox') | ||
+ | preprocessSingleArg('bodystyle') | ||
+ | preprocessSingleArg('title') | ||
+ | preprocessSingleArg('titleclass') | ||
+ | preprocessSingleArg('titlestyle') | ||
+ | preprocessSingleArg('above') | ||
+ | preprocessSingleArg('aboveclass') | ||
+ | preprocessSingleArg('abovestyle') | ||
+ | preprocessArgs({ | ||
+ | {prefix = 'subheader', depend = {'subheaderstyle', 'subheaderrowclass'}} | ||
+ | }, 10) | ||
+ | preprocessSingleArg('subheaderstyle') | ||
+ | preprocessSingleArg('subheaderclass') | ||
+ | preprocessArgs({ | ||
+ | {prefix = 'image', depend = {'caption', 'imagerowclass'}} | ||
+ | }, 10) | ||
+ | preprocessSingleArg('captionstyle') | ||
+ | preprocessSingleArg('imagestyle') | ||
+ | preprocessSingleArg('imageclass') | ||
+ | preprocessArgs({ | ||
+ | {prefix = 'header'}, | ||
+ | {prefix = 'data', depend = {'label'}}, | ||
+ | {prefix = 'rowclass'}, | ||
+ | {prefix = 'rowstyle'}, | ||
+ | {prefix = 'rowcellstyle'}, | ||
+ | {prefix = 'class'} | ||
+ | }, 50) | ||
+ | preprocessSingleArg('headerclass') | ||
+ | preprocessSingleArg('headerstyle') | ||
+ | preprocessSingleArg('labelstyle') | ||
+ | preprocessSingleArg('datastyle') | ||
+ | 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') | ||
+ | end | ||
+ | |||
+ | -- 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) | function p.infobox(frame) | ||
− | + | if frame == mw.getCurrentFrame() then | |
− | + | origArgs = frame:getParent().args | |
− | + | else | |
− | + | origArgs = frame | |
− | + | end | |
− | + | ||
− | + | parseDataParameters() | |
− | + | ||
− | + | return _infobox() | |
− | + | end | |
− | + | ||
− | + | -- For calling via #invoke within a template | |
− | + | function p.infoboxTemplate(frame) | |
− | + | origArgs = {} | |
− | + | for k,v in pairs(frame.args) do origArgs[k] = mw.text.trim(v) end | |
− | + | ||
− | + | parseDataParameters() | |
− | + | ||
− | + | return _infobox() | |
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
end | end | ||
− | |||
return p | return p |
Latest revision as of 15:55, 6 May 2021
40px | This Lua module is used on approximately 3,710,000 pages, or roughly 134762% of all pages To avoid major disruption and server load, any changes should be tested in the module's /sandbox or /testcases subpages, or in your own module sandbox. The tested changes can be added to this page in a single edit. Consider discussing changes on the talk page before implementing them. |
40x40px | This module is subject to page protection. It is a highly visible module in use by a very large number of pages, or is substituted very frequently. Because vandalism or mistakes would affect many pages, and even trivial editing might cause substantial load on the servers, it is protected from editing. |
30px | This module depends on the following other modules: |
Module:Infobox is a module that implements the {{Infobox}} template. Please see the template page for usage instructions.
Tracking categories
- Category:Pages which use infobox templates with ignored data cells (1)
- Category:Articles which use infobox templates with no data rows (0)
- Category:Pages which use embedded infobox templates with the title parameter (0)
local p = {} local args = {} local origArgs = {} local root local empty_row_categories = {} local category_in_empty_row_pattern = '%[%[%s*[Cc][Aa][Tt][Ee][Gg][Oo][Rr][Yy]%s*:[^]]*]]' local function fixChildBoxes(sval, tt) local function notempty( s ) return s and s:match( '%S' ) end if notempty(sval) then local marker = '<span class=special_infobox_marker>' local s = sval s = mw.ustring.gsub(s, '(<%s*[Tt][Rr])', marker .. '%1') s = mw.ustring.gsub(s, '(</[Tt][Rr]%s*>)', '%1' .. marker) if s:match(marker) then s = mw.ustring.gsub(s, marker .. '%s*' .. marker, '') s = mw.ustring.gsub(s, '([\r\n]|-[^\r\n]*[\r\n])%s*' .. marker, '%1') s = mw.ustring.gsub(s, marker .. '%s*([\r\n]|-)', '%1') s = mw.ustring.gsub(s, '(</[Cc][Aa][Pp][Tt][Ii][Oo][Nn]%s*>%s*)' .. marker, '%1') s = mw.ustring.gsub(s, '(<%s*[Tt][Aa][Bb][Ll][Ee][^<>]*>%s*)' .. marker, '%1') s = mw.ustring.gsub(s, '^(%{|[^\r\n]*[\r\n]%s*)' .. marker, '%1') s = mw.ustring.gsub(s, '([\r\n]%{|[^\r\n]*[\r\n]%s*)' .. marker, '%1') s = mw.ustring.gsub(s, marker .. '(%s*</[Tt][Aa][Bb][Ll][Ee]%s*>)', '%1') s = mw.ustring.gsub(s, marker .. '(%s*\n|%})', '%1') end if s:match(marker) then local subcells = mw.text.split(s, marker) s = '' for k = 1, #subcells do if k == 1 then s = s .. subcells[k] .. '</' .. tt .. '></tr>' elseif k == #subcells then local rowstyle = ' style="display:none"' if notempty(subcells[k]) then rowstyle = '' end s = s .. '<tr' .. rowstyle ..'><' .. tt .. ' colspan=2>\n' .. subcells[k] elseif notempty(subcells[k]) then if (k % 2) == 0 then s = s .. subcells[k] else s = s .. '<tr><' .. tt .. ' colspan=2>\n' .. subcells[k] .. '</' .. tt .. '></tr>' end end end end -- the next two lines add a newline at the end of lists for the PHP parser -- [[Special:Diff/849054481]] -- remove when [[:phab:T191516]] is fixed or OBE s = mw.ustring.gsub(s, '([\r\n][%*#;:][^\r\n]*)$', '%1\n') s = mw.ustring.gsub(s, '^([%*#;:][^\r\n]*)$', '%1\n') s = mw.ustring.gsub(s, '^([%*#;:])', '\n%1') s = mw.ustring.gsub(s, '^(%{%|)', '\n%1') return s else return sval end end -- 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 ret end -- 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 {1, 2, 5}. local function getArgNums(prefix) local nums = {} for k, v in pairs(args) do local num = tostring(k):match('^' .. prefix .. '([1-9]%d*)$') if num then table.insert(nums, tonumber(num)) end end table.sort(nums) return nums end -- Adds a row to the infobox, with either a header cell -- or a label/data cell combination. local function addRow(rowArgs) if rowArgs.header and rowArgs.header ~= '_BLANK_' then root :tag('tr') :addClass(rowArgs.rowclass) :cssText(rowArgs.rowstyle) :tag('th') :attr('colspan', '2') :addClass('infobox-header') :addClass(rowArgs.class) :addClass(args.headerclass) -- @deprecated next; target .infobox-<name> .infobox-header :cssText(args.headerstyle) :cssText(rowArgs.rowcellstyle) :wikitext(fixChildBoxes(rowArgs.header, 'th')) if rowArgs.data then root:wikitext( '[[Category:Pages which use infobox templates with ignored data cells]]' ) end elseif rowArgs.data and rowArgs.data:gsub( category_in_empty_row_pattern, '' ):match('^%S') then local row = root:tag('tr') row:addClass(rowArgs.rowclass) row:cssText(rowArgs.rowstyle) if rowArgs.label then row :tag('th') :attr('scope', 'row') :addClass('infobox-label') -- @deprecated next; target .infobox-<name> .infobox-label :cssText(args.labelstyle) :cssText(rowArgs.rowcellstyle) :wikitext(rowArgs.label) :done() end local dataCell = row:tag('td') dataCell :attr('colspan', not rowArgs.label and '2' or nil) :addClass(not rowArgs.label and 'infobox-full-data' or 'infobox-data') :addClass(rowArgs.class) -- @deprecated next; target .infobox-<name> .infobox(-full)-data :cssText(rowArgs.datastyle) :cssText(rowArgs.rowcellstyle) :wikitext(fixChildBoxes(rowArgs.data, 'td')) else table.insert(empty_row_categories, rowArgs.data or '') end end local function renderTitle() if not args.title then return end root :tag('caption') :addClass('infobox-title') :addClass(args.titleclass) -- @deprecated next; target .infobox-<name> .infobox-title :cssText(args.titlestyle) :wikitext(args.title) end local function renderAboveRow() if not args.above then return end root :tag('tr') :tag('th') :attr('colspan', '2') :addClass('infobox-above') :addClass(args.aboveclass) -- @deprecated next; target .infobox-<name> .infobox-above :cssText(args.abovestyle) :wikitext(fixChildBoxes(args.above,'th')) end local function renderBelowRow() if not args.below then return end root :tag('tr') :tag('td') :attr('colspan', '2') :addClass('infobox-below') :addClass(args.belowclass) -- @deprecated next; target .infobox-<name> .infobox-below :cssText(args.belowstyle) :wikitext(fixChildBoxes(args.below,'td')) end local function addSubheaderRow(subheaderArgs) if subheaderArgs.data and subheaderArgs.data:gsub(category_in_empty_row_pattern, ''):match('^%S') then local row = root:tag('tr') row:addClass(subheaderArgs.rowclass) local dataCell = row:tag('td') dataCell :attr('colspan', '2') :addClass('infobox-subheader') :addClass(subheaderArgs.class) :cssText(subheaderArgs.datastyle) :cssText(subheaderArgs.rowcellstyle) :wikitext(fixChildBoxes(subheaderArgs.data, 'td')) else table.insert(empty_row_categories, subheaderArgs.data or '') end 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({ data = args['subheader' .. tostring(num)], -- @deprecated next; target .infobox-<name> .infobox-subheader datastyle = args.subheaderstyle, rowcellstyle = args['subheaderstyle' .. tostring(num)], class = args.subheaderclass, rowclass = args['subheaderrowclass' .. tostring(num)] }) end end local function addImageRow(imageArgs) if imageArgs.data and imageArgs.data:gsub(category_in_empty_row_pattern, ''):match('^%S') then local row = root:tag('tr') row:addClass(imageArgs.rowclass) local dataCell = row:tag('td') dataCell :attr('colspan', '2') :addClass('infobox-image') :addClass(imageArgs.class) :cssText(imageArgs.datastyle) :wikitext(fixChildBoxes(imageArgs.data, 'td')) else table.insert(empty_row_categories, imageArgs.data or '') end 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-<name> .infobox-caption :cssText(args.captionstyle) :wikitext(caption) end addImageRow({ data = tostring(data), -- @deprecated next; target .infobox-<name> .infobox-image datastyle = args.imagestyle, class = args.imageclass, rowclass = args['imagerowclass' .. tostring(num)] }) end end -- When autoheaders are turned on, preprocesses the rows local function preprocessRows() if not args.autoheaders then return end local rownums = union(getArgNums('header'), getArgNums('data')) table.sort(rownums) local lastheader for k, num in ipairs(rownums) do if args['header' .. tostring(num)] then if lastheader then args['header' .. tostring(lastheader)] = nil end lastheader = num elseif args['data' .. tostring(num)] and args['data' .. tostring(num)]:gsub( category_in_empty_row_pattern, '' ):match('^%S') then local data = args['data' .. tostring(num)] if data:gsub(category_in_empty_row_pattern, ''):match('%S') then lastheader = nil end end end if lastheader then args['header' .. tostring(lastheader)] = nil end end -- Gets the union of the header and data argument numbers, -- and renders them all in order local function renderRows() local rownums = union(getArgNums('header'), getArgNums('data')) table.sort(rownums) for k, num in ipairs(rownums) do addRow({ header = args['header' .. tostring(num)], label = args['label' .. tostring(num)], data = args['data' .. tostring(num)], datastyle = args.datastyle, class = args['class' .. tostring(num)], rowclass = args['rowclass' .. tostring(num)], -- @deprecated next; target .infobox-<name> rowclass rowstyle = args['rowstyle' .. tostring(num)], rowcellstyle = args['rowcellstyle' .. tostring(num)] }) end end local function renderNavBar() if not args.name then return end root :tag('tr') :tag('td') :attr('colspan', '2') :addClass('infobox-navbar') :wikitext(require('Module:Navbar')._navbar{ args.name, mini = 1, }) end local function renderItalicTitle() local italicTitle = args['italic title'] and mw.ustring.lower(args['italic title']) if italicTitle == '' or italicTitle == 'force' or italicTitle == 'yes' then root:wikitext(mw.getCurrentFrame():expandTemplate({title = 'italic title'})) end end -- Categories in otherwise empty rows are collected in empty_row_categories. -- This function adds them to the module output. It is not affected by -- args.decat because this module should not prevent module-external categories -- from rendering. local function renderEmptyRowCategories() for _, s in ipairs(empty_row_categories) do root:wikitext(s) end end -- Render tracking categories. args.decat == turns off tracking categories. local function renderTrackingCategories() if args.decat == 'yes' then return end if args.child == 'yes' then if args.title then root:wikitext( '[[Category:Pages which use embedded infobox templates with the title parameter]]' ) end elseif #(getArgNums('data')) == 0 and mw.title.getCurrentTitle().namespace == 0 then root:wikitext('[[Category:Articles which use infobox templates with no data rows]]') end end --[=[ Loads the templatestyles for the infobox. TODO: load base templatestyles here rather than in MediaWiki:Common.css We aren't doing it here yet because 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() -- See function description -- local base_templatestyles = frame:extensionTag{ -- name = 'templatestyles', args = { src = cfg.i18n.templatestyles } -- } local templatestyles = '' if args['templatestyles'] then templatestyles = frame:extensionTag{ name = 'templatestyles', args = { src = args['templatestyles'] } } end local child_templatestyles = '' if args['child templatestyles'] then child_templatestyles = frame:extensionTag{ name = 'templatestyles', args = { src = args['child templatestyles'] } } end local grandchild_templatestyles = '' if args['grandchild templatestyles'] then grandchild_templatestyles = frame:extensionTag{ name = 'templatestyles', args = { src = args['grandchild templatestyles'] } } end return table.concat({ -- base_templatestyles, -- see function description templatestyles, child_templatestyles, grandchild_templatestyles }) end -- Specify the overall layout of the infobox, with special settings if the -- infobox is used as a 'child' inside another infobox. local function _infobox() if args.child ~= 'yes' then root = mw.html.create('table') root :addClass(args.subbox == 'yes' and 'infobox-subbox' or 'infobox') :addClass(args.bodyclass) -- @deprecated next; target .infobox-<name> :cssText(args.bodystyle) renderTitle() renderAboveRow() else root = mw.html.create() root :wikitext(args.title) end renderSubheaders() renderImages() preprocessRows() renderRows() renderBelowRow() renderNavBar() renderItalicTitle() renderEmptyRowCategories() renderTrackingCategories() return loadTemplateStyles() .. tostring(root) end -- 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] end end -- 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 = 1 -- Counter variable. local moreArgumentsExist = true while moreArgumentsExist == true do moreArgumentsExist = false for i = a, a + step - 1 do for j,v in ipairs(prefixTable) do local prefixArgName = v.prefix .. tostring(i) if origArgs[prefixArgName] then -- Do another loop if any arguments are found, even blank ones. moreArgumentsExist = true preprocessSingleArg(prefixArgName) end -- Process the depend table if the prefix argument is present -- and not blank, or we are processing "prefix1" and "prefix" is -- present and not blank, and if the depend table is present. if v.depend and (args[prefixArgName] or (i == 1 and args[v.prefix])) then for j,dependValue in ipairs(v.depend) do local dependArgName = dependValue .. tostring(i) preprocessSingleArg(dependArgName) end end end end a = a + step end end -- Parse the data parameters in the same order that the old {{infobox}} 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('autoheaders') preprocessSingleArg('child') preprocessSingleArg('bodyclass') preprocessSingleArg('subbox') preprocessSingleArg('bodystyle') preprocessSingleArg('title') preprocessSingleArg('titleclass') preprocessSingleArg('titlestyle') preprocessSingleArg('above') preprocessSingleArg('aboveclass') preprocessSingleArg('abovestyle') preprocessArgs({ {prefix = 'subheader', depend = {'subheaderstyle', 'subheaderrowclass'}} }, 10) preprocessSingleArg('subheaderstyle') preprocessSingleArg('subheaderclass') preprocessArgs({ {prefix = 'image', depend = {'caption', 'imagerowclass'}} }, 10) preprocessSingleArg('captionstyle') preprocessSingleArg('imagestyle') preprocessSingleArg('imageclass') preprocessArgs({ {prefix = 'header'}, {prefix = 'data', depend = {'label'}}, {prefix = 'rowclass'}, {prefix = 'rowstyle'}, {prefix = 'rowcellstyle'}, {prefix = 'class'} }, 50) preprocessSingleArg('headerclass') preprocessSingleArg('headerstyle') preprocessSingleArg('labelstyle') preprocessSingleArg('datastyle') 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') end -- 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 == mw.getCurrentFrame() then origArgs = frame:getParent().args else origArgs = frame end parseDataParameters() return _infobox() end -- For calling via #invoke within a template function p.infoboxTemplate(frame) origArgs = {} for k,v in pairs(frame.args) do origArgs[k] = mw.text.trim(v) end parseDataParameters() return _infobox() end return p