Rhythm Doctor Wiki

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 navbar = require('Module:Navbar')._navbar
local args = {}
local args = {}
local origArgs
local origArgs = {}
local root
local root
 
local empty_row_categories = {}
local function notempty( s ) return s and s:match( '%S' ) end
local category_in_empty_row_pattern = '%[%[%s*[Cc][Aa][Tt][Ee][Gg][Oo][Rr][Yy]%s*:[^]]*]]'
local has_rows = false


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 31:
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 43:
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 56:
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 68:
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
root
            :tag('tr')
:tag('tr')
                :addClass(rowArgs.rowclass)
:addClass(rowArgs.rowclass)
                :cssText(rowArgs.rowstyle)
:cssText(rowArgs.rowstyle)
                :attr('id', rowArgs.rowid)
:tag('th')
                :tag('th')
:attr('colspan', '2')
                    :attr('colspan', 2)
:addClass('infobox-header')
                    :attr('id', rowArgs.headerid)
:addClass(rowArgs.class)
                    :addClass(rowArgs.class)
:addClass(args.headerclass)
                    :addClass(args.headerclass)
-- @deprecated next; target .infobox-<name> .infobox-header
                    :css('text-align', 'center')
:cssText(args.headerstyle)
                    :cssText(args.headerstyle)
:cssText(rowArgs.rowcellstyle)
                    :cssText(rowArgs.rowcellstyle)
:wikitext(fixChildBoxes(rowArgs.header, 'th'))
                    :wikitext(fixChildBoxes(rowArgs.header, 'th'))
if rowArgs.data then
    elseif rowArgs.data then
root:wikitext(
        local row = root:tag('tr')
'[[Category:Pages using infobox templates with ignored data cells]]'
        row:addClass(rowArgs.rowclass)
)
        row:cssText(rowArgs.rowstyle)
end
        row:attr('id', rowArgs.rowid)
elseif rowArgs.data and rowArgs.data:gsub(
        if rowArgs.label then
category_in_empty_row_pattern, ''
            row
):match('^%S') then
                :tag('th')
has_rows = true
                    :attr('scope', 'row')
local row = root:tag('tr')
                    :attr('id', rowArgs.labelid)
row:addClass(rowArgs.rowclass)
                    :cssText(args.labelstyle)
row:cssText(rowArgs.rowstyle)
                    :cssText(rowArgs.rowcellstyle)
if rowArgs.label then
                    :wikitext(rowArgs.label)
row
                    :done()
:tag('th')
        end
:attr('scope', 'row')
       
:addClass('infobox-label')
        local dataCell = row:tag('td')
-- @deprecated next; target .infobox-<name> .infobox-label
        if not rowArgs.label then
:cssText(args.labelstyle)
            dataCell
:cssText(rowArgs.rowcellstyle)
                :attr('colspan', 2)
:wikitext(rowArgs.label)
                :css('text-align', 'center')  
:done()
        end
end
        dataCell
 
            :attr('id', rowArgs.dataid)
local dataCell = row:tag('td')
            :addClass(rowArgs.class)
dataCell
            :cssText(rowArgs.datastyle)
:attr('colspan', not rowArgs.label and '2' or nil)
            :cssText(rowArgs.rowcellstyle)
:addClass(not rowArgs.label and 'infobox-full-data' or 'infobox-data')
            :wikitext(fixChildBoxes(rowArgs.data, 'td'))
:addClass(rowArgs.class)
    end
-- @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')
root
            :addClass(args.titleclass)
:tag('caption')
            :cssText(args.titlestyle)
:addClass('infobox-title')
            :wikitext(args.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')
root
            :tag('th')
:tag('tr')
                :attr('colspan', 2)
:tag('th')
                :addClass(args.aboveclass)
:attr('colspan', '2')
                :css('text-align', 'center')
:addClass('infobox-above')
                :css('font-size', '125%')
:addClass(args.aboveclass)
                :css('font-weight', 'bold')
-- @deprecated next; target .infobox-<name> .infobox-above
                :cssText(args.abovestyle)
:cssText(args.abovestyle)
                :wikitext(fixChildBoxes(args.above,'th'))
: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')
root
            :tag('td')
:tag('tr')
                :attr('colspan', '2')
:tag('td')
                :addClass(args.belowclass)
:attr('colspan', '2')
                :css('text-align', 'center')
:addClass('infobox-below')
                :cssText(args.belowstyle)
:addClass(args.belowclass)
                :wikitext(fixChildBoxes(args.below,'td'))
-- @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
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
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
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 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


local function renderItalicTitle()
local function renderItalicTitle()
    local italicTitle = args['italic title'] and mw.ustring.lower(args['italic title'])
local italicTitle = args['italic title'] and mw.ustring.lower(args['italic title'])
    if italicTitle == '' or italicTitle == 'force' or italicTitle == 'yes' then
if italicTitle == '' or italicTitle == 'force' or italicTitle == 'yes' then
        root:wikitext(mw.getCurrentFrame():expandTemplate({title = 'italic title'}))
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
end


-- Render tracking categories. args.decat == turns off tracking categories.
local function renderTrackingCategories()
local function renderTrackingCategories()
    if args.decat ~= 'yes' then
if args.decat == 'yes' then return end
    if args.child == 'yes' then
if args.child == 'yes' then
        if args.title then
if args.title then
            root:wikitext('[[Category:Pages which use embedded infobox templates with the title parameter]]')
root:wikitext(
        end
'[[Category:Pages using embedded infobox templates with the title parameter]]'
        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
elseif #(getArgNums('data')) == 0 and mw.title.getCurrentTitle().namespace == 0 then
    end
root:wikitext('[[Category:Articles using infobox templates with no data rows]]')
end
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()
-- 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({
base_templatestyles, -- see function description
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()
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' or nil)
            :addClass(args.bodyclass)
           
            if args.subbox == 'yes' then
                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()
root
    renderImages()  
:addClass(args.subbox == 'yes' and 'infobox-subbox' or 'infobox')
    renderRows()  
:addClass(args.bodyclass)
    renderBelowRow()
-- @deprecated next; target .infobox-<name>
    renderNavBar()
:cssText(args.bodystyle)
    renderItalicTitle()
 
    renderTrackingCategories()
renderTitle()
   
renderAboveRow()
    return tostring(root)
else
root = mw.html.create()
 
root
:wikitext(args.title)
end
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
        end
    end


    -- Get arguments with number suffixes.
-- Get arguments with number suffixes.
    local a = 1 -- Counter variable.
local a = 1 -- Counter variable.
    local moreArgumentsExist = true
local moreArgumentsExist = true
    while moreArgumentsExist == true do
while moreArgumentsExist == true do
        moreArgumentsExist = false
moreArgumentsExist = false
        for i = a, a + step - 1 do
for i = a, a + step - 1 do
            for j,v in ipairs(prefixTable) do
for j,v in ipairs(prefixTable) do
                local prefixArgName = v.prefix .. tostring(i)
local prefixArgName = v.prefix .. tostring(i)
                if origArgs[prefixArgName] then
if origArgs[prefixArgName] then
                    moreArgumentsExist = true -- Do another loop if any arguments are found, even blank ones.
-- Do another loop if any arguments are found, even blank ones.
                    preprocessSingleArg(prefixArgName)
moreArgumentsExist = true
                end
preprocessSingleArg(prefixArgName)
                -- Process the depend table if the prefix argument is present and not blank, or
end
                -- we are processing "prefix1" and "prefix" is present and not blank, and
-- Process the depend table if the prefix argument is present
                -- if the depend table is present.
-- and not blank, or we are processing "prefix1" and "prefix" is
                if v.depend and (args[prefixArgName] or (i == 1 and args[v.prefix])) then
-- present and not blank, and if the depend table is present.
                    for j,dependValue in ipairs(v.depend) do
if v.depend and (args[prefixArgName] or (i == 1 and args[v.prefix])) then
                        local dependArgName = dependValue .. tostring(i)
for j,dependValue in ipairs(v.depend) do
                        preprocessSingleArg(dependArgName)
local dependArgName = dependValue .. tostring(i)
                    end
preprocessSingleArg(dependArgName)
                end
end
            end
end
        end
end
        a = a + step
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 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('decat')
    return _infobox()
end
end
return p
return p
Please note that all contributions to Rhythm Doctor Wiki are considered to be released under the Creative Commons Attribution-ShareAlike (see RDWiki:Copyrights for details). If you do not want your writing to be edited mercilessly and redistributed at will, 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. Do not submit copyrighted work without permission!
Cancel Editing help (opens in new window)

Template used on this page:

Retrieved from "https://wiki.rhythm.cafe/page/Module:Infobox"