Module:Infobox: Difference between revisions

Jump to navigation Jump to search
imported>Gonnym
(Added more options to Italic Title per discussion at Template talk:Infobox#Italics part deux)
m (Protected "Module:Infobox": Important page ([Edit=Allow only administrators] (indefinite) [Move=Allow only administrators] (indefinite)))
 
(27 intermediate revisions by 8 users not shown)
Line 1: Line 1:
--
-- This module implements {{Infobox}}
--
local p = {}
local p = {}
local navbar = require('Module:Navbar')._navbar
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 has_rows = false
local lists = {
plainlist_t = {
patterns = {
'^plainlist$',
'%splainlist$',
'^plainlist%s',
'%splainlist%s'
},
found = false,
styles = 'Plainlist/styles.css'
},
hlist_t = {
patterns = {
'^hlist$',
'%shlist$',
'^hlist%s',
'%shlist%s'
},
found = false,
styles = 'Hlist/styles.css'
}
}


local function notempty( s ) return s and s:match( '%S' ) end
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
end
end


local function fixChildBoxes(sval, tt)
local function fixChildBoxes(sval, tt)
local function notempty( s ) return s and s:match( '%S' ) end
if notempty(sval) then
if notempty(sval) then
local marker = '<span class=special_infobox_marker>'
local marker = '<span class=special_infobox_marker>'
local s = sval
local s = sval
-- start moving templatestyles and categories inside of table rows
local slast = ''
while slast ~= s do
slast = s
s = mw.ustring.gsub(s, '(</[Tt][Rr]%s*>%s*)(%[%[%s*[Cc][Aa][Tt][Ee][Gg][Oo][Rr][Yy]%s*:[^]]*%]%])', '%2%1')
s = mw.ustring.gsub(s, '(</[Tt][Rr]%s*>%s*)(\127[^\127]*UNIQ%-%-templatestyles%-%x+%-QINU[^\127]*\127)', '%2%1')
end
-- end moving templatestyles and categories inside of table rows
s = mw.ustring.gsub(s, '(<%s*[Tt][Rr])', marker .. '%1')
s = mw.ustring.gsub(s, '(<%s*[Tt][Rr])', marker .. '%1')
s = mw.ustring.gsub(s, '(</[Tt][Rr]%s*>)', '%1' .. marker)
s = mw.ustring.gsub(s, '(</[Tt][Rr]%s*>)', '%1' .. marker)
Line 27: Line 69:
s = mw.ustring.gsub(s, '^(%{|[^\r\n]*[\r\n]%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, '([\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*</[Tt][Aa][Bb][Ll][Ee]%s*>)', '%1')
s = mw.ustring.gsub(s, marker .. '(%s*\n|%})', '%1')
s = mw.ustring.gsub(s, marker .. '(%s*\n|%})', '%1')
end
end
if s:match(marker) then
if s:match(marker) then
Line 39: Line 81:
local rowstyle = ' style="display:none"'
local rowstyle = ' style="display:none"'
if notempty(subcells[k]) then rowstyle = '' end
if notempty(subcells[k]) then rowstyle = '' end
s = s .. '<tr' .. rowstyle ..'><' .. tt .. ' colspan=2>\n' .. subcells[k]
s = s .. '<tr' .. rowstyle ..'><' .. tt .. ' colspan=2>\n' ..
subcells[k]
elseif notempty(subcells[k]) then
elseif notempty(subcells[k]) then
if (k % 2) == 0 then
if (k % 2) == 0 then
s = s .. subcells[k]
s = s .. subcells[k]
else
else
s = s .. '<tr><' .. tt .. ' colspan=2>\n' .. subcells[k] .. '</' .. tt .. '></tr>'
s = s .. '<tr><' .. tt .. ' colspan=2>\n' ..
subcells[k] .. '</' .. tt .. '></tr>'
end
end
end
end
Line 50: Line 94:
end
end
-- the next two lines add a newline at the end of lists for the PHP parser
-- the next two lines add a newline at the end of lists for the PHP parser
-- https://en.wikipedia.org/w/index.php?title=Template_talk:Infobox_musical_artist&oldid=849054481
-- [[Special:Diff/849054481]]
-- remove when [[:phab:T191516]] is fixed or OBE
-- 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][%*#;:][^\r\n]*)$', '%1\n')
Line 62: Line 106:
end
end


-- Cleans empty tables
local function cleanInfobox()
root = tostring(root)
if has_rows == false then
root = mw.ustring.gsub(root, '<table[^<>]*>%s*</table>', '')
end
end
-- Returns the union of the values of two tables, as a sequence.
local function union(t1, t2)
local function union(t1, t2)
    -- Returns the union of the values of two tables, as a sequence.
 
    local vals = {}
local vals = {}
    for k, v in pairs(t1) do
for k, v in pairs(t1) do
        vals[v] = true
vals[v] = true
    end
end
    for k, v in pairs(t2) do
for k, v in pairs(t2) do
        vals[v] = true
vals[v] = true
    end
end
    local ret = {}
local ret = {}
    for k, v in pairs(vals) do
for k, v in pairs(vals) do
        table.insert(ret, k)
table.insert(ret, k)
    end
end
    return ret
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)
    -- Returns a table containing the numbers of the arguments that exist
local nums = {}
    -- for the specified prefix. For example, if the prefix was 'data', and
for k, v in pairs(args) do
    -- 'data1', 'data2', and 'data5' exist, it would return {1, 2, 5}.
local num = tostring(k):match('^' .. prefix .. '([1-9]%d*)$')
    local nums = {}
if num then table.insert(nums, tonumber(num)) end
    for k, v in pairs(args) do
end
        local num = tostring(k):match('^' .. prefix .. '([1-9]%d*)$')
table.sort(nums)
        if num then table.insert(nums, tonumber(num)) end
return nums
    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)
    -- Adds a row to the infobox, with either a header cell
    -- or a label/data cell combination.
if rowArgs.header and rowArgs.header ~= '_BLANK_' then
    if rowArgs.header then
has_rows = true
        root
has_list_class({ rowArgs.rowclass, rowArgs.class, args.headerclass })
            :tag('tr')
                :addClass(rowArgs.rowclass)
root
                :cssText(rowArgs.rowstyle)
:tag('tr')
                :attr('id', rowArgs.rowid)
:addClass(rowArgs.rowclass)
                :tag('th')
:cssText(rowArgs.rowstyle)
                    :attr('colspan', 2)
:tag('th')
                    :attr('id', rowArgs.headerid)
:attr('colspan', '2')
                    :addClass(rowArgs.class)
:addClass('infobox-header')
                    :addClass(args.headerclass)
:addClass(rowArgs.class)
                    :css('text-align', 'center')
:addClass(args.headerclass)
                    :cssText(args.headerstyle)
-- @deprecated next; target .infobox-<name> .infobox-header
                    :cssText(rowArgs.rowcellstyle)
:cssText(args.headerstyle)
                    :wikitext(fixChildBoxes(rowArgs.header, 'th'))
:cssText(rowArgs.rowcellstyle)
    elseif rowArgs.data then
:wikitext(fixChildBoxes(rowArgs.header, 'th'))
        local row = root:tag('tr')
if rowArgs.data then
        row:addClass(rowArgs.rowclass)
root:wikitext(
        row:cssText(rowArgs.rowstyle)
'[[Category:Pages using infobox templates with ignored data cells]]'
        row:attr('id', rowArgs.rowid)
)
        if rowArgs.label then
end
            row
elseif rowArgs.data and rowArgs.data:gsub(category_in_empty_row_pattern, ''):match('^%S') then
                :tag('th')
has_rows = true
                    :attr('scope', 'row')
has_list_class({ rowArgs.rowclass, rowArgs.class })
                    :attr('id', rowArgs.labelid)
                    :cssText(args.labelstyle)
local row = root:tag('tr')
                    :cssText(rowArgs.rowcellstyle)
row:addClass(rowArgs.rowclass)
                    :wikitext(rowArgs.label)
row:cssText(rowArgs.rowstyle)
                    :done()
if rowArgs.label then
        end
row
       
:tag('th')
        local dataCell = row:tag('td')
:attr('scope', 'row')
        if not rowArgs.label then
:addClass('infobox-label')
            dataCell
-- @deprecated next; target .infobox-<name> .infobox-label
                :attr('colspan', 2)
:cssText(args.labelstyle)
                :css('text-align', 'center')  
:cssText(rowArgs.rowcellstyle)
        end
:wikitext(rowArgs.label)
        dataCell
:done()
            :attr('id', rowArgs.dataid)
end
            :addClass(rowArgs.class)
 
            :cssText(rowArgs.datastyle)
local dataCell = row:tag('td')
            :cssText(rowArgs.rowcellstyle)
dataCell
            :wikitext(fixChildBoxes(rowArgs.data, 'td'))
:attr('colspan', not rowArgs.label and '2' or nil)
    end
: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
if not args.title then return end


    root
has_rows = true
        :tag('caption')
has_list_class({args.titleclass})
            :addClass(args.titleclass)
            :cssText(args.titlestyle)
root
            :wikitext(args.title)
: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
if not args.above then return end
   
 
    root
has_rows = true
        :tag('tr')
has_list_class({ args.aboveclass })
            :tag('th')
                :attr('colspan', 2)
root
                :addClass(args.aboveclass)
:tag('tr')
                :css('text-align', 'center')
:tag('th')
                :css('font-size', '125%')
:attr('colspan', '2')
                :css('font-weight', 'bold')
:addClass('infobox-above')
                :cssText(args.abovestyle)
:addClass(args.aboveclass)
                :wikitext(fixChildBoxes(args.above,'th'))
-- @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
if not args.below then return end
   
 
    root
has_rows = true
        :tag('tr')
has_list_class({ args.belowclass })
            :tag('td')
                :attr('colspan', '2')
root
                :addClass(args.belowclass)
:tag('tr')
                :css('text-align', 'center')
:tag('td')
                :cssText(args.belowstyle)
:attr('colspan', '2')
                :wikitext(fixChildBoxes(args.below,'td'))
: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
has_rows = true
has_list_class({ subheaderArgs.rowclass, subheaderArgs.class })
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
if args.subheader then
        args.subheader1 = args.subheader
args.subheader1 = args.subheader
    end
end
    if args.subheaderrowclass then
if args.subheaderrowclass then
        args.subheaderrowclass1 = args.subheaderrowclass
args.subheaderrowclass1 = args.subheaderrowclass
    end
end
    local subheadernums = getArgNums('subheader')
local subheadernums = getArgNums('subheader')
    for k, num in ipairs(subheadernums) do
for k, num in ipairs(subheadernums) do
        addRow({
addSubheaderRow({
            data = args['subheader' .. tostring(num)],
data = args['subheader' .. tostring(num)],
            datastyle = args.subheaderstyle,
-- @deprecated next; target .infobox-<name> .infobox-subheader
            rowcellstyle = args['subheaderstyle' .. tostring(num)],
datastyle = args.subheaderstyle,
            class = args.subheaderclass,
rowcellstyle = args['subheaderstyle' .. tostring(num)],
            rowclass = args['subheaderrowclass' .. tostring(num)]
class = args.subheaderclass,
        })
rowclass = args['subheaderrowclass' .. tostring(num)]
    end
})
end
end
 
local function addImageRow(imageArgs)
 
if imageArgs.data and
imageArgs.data:gsub(category_in_empty_row_pattern, ''):match('^%S') then
 
has_rows = true
has_list_class({ imageArgs.rowclass, imageArgs.class })
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
if args.image then
        args.image1 = args.image
args.image1 = args.image
    end
end
    if args.caption then
if args.caption then
        args.caption1 = args.caption
args.caption1 = args.caption
    end
end
    local imagenums = getArgNums('image')
local imagenums = getArgNums('image')
    for k, num in ipairs(imagenums) do
for k, num in ipairs(imagenums) do
        local caption = args['caption' .. tostring(num)]
local caption = args['caption' .. tostring(num)]
        local data = mw.html.create():wikitext(args['image' .. tostring(num)])
local data = mw.html.create():wikitext(args['image' .. tostring(num)])
        if caption then
if caption then
            data
data
                :tag('div')
:tag('div')
                    :cssText(args.captionstyle)
:addClass('infobox-caption')
                    :wikitext(caption)
-- @deprecated next; target .infobox-<name> .infobox-caption
        end
:cssText(args.captionstyle)
        addRow({
:wikitext(caption)
            data = tostring(data),
end
            datastyle = args.imagestyle,
addImageRow({
            class = args.imageclass,
data = tostring(data),
            rowclass = args['imagerowclass' .. tostring(num)]
-- @deprecated next; target .infobox-<name> .infobox-image
        })
datastyle = args.imagestyle,
    end
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()
    -- Gets the union of the header and data argument numbers,
 
    -- and renders them all in order using addRow.
local rownums = union(getArgNums('header'), getArgNums('data'))
    local rownums = union(getArgNums('header'), getArgNums('data'))
table.sort(rownums)
    table.sort(rownums)
for k, num in ipairs(rownums) do
    for k, num in ipairs(rownums) do
addRow({
        addRow({
header = args['header' .. tostring(num)],
            header = args['header' .. tostring(num)],
label = args['label' .. tostring(num)],
            label = args['label' .. tostring(num)],
data = args['data' .. tostring(num)],
            data = args['data' .. tostring(num)],
datastyle = args.datastyle,
            datastyle = args.datastyle,
class = args['class' .. tostring(num)],
            class = args['class' .. tostring(num)],
rowclass = args['rowclass' .. tostring(num)],
            rowclass = args['rowclass' .. tostring(num)],
-- @deprecated next; target .infobox-<name> rowclass
            rowstyle = args['rowstyle' .. tostring(num)],
rowstyle = args['rowstyle' .. tostring(num)],
            rowcellstyle = args['rowcellstyle' .. tostring(num)],
rowcellstyle = args['rowcellstyle' .. tostring(num)]
            dataid = args['dataid' .. tostring(num)],
})
            labelid = args['labelid' .. tostring(num)],
end
            headerid = args['headerid' .. tostring(num)],
            rowid = args['rowid' .. tostring(num)]
        })
    end
end
end


local function renderNavBar()
local function renderNavBar()
    if not args.name then return end
if not args.name then return end
   
 
    root
has_rows = true
        :tag('tr')
root
            :tag('td')
:tag('tr')
                :attr('colspan', '2')
:tag('td')
                :css('text-align', 'right')
:attr('colspan', '2')
                :wikitext(navbar{
:addClass('infobox-navbar')
                    args.name,
:wikitext(require('Module:Navbar')._navbar{
                    mini = 1,
args.name,
                })
mini = 1,
})
end
end


--[[
Function handles the page's title italicization.
-- If the value of "italic title" is set to "force" or "yes", titles with no parentheses () are fully italicised,
and titles which contain parentheses are italicised before the first opening parenthesis.
-- If the value of "italic title" is set to "all", the complete title, including the text in parentheses is italicized.
-- If the value of "italic_string" is entered, instead of italicizing the whole title, it will italicize only some specific text.
-- Note that if the specific text is in the disambiguation then both |italic title=all and |italic_string=<text> will need to be used.
--
-- Optionale combinations:
--- No italics.
--- Italicized page name without disambiguation.
--- Italicized complete page name, including parentheses.
--- Italicized part of the text, not including disambiguation.
--- Italicized part of the text, including parentheses.
--]]
local function renderItalicTitle()
local function renderItalicTitle()
local italicTitleModule = require("Module:Italic title")._main
local italicTitle = args['italic title'] and mw.ustring.lower(args['italic title'])
local italicTitleOption = args['italic title']
if italicTitle == '' or italicTitle == 'force' or italicTitle == 'yes' then
local italicTitleString = args['italic_string']
root:wikitext(require('Module:Italic title')._main({}))
end
end


local italicTitleArg = {}
-- 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


if (italicTitleOption) then
-- Render tracking categories. args.decat == turns off tracking categories.
local italicLowercase = mw.ustring.lower(italicTitleOption)
local function renderTrackingCategories()
if args.decat == 'yes' then return end
if (italicLowercase == "no") then
if args.child == 'yes' then
-- If set to "no" or any other disabling parameter, do nothing.
if args.title then
return
root:wikitext(
elseif (italicLowercase == '' or italicLowercase == 'force' or italicLowercase == 'yes') then
'[[Category:Pages using embedded infobox templates with the title parameter]]'
root:wikitext(italicTitleModule({}))
)
return
elseif (italicLowercase == 'all') then
italicTitleArg.all = "yes"
else
-- Do nothing.
return
end
end
elseif #(getArgNums('data')) == 0 and mw.title.getCurrentTitle().namespace == 0 then
root:wikitext('[[Category:Articles using infobox templates with no data rows]]')
end
end
--[=[
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{
name = 'templatestyles', args = { src = lists.hlist_t.styles }
}
end
end
if (italicTitleString) then
local plainlist_templatestyles = ''
italicTitleArg.string = italicTitleString
if lists.plainlist_t.found then
plainlist_templatestyles = frame:extensionTag{
name = 'templatestyles', args = { src = lists.plainlist_t.styles }
}
end
end
-- See function description
local base_templatestyles = frame:extensionTag{
name = 'templatestyles', args = { src = 'Module:Infobox/styles.css' }
}


root:wikitext(italicTitleModule(italicTitleArg))
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({
-- hlist -> plainlist -> base is best-effort to preserve old Common.css ordering.
-- this ordering is not a guarantee because the rows of interest invoking
-- each class may not be on a specific page
hlist_templatestyles,
plainlist_templatestyles,
base_templatestyles,
templatestyles,
child_templatestyles,
grandchild_templatestyles
})
end
end


local function renderTrackingCategories()
-- common functions between the child and non child cases
    if args.decat ~= 'yes' then
local function structure_infobox_common()
    if args.child == 'yes' then
renderSubheaders()
        if args.title then
renderImages()
            root:wikitext('[[Category:Pages which use embedded infobox templates with the title parameter]]')
preprocessRows()
        end
renderRows()
        elseif #(getArgNums('data')) == 0 and mw.title.getCurrentTitle().namespace == 0 then
renderBelowRow()
            root:wikitext('[[Category:Articles which use infobox templates with no data rows]]')
renderNavBar()
        end
renderItalicTitle()
    end
renderEmptyRowCategories()
renderTrackingCategories()
cleanInfobox()
end
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()
    -- Specify the overall layout of the infobox, with special settings
if args.child ~= 'yes' then
    -- if the infobox is used as a 'child' inside another infobox.
root = mw.html.create('table')
    if args.child ~= 'yes' then
 
        root = mw.html.create('table')
root
       
:addClass(args.subbox == 'yes' and 'infobox-subbox' or 'infobox')
        root
:addClass(args.bodyclass)
            :addClass((args.subbox ~= 'yes') and 'infobox' or nil)
-- @deprecated next; target .infobox-<name>
            :addClass(args.bodyclass)
:cssText(args.bodystyle)
           
            if args.subbox == 'yes' then
has_list_class({ args.bodyclass })
                root
                    :css('padding', '0')
                    :css('border', 'none')
                    :css('margin', '-3px')
                    :css('width', 'auto')
                    :css('min-width', '100%')
                    :css('font-size', '100%')
                    :css('clear', 'none')
                    :css('float', 'none')
                    :css('background-color', 'transparent')
            else
                root
                    :css('width', '22em')
            end
        root
            :cssText(args.bodystyle)
   
        renderTitle()
        renderAboveRow()
    else
        root = mw.html.create()
       
        root
            :wikitext(args.title)
    end


    renderSubheaders()
renderTitle()
    renderImages()  
renderAboveRow()
    renderRows()  
else
    renderBelowRow() 
root = mw.html.create()
    renderNavBar()
 
    renderItalicTitle()
root
    renderTrackingCategories()
:wikitext(args.title)
   
end
    return tostring(root)
structure_infobox_common()
return loadTemplateStyles() .. 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 the argument exists and isn't blank, add it to the argument table.
if origArgs[argName] and origArgs[argName] ~= '' then
    -- Blank arguments are treated as nil to match the behaviour of ParserFunctions.
args[argName] = origArgs[argName]
    if origArgs[argName] and origArgs[argName] ~= '' then
end
        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)
    -- Assign the parameters with the given prefixes to the args table, in order, in batches
if type(prefixTable) ~= 'table' then
    -- of the step size specified. This is to prevent references etc. from appearing in the
error("Non-table value detected for the prefix table", 2)
    -- wrong order. The prefixTable should be an array containing tables, each of which has
end
    -- two possible fields, a "prefix" string and a "depend" table. The function always parses
if type(step) ~= 'number' then
    -- parameters containing the "prefix" string, but only parses parameters in the "depend"
error("Invalid step value detected", 2)
    -- table if the prefix parameter is present and non-blank.
end
    if type(prefixTable) ~= 'table' then
 
        error("Non-table value detected for the prefix table", 2)
-- Get arguments without a number suffix, and check for bad input.
    end
for i,v in ipairs(prefixTable) do
    if type(step) ~= 'number' then
if type(v) ~= 'table' or type(v.prefix) ~= "string" or
        error("Invalid step value detected", 2)
(v.depend and type(v.depend) ~= 'table') then
    end
error('Invalid input detected to preprocessArgs prefix table', 2)
   
end
    -- Get arguments without a number suffix, and check for bad input.
preprocessSingleArg(v.prefix)
    for i,v in ipairs(prefixTable) do
-- Only parse the depend parameter if the prefix parameter is present
        if type(v) ~= 'table' or type(v.prefix) ~= "string" or (v.depend and type(v.depend) ~= 'table') then
-- and not blank.
            error('Invalid input detected to preprocessArgs prefix table', 2)
if args[v.prefix] and v.depend then
        end
for j, dependValue in ipairs(v.depend) do
        preprocessSingleArg(v.prefix)
if type(dependValue) ~= 'string' then
        -- Only parse the depend parameter if the prefix parameter is present and not blank.
error('Invalid "depend" parameter value detected in preprocessArgs')
        if args[v.prefix] and v.depend then
end
            for j, dependValue in ipairs(v.depend) do
preprocessSingleArg(dependValue)
                if type(dependValue) ~= 'string' then
end
                    error('Invalid "depend" parameter value detected in preprocessArgs')
end
                end
end
                preprocessSingleArg(dependValue)
 
            end
-- Get arguments with number suffixes.
        end
local a = 1 -- Counter variable.
    end
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()


    -- Get arguments with number suffixes.
preprocessSingleArg('autoheaders')
    local a = 1 -- Counter variable.
preprocessSingleArg('child')
    local moreArgumentsExist = true
preprocessSingleArg('bodyclass')
    while moreArgumentsExist == true do
preprocessSingleArg('subbox')
        moreArgumentsExist = false
preprocessSingleArg('bodystyle')
        for i = a, a + step - 1 do
preprocessSingleArg('title')
            for j,v in ipairs(prefixTable) do
preprocessSingleArg('titleclass')
                local prefixArgName = v.prefix .. tostring(i)
preprocessSingleArg('titlestyle')
                if origArgs[prefixArgName] then
preprocessSingleArg('above')
                    moreArgumentsExist = true -- Do another loop if any arguments are found, even blank ones.
preprocessSingleArg('aboveclass')
                    preprocessSingleArg(prefixArgName)
preprocessSingleArg('abovestyle')
                end
preprocessArgs({
                -- Process the depend table if the prefix argument is present and not blank, or
{prefix = 'subheader', depend = {'subheaderstyle', 'subheaderrowclass'}}
                -- we are processing "prefix1" and "prefix" is present and not blank, and
}, 10)
                -- if the depend table is present.
preprocessSingleArg('subheaderstyle')
                if v.depend and (args[prefixArgName] or (i == 1 and args[v.prefix])) then
preprocessSingleArg('subheaderclass')
                    for j,dependValue in ipairs(v.depend) do
preprocessArgs({
                        local dependArgName = dependValue .. tostring(i)
{prefix = 'image', depend = {'caption', 'imagerowclass'}}
                        preprocessSingleArg(dependArgName)
}, 10)
                    end
preprocessSingleArg('captionstyle')
                end
preprocessSingleArg('imagestyle')
            end
preprocessSingleArg('imageclass')
        end
preprocessArgs({
        a = a + step
{prefix = 'header'},
    end
{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
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 called via #invoke, use the args passed into the invoking template.
if frame == mw.getCurrentFrame() then
    -- Otherwise, for testing purposes, assume args are being passed directly in.
origArgs = frame:getParent().args
    if frame == mw.getCurrentFrame() then
else
        origArgs = frame:getParent().args
origArgs = frame
    else
end
        origArgs = frame
    end
parseDataParameters()
   
    -- Parse the data parameters in the same order that the old {{infobox}} did, so that
return _infobox()
    -- references etc. will display in the expected places. Parameters that depend on
end
    -- another parameter are only processed if that parameter is present, to avoid
 
    -- phantom references appearing in article reference lists.
-- For calling via #invoke within a template
    preprocessSingleArg('child')
function p.infoboxTemplate(frame)
    preprocessSingleArg('bodyclass')
origArgs = {}
    preprocessSingleArg('subbox')
for k,v in pairs(frame.args) do origArgs[k] = mw.text.trim(v) end
    preprocessSingleArg('bodystyle')
    preprocessSingleArg('title')
parseDataParameters()
    preprocessSingleArg('titleclass')
    preprocessSingleArg('titlestyle')
return _infobox()
    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'},
        {prefix = 'dataid'},
        {prefix = 'labelid'},
        {prefix = 'headerid'},
        {prefix = 'rowid'}
    }, 50)
    preprocessSingleArg('headerclass')
    preprocessSingleArg('headerstyle')
    preprocessSingleArg('labelstyle')
    preprocessSingleArg('datastyle')
    preprocessSingleArg('below')
    preprocessSingleArg('belowclass')
    preprocessSingleArg('belowstyle')
    preprocessSingleArg('name')
args['italic title'] = origArgs['italic title'] -- different behaviour if blank or absent
preprocessSingleArg('italic_string')
preprocessSingleArg('decat')
    return _infobox()
end
end
return p
return p

Latest revision as of 03:19, 15 September 2023

Documentation for this module may be created at Module:Infobox/doc

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 has_rows = false
local lists = {
	plainlist_t = {
		patterns = {
			'^plainlist$',
			'%splainlist$',
			'^plainlist%s',
			'%splainlist%s'
		},
		found = false,
		styles = 'Plainlist/styles.css'
	},
	hlist_t = {
		patterns = {
			'^hlist$',
			'%shlist$',
			'^hlist%s',
			'%shlist%s'
		},
		found = false,
		styles = 'Hlist/styles.css'
	}
}

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

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
		-- start moving templatestyles and categories inside of table rows
		local slast = ''
		while slast ~= s do
			slast = s
			s = mw.ustring.gsub(s, '(</[Tt][Rr]%s*>%s*)(%[%[%s*[Cc][Aa][Tt][Ee][Gg][Oo][Rr][Yy]%s*:[^]]*%]%])', '%2%1')
			s = mw.ustring.gsub(s, '(</[Tt][Rr]%s*>%s*)(\127[^\127]*UNIQ%-%-templatestyles%-%x+%-QINU[^\127]*\127)', '%2%1')
		end
		-- end moving templatestyles and categories inside of table rows
		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

-- Cleans empty tables
local function cleanInfobox()
	root = tostring(root)
	if has_rows == false then
		root = mw.ustring.gsub(root, '<table[^<>]*>%s*</table>', '')
	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
		has_rows = true
		has_list_class({ rowArgs.rowclass, rowArgs.class, args.headerclass })
		
		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 using infobox templates with ignored data cells]]'
			)
		end
	elseif rowArgs.data and rowArgs.data:gsub(category_in_empty_row_pattern, ''):match('^%S') then
		has_rows = true
		has_list_class({ rowArgs.rowclass, rowArgs.class })
		
		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

	has_rows = true
	has_list_class({args.titleclass})
	
	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

	has_rows = true
	has_list_class({ args.aboveclass })
	
	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

	has_rows = true
	has_list_class({ args.belowclass })
	
	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
		has_rows = true
		has_list_class({ subheaderArgs.rowclass, subheaderArgs.class })
		
		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

		has_rows = true
		has_list_class({ imageArgs.rowclass, imageArgs.class })
		
		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

	has_rows = true
	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(require('Module:Italic title')._main({}))
	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 using embedded infobox templates with the title parameter]]'
			)
		end
	elseif #(getArgNums('data')) == 0 and mw.title.getCurrentTitle().namespace == 0 then
		root:wikitext('[[Category:Articles using infobox templates with no data rows]]')
	end
end

--[=[
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{
			name = 'templatestyles', args = { src = lists.hlist_t.styles }
		}
	end
	
	local plainlist_templatestyles = ''
	if lists.plainlist_t.found then
		plainlist_templatestyles = frame:extensionTag{
			name = 'templatestyles', args = { src = lists.plainlist_t.styles }
		}
	end
	
	-- See function description
	local base_templatestyles = frame:extensionTag{
		name = 'templatestyles', args = { src = 'Module:Infobox/styles.css' }
	}

	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({
		-- hlist -> plainlist -> base is best-effort to preserve old Common.css ordering.
		-- this ordering is not a guarantee because the rows of interest invoking
		-- each class may not be on a specific page
		hlist_templatestyles,
		plainlist_templatestyles,
		base_templatestyles,
		templatestyles,
		child_templatestyles,
		grandchild_templatestyles
	})
end

-- common functions between the child and non child cases
local function structure_infobox_common()
	renderSubheaders()
	renderImages()
	preprocessRows()
	renderRows()
	renderBelowRow()
	renderNavBar()
	renderItalicTitle()
	renderEmptyRowCategories()
	renderTrackingCategories()
	cleanInfobox()
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)
		
		has_list_class({ args.bodyclass })

		renderTitle()
		renderAboveRow()
	else
		root = mw.html.create()

		root
			:wikitext(args.title)
	end
	structure_infobox_common()
	
	return loadTemplateStyles() .. 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