Jump to content

Editing Module:Infobox

Warning: You are not logged in. Your IP address will be publicly visible if you make any edits. If you log in or create an account, your edits will be attributed to your username, along with other benefits.

The edit can be undone. Please check the comparison below to verify that this is what you want to do, and then publish the changes below to finish undoing the edit.

Latest revision Your text
Line 1: Line 1:
--
-- This module implements {{Infobox}}
--
local p = {}
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 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
local function getArgNums(args, prefix)
-- for the specified prefix. For example, if the prefix was 'data', and
    -- Returns a table containing the numbers of the arguments that exist
-- 'data1', 'data2', and 'data5' exist, it would return {1, 2, 5}.
    -- for the specified prefix. For example, if the prefix was 'data', and
local function getArgNums(prefix)
    -- 'data1', 'data2', and 'data5' exist, it would return {1, 2, 5}.
local nums = {}
    local nums = {}
for k, v in pairs(args) do
    for k, v in pairs(args) do
local num = tostring(k):match('^' .. prefix .. '([1-9]%d*)$')
        local num = tostring(k):match('^' .. prefix .. '([1-9]%d*)$')
if num then table.insert(nums, tonumber(num)) end
        if num then table.insert(nums, tonumber(num)) end
end
    end
table.sort(nums)
    table.sort(nums)
return nums
    return nums
end
end


-- Adds a row to the infobox, with either a header cell
local function addRow(root, args, rowArgs)
-- or a label/data cell combination.
    -- Adds a row to the infobox, with either a header cell
local function addRow(rowArgs)
    -- or a label/data cell combination.
    if rowArgs.header then
if rowArgs.header and rowArgs.header ~= '_BLANK_' then
        root
has_rows = true
            :tag('tr')
has_list_class({ rowArgs.rowclass, rowArgs.class, args.headerclass })
                :addClass(rowArgs.rowclass)
                :cssText(rowArgs.rowstyle)
root
                :attr('id', rowArgs.rowid)
:tag('tr')
                :tag('th')
:addClass(rowArgs.rowclass)
                    :attr('colspan', 2)
:cssText(rowArgs.rowstyle)
                    :attr('id', rowArgs.headerid)
:tag('th')
                    :addClass(rowArgs.class)
:attr('colspan', '2')
                    :addClass(args.headerclass)
:addClass('infobox-header')
                    :css('text-align', 'center')
:addClass(rowArgs.class)
                    :cssText(args.headerstyle)
:addClass(args.headerclass)
                    :wikitext(rowArgs.header)
-- @deprecated next; target .infobox-<name> .infobox-header
    elseif rowArgs.data then
:cssText(args.headerstyle)
        local row = root:tag('tr')
:cssText(rowArgs.rowcellstyle)
        row:addClass(rowArgs.rowclass)
:wikitext(fixChildBoxes(rowArgs.header, 'th'))
        row:cssText(rowArgs.rowstyle)
if rowArgs.data then
        row:attr('id', rowArgs.rowid)
root:wikitext(
        if rowArgs.label then
'[[Category:Pages using infobox templates with ignored data cells]]'
            row
)
                :tag('th')
end
                    :attr('scope', 'row')
elseif rowArgs.data and rowArgs.data:gsub(category_in_empty_row_pattern, ''):match('^%S') then
                    :attr('id', rowArgs.labelid)
has_rows = true
                    :css('text-align', 'left')
has_list_class({ rowArgs.rowclass, rowArgs.class })
                    :cssText(args.labelstyle)
                    :wikitext(rowArgs.label)
local row = root:tag('tr')
                    :done()
row:addClass(rowArgs.rowclass)
        end
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')
        local dataCell = row:tag('td')
dataCell
        if not rowArgs.label then
:attr('colspan', not rowArgs.label and '2' or nil)
            dataCell
:addClass(not rowArgs.label and 'infobox-full-data' or 'infobox-data')
                :attr('colspan', 2)
:addClass(rowArgs.class)
                :css('text-align', 'center')
-- @deprecated next; target .infobox-<name> .infobox(-full)-data
        end
:cssText(rowArgs.datastyle)
        dataCell
:cssText(rowArgs.rowcellstyle)
            :attr('id', rowArgs.dataid)
:wikitext(fixChildBoxes(rowArgs.data, 'td'))
            :addClass(rowArgs.class)
else
            :cssText(rowArgs.datastyle)
table.insert(empty_row_categories, rowArgs.data or '')
            :newline()
end
            :wikitext(rowArgs.data)
    end
end
end


local function renderTitle()
local function renderTitle(root, args)
if not args.title then return end
    if not args.title then return end


has_rows = true
    root
has_list_class({args.titleclass})
        :tag('caption')
            :addClass(args.titleclass)
root
            :cssText(args.titlestyle)
:tag('caption')
            :wikitext(args.title)
: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(root, args)
if not args.above then return end
    if not args.above then return end


has_rows = true
    root
has_list_class({ args.aboveclass })
        :tag('tr')
            :tag('th')
root
                :attr('colspan', 2)
:tag('tr')
                :addClass(args.aboveclass)
:tag('th')
                :css('text-align', 'center')
:attr('colspan', '2')
                :css('font-size', '125%')
:addClass('infobox-above')
                :css('font-weight', 'bold')
:addClass(args.aboveclass)
                :cssText(args.abovestyle)
-- @deprecated next; target .infobox-<name> .infobox-above
                :wikitext(args.above)
:cssText(args.abovestyle)
:wikitext(fixChildBoxes(args.above,'th'))
end
end


local function renderBelowRow()
local function renderBelowRow(root, args)
if not args.below then return end
    if not args.below then return end


has_rows = true
    root
has_list_class({ args.belowclass })
        :tag('tr')
            :tag('td')
root
                :attr('colspan', '2')
:tag('tr')
                :addClass(args.belowclass)
:tag('td')
                :css('text-align', 'center')
:attr('colspan', '2')
                :cssText(args.belowstyle)
:addClass('infobox-below')
                :newline()
:addClass(args.belowclass)
                :wikitext(args.below)
-- @deprecated next; target .infobox-<name> .infobox-below
:cssText(args.belowstyle)
:wikitext(fixChildBoxes(args.below,'td'))
end
end


local function addSubheaderRow(subheaderArgs)
local function renderSubheaders(root, args)
if subheaderArgs.data and
    if args.subheader then
subheaderArgs.data:gsub(category_in_empty_row_pattern, ''):match('^%S') then
        args.subheader1 = args.subheader
has_rows = true
    end
has_list_class({ subheaderArgs.rowclass, subheaderArgs.class })
    if args.subheaderrowclass then
        args.subheaderrowclass1 = args.subheaderrowclass
local row = root:tag('tr')
    end
row:addClass(subheaderArgs.rowclass)
    local subheadernums = getArgNums(args, 'subheader')
 
    for k, num in ipairs(subheadernums) do
local dataCell = row:tag('td')
        addRow(root, args, {
dataCell
            data = args['subheader' .. tostring(num)],
:attr('colspan', '2')
            datastyle = args.subheaderstyle or args['subheaderstyle' .. tostring(num)],
:addClass('infobox-subheader')
            class = args.subheaderclass,
:addClass(subheaderArgs.class)
            rowclass = args['subheaderrowclass' .. tostring(num)]
:cssText(subheaderArgs.datastyle)
        })
:cssText(subheaderArgs.rowcellstyle)
    end
:wikitext(fixChildBoxes(subheaderArgs.data, 'td'))
else
table.insert(empty_row_categories, subheaderArgs.data or '')
end
end
end


local function renderSubheaders()
local function renderImages(root, args)
if args.subheader then
    if args.image then
args.subheader1 = args.subheader
        args.image1 = args.image
end
    end
if args.subheaderrowclass then
    if args.caption then
args.subheaderrowclass1 = args.subheaderrowclass
        args.caption1 = args.caption
end
    end
local subheadernums = getArgNums('subheader')
    local imagenums = getArgNums(args, 'image')
for k, num in ipairs(subheadernums) do
    for k, num in ipairs(imagenums) do
addSubheaderRow({
        local caption = args['caption' .. tostring(num)]
data = args['subheader' .. tostring(num)],
        local data = mw.html.create():wikitext(args['image' .. tostring(num)])
-- @deprecated next; target .infobox-<name> .infobox-subheader
        if caption then
datastyle = args.subheaderstyle,
            data
rowcellstyle = args['subheaderstyle' .. tostring(num)],
                :tag('div')
class = args.subheaderclass,
                    :cssText(args.captionstyle)
rowclass = args['subheaderrowclass' .. tostring(num)]
                    :wikitext(caption)
})
        end
end
        addRow(root, args, {
            data = tostring(data),
            datastyle = args.imagestyle,
            class = args.imageclass,
            rowclass = args['imagerowclass' .. tostring(num)]
        })
    end
end
end


local function addImageRow(imageArgs)
local function renderRows(root, args)
 
    -- Gets the union of the header and data argument numbers,
if imageArgs.data and
    -- and renders them all in order using addRow.
imageArgs.data:gsub(category_in_empty_row_pattern, ''):match('^%S') then
    local rownums = union(getArgNums(args, 'header'), getArgNums(args, 'data'))
 
    table.sort(rownums)
has_rows = true
    for k, num in ipairs(rownums) do
has_list_class({ imageArgs.rowclass, imageArgs.class })
        addRow(root, args, {
            header = args['header' .. tostring(num)],
local row = root:tag('tr')
            label = args['label' .. tostring(num)],
row:addClass(imageArgs.rowclass)
            data = args['data' .. tostring(num)],
 
            datastyle = args.datastyle,
local dataCell = row:tag('td')
            class = args['class' .. tostring(num)],
dataCell
            rowclass = args['rowclass' .. tostring(num)],
:attr('colspan', '2')
            rowstyle = args['rowstyle' .. tostring(num)],
:addClass('infobox-image')
            dataid = args['dataid' .. tostring(num)],
:addClass(imageArgs.class)
            labelid = args['labelid' .. tostring(num)],
:cssText(imageArgs.datastyle)
            headerid = args['headerid' .. tostring(num)],
:wikitext(fixChildBoxes(imageArgs.data, 'td'))
            rowid = args['rowid' .. tostring(num)]
else
        })
table.insert(empty_row_categories, imageArgs.data or '')
    end
end
end
end


local function renderImages()
local function renderNavBar(root, args)
if args.image then
    if not args.name then return end
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
    root
local function preprocessRows()
        :tag('tr')
if not args.autoheaders then return end
            :tag('td')
                :attr('colspan', '2')
local rownums = union(getArgNums('header'), getArgNums('data'))
                :css('text-align', 'right')
table.sort(rownums)
                :wikitext(require('Module:Navbar')._navbar{
local lastheader
                    args.name,
for k, num in ipairs(rownums) do
                    mini = 1,
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,
local function renderItalicTitle(root, args)
-- and renders them all in order
    local italicTitle = args['italic title'] and mw.ustring.lower(args['italic title'])
local function renderRows()
    if italicTitle == '' or italicTitle == 'force' or italicTitle == 'yes' then
 
        root:wikitext(mw.getCurrentFrame():expandTemplate({title = 'italic title'}))
local rownums = union(getArgNums('header'), getArgNums('data'))
    end
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 renderTrackingCategories(root, args)
if not args.name then return end
    if args.decat ~= 'yes' then
 
        if #(getArgNums(args, 'data')) == 0 and mw.title.getCurrentTitle().namespace == 0 then
has_rows = true
            root:wikitext('[[Category:Articles which use infobox templates with no data rows]]')
root
        end
:tag('tr')
        if args.child == 'yes' and args.title then
:tag('td')
            root:wikitext('[[Category:Pages which use embedded infobox templates with the title parameter]]')
:attr('colspan', '2')
        end
:addClass('infobox-navbar')
    end
:wikitext(require('Module:Navbar')._navbar{
args.name,
mini = 1,
})
end
end


local function renderItalicTitle()
function p.infobox(frame)
local italicTitle = args['italic title'] and mw.ustring.lower(args['italic title'])
    local args = require('Module:Arguments').getArgs(frame, { wrappers = 'Template:Infobox', valueFunc = function(k, v)
if italicTitle == '' or italicTitle == 'force' or italicTitle == 'yes' then
    if v ~= '' or k == 'italic title' then
root:wikitext(require('Module:Italic title')._main({}))
    return v
end
    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()
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 = ''
    -- Specify the overall layout of the infobox, with special settings
if args['templatestyles'] then
    -- if the infobox is used as a 'child' inside another infobox.
templatestyles = frame:extensionTag{
    local root
name = 'templatestyles', args = { src = args['templatestyles'] }
    if args.child ~= 'yes' then
}
        root = mw.html.create('table')
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
        root
local function structure_infobox_common()
            :addClass('infobox')
renderSubheaders()
            :addClass(args.bodyclass)
renderImages()
preprocessRows()
renderRows()
renderBelowRow()
renderNavBar()
renderItalicTitle()
renderEmptyRowCategories()
renderTrackingCategories()
cleanInfobox()
end


-- Specify the overall layout of the infobox, with special settings if the
            if args.subbox == 'yes' then
-- infobox is used as a 'child' inside another infobox.
                root
local function _infobox()
                    :css('padding', '0')
if args.child ~= 'yes' then
                    :css('border', 'none')
root = mw.html.create('table')
                    :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)


root
        renderTitle(root, args)
:addClass(args.subbox == 'yes' and 'infobox-subbox' or 'infobox')
        renderAboveRow(root, args)
:addClass(args.bodyclass)
    else
-- @deprecated next; target .infobox-<name>
        root = mw.html.create()
:cssText(args.bodystyle)
has_list_class({ args.bodyclass })


renderTitle()
        root
renderAboveRow()
            :wikitext(args.title)
else
    end
root = mw.html.create()


root
    renderSubheaders(root, args)
:wikitext(args.title)
    renderImages(root, args)
end
    renderRows(root, args)
structure_infobox_common()
    renderBelowRow(root, args)
    renderNavBar(root, args)
return loadTemplateStyles() .. root
    renderItalicTitle(root, args)
end
    renderTrackingCategories(root, args)


-- If the argument exists and isn't blank, add it to the argument table.
    return tostring(root)
-- 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
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
return p
Please note that all contributions to BRUS Wikipedia may be edited, altered, or removed by other contributors. If you do not want your writing to be edited mercilessly, then do not submit it here.
You are also promising us that you wrote this yourself, or copied it from a public domain or similar free resource (see BRUS Wikipedia:Copyrights for details). Do not submit copyrighted work without permission!
Cancel Editing help (opens in new window)
Preview page with this template

Template used on this page:

Retrieved from "https://brus.skywiki.org/wiki/Module:Infobox"