Module:Infobox - Historique des versions

Simon : 1 révision importée

2018-02-07T15:16:00Z

1 révision importée

Nouvelle page

--
-- This module implements {{Infobox}}
--

local p = {}

local navbar = require('Module:Navbar')._navbar

local args = {}
local origArgs
local root

local function notempty( s ) return s and s:match( '%S' ) end

local function fixChildBoxes(sval, tt)
if notempty(sval) then
local marker = '<span class=special_infobox_marker>'
local s = sval
s = mw.ustring.gsub(s, '(<%s*[Tt][Rr])', marker .. '%1')
s = mw.ustring.gsub(s, '(</[Tt][Rr]%s*>)', '%1' .. marker)
if s:match(marker) then
s = mw.ustring.gsub(s, marker .. '%s*' .. marker, '')
s = mw.ustring.gsub(s, '([\r\n]|-[^\r\n]*[\r\n])%s*' .. marker, '%1')
s = mw.ustring.gsub(s, marker .. '%s*([\r\n]|-)', '%1')
s = mw.ustring.gsub(s, '(</[Cc][Aa][Pp][Tt][Ii][Oo][Nn]%s*>%s*)' .. marker, '%1')
s = mw.ustring.gsub(s, '(<%s*[Tt][Aa][Bb][Ll][Ee][^<>]*>%s*)' .. marker, '%1')
s = mw.ustring.gsub(s, '^(%{|[^\r\n]*[\r\n]%s*)' .. marker, '%1')
s = mw.ustring.gsub(s, '([\r\n]%{|[^\r\n]*[\r\n]%s*)' .. marker, '%1')
s = mw.ustring.gsub(s, marker .. '(%s*</[Tt][Aa][Bb][Ll][Ee]%s*>)', '%1')
s = mw.ustring.gsub(s, marker .. '(%s*\n|%})', '%1')
end
if s:match(marker) then
local subcells = mw.text.split(s, marker)
s = ''
for k = 1, #subcells do
if k == 1 then
s = s .. subcells[k] .. '</' .. tt .. '></tr>'
elseif k == #subcells then
local rowstyle = ' style="display:none"'
if notempty(subcells[k]) then rowstyle = '' end
s = s .. '<tr' .. rowstyle ..'><' .. tt .. ' colspan=2>\n' .. subcells[k]
elseif notempty(subcells[k]) then
if (k % 2) == 0 then
s = s .. subcells[k]
else
s = s .. '<tr><' .. tt .. ' colspan=2>\n' .. subcells[k] .. '</' .. tt .. '></tr>'
end
end
end
end
return s
else
return sval
end
end

local function union(t1, t2)
-- Returns the union of the values of two tables, as a sequence.
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

local function getArgNums(prefix)
-- 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 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

local function addRow(rowArgs)
-- Adds a row to the infobox, with either a header cell
-- or a label/data cell combination.
if rowArgs.header then
root
:tag('tr')
:addClass(rowArgs.rowclass)
:cssText(rowArgs.rowstyle)
:attr('id', rowArgs.rowid)
:tag('th')
:attr('colspan', 2)
:attr('id', rowArgs.headerid)
:addClass(rowArgs.class)
:addClass(args.headerclass)
:css('text-align', 'center')
:cssText(args.headerstyle)
:cssText(rowArgs.rowcellstyle)
:wikitext(fixChildBoxes(rowArgs.header, 'th'))
elseif rowArgs.data then
local row = root:tag('tr')
row:addClass(rowArgs.rowclass)
row:cssText(rowArgs.rowstyle)
row:attr('id', rowArgs.rowid)
if rowArgs.label then
row
:tag('th')
:attr('scope', 'row')
:attr('id', rowArgs.labelid)
:cssText(args.labelstyle)
:cssText(rowArgs.rowcellstyle)
:wikitext(rowArgs.label)
:done()
end

local dataCell = row:tag('td')
if not rowArgs.label then
dataCell
:attr('colspan', 2)
:css('text-align', 'center')
end
dataCell
:attr('id', rowArgs.dataid)
:addClass(rowArgs.class)
:cssText(rowArgs.datastyle)
:cssText(rowArgs.rowcellstyle)
:newline()
:wikitext(fixChildBoxes(rowArgs.data, 'td'))
end
end

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

root
:tag('caption')
:addClass(args.titleclass)
:cssText(args.titlestyle)
:wikitext(args.title)
end

local function renderAboveRow()
if not args.above then return end

root
:tag('tr')
:tag('th')
:attr('colspan', 2)
:addClass(args.aboveclass)
:css('text-align', 'center')
:css('font-size', '125%')
:css('font-weight', 'bold')
:cssText(args.abovestyle)
:wikitext(fixChildBoxes(args.above,'th'))
end

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

root
:tag('tr')
:tag('td')
:attr('colspan', '2')
:addClass(args.belowclass)
:css('text-align', 'center')
:cssText(args.belowstyle)
:newline()
:wikitext(fixChildBoxes(args.below,'td'))
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
addRow({
data = args['subheader' .. tostring(num)],
datastyle = args.subheaderstyle or args['subheaderstyle' .. tostring(num)],
class = args.subheaderclass,
rowclass = args['subheaderrowclass' .. tostring(num)]
})
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')
:cssText(args.captionstyle)
:wikitext(caption)
end
addRow({
data = tostring(data),
datastyle = args.imagestyle,
class = args.imageclass,
rowclass = args['imagerowclass' .. tostring(num)]
})
end
end

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'))
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)],
rowstyle = args['rowstyle' .. tostring(num)],
rowcellstyle = args['rowcellstyle' .. tostring(num)],
dataid = args['dataid' .. tostring(num)],
labelid = args['labelid' .. tostring(num)],
headerid = args['headerid' .. tostring(num)],
rowid = args['rowid' .. tostring(num)]
})
end
end

local function renderNavBar()
if not args.name then return end

root
:tag('tr')
:tag('td')
:attr('colspan', '2')
:css('text-align', 'right')
:wikitext(navbar{
args.name,
mini = 1,
})
end

local function renderItalicTitle()
local italicTitle = args['italic title'] and mw.ustring.lower(args['italic title'])
if italicTitle == '' or italicTitle == 'force' or italicTitle == 'yes' then
root:wikitext(mw.getCurrentFrame():expandTemplate({title = 'italic title'}))
end
end

local function renderTrackingCategories()
if args.decat ~= 'yes' then
if #(getArgNums('data')) == 0 and mw.title.getCurrentTitle().namespace == 0 then
root:wikitext('[[Category:Articles which use infobox templates with no data rows]]')
end
if args.child == 'yes' and args.title then
root:wikitext('[[Category:Pages which use embedded infobox templates with the title parameter]]')
end
end
end

local function _infobox()
-- Specify the overall layout of the infobox, with special settings
-- if the infobox is used as a 'child' inside another infobox.
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()
renderImages()
renderRows()
renderBelowRow()
renderNavBar()
renderItalicTitle()
renderTrackingCategories()

return tostring(root)
end

local function preprocessSingleArg(argName)
-- 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.
if origArgs[argName] and origArgs[argName] ~= '' then
args[argName] = origArgs[argName]
end
end

local function preprocessArgs(prefixTable, step)
-- 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.
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
moreArgumentsExist = true -- Do another loop if any arguments are found, even blank ones.
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

function p.infobox(frame)
-- If called via #invoke, use the args passed into the invoking template.
-- Otherwise, for testing purposes, assume args are being passed directly in.
if frame == mw.getCurrentFrame() then
origArgs = frame:getParent().args
else
origArgs = frame
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.
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'},
{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

return p

Arthur : 1 version

2014-07-18T21:58:25Z

1 version

Nouvelle page

--
-- This module implements {{Infobox}}
--

local p = {}

local HtmlBuilder = require('Module:HtmlBuilder')

local args = {}
local origArgs
local root

local function union(t1, t2)
-- Returns the union of the values of two tables, as a sequence.
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

local function getArgNums(prefix)
-- 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 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

local function addRow(rowArgs)
-- Adds a row to the infobox, with either a header cell
-- or a label/data cell combination.
if rowArgs.header then
root
.tag('tr')
.addClass(rowArgs.rowclass)
.attr('id', rowArgs.rowid)
.tag('th')
.attr('colspan', 2)
.attr('id', rowArgs.headerid)
.addClass(rowArgs.class)
.addClass(args.headerclass)
.css('text-align', 'center')
.cssText(args.headerstyle)
.wikitext(rowArgs.header)
elseif rowArgs.data then
local row = root.tag('tr')
row.addClass(rowArgs.rowclass)
row.attr('id', rowArgs.rowid)
if rowArgs.label then
row
.tag('th')
.attr('scope', 'row')
.attr('id', rowArgs.labelid)
.css('text-align', 'left')
.cssText(args.labelstyle)
.wikitext(rowArgs.label)
.done()
end

local dataCell = row.tag('td')
if not rowArgs.label then
dataCell
.attr('colspan', 2)
.css('text-align', 'center')
end
dataCell
.attr('id', rowArgs.dataid)
.addClass(rowArgs.class)
.cssText(rowArgs.datastyle)
.newline()
.wikitext(rowArgs.data)
end
end

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

root
.tag('caption')
.addClass(args.titleclass)
.cssText(args.titlestyle)
.wikitext(args.title)
end

local function renderAboveRow()
if not args.above then return end

root
.tag('tr')
.tag('th')
.attr('colspan', 2)
.addClass(args.aboveclass)
.css('text-align', 'center')
.css('font-size', '125%')
.css('font-weight', 'bold')
.cssText(args.abovestyle)
.wikitext(args.above)
end

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

root
.tag('tr')
.tag('td')
.attr('colspan', '2')
.addClass(args.belowclass)
.css('text-align', 'center')
.cssText(args.belowstyle)
.newline()
.wikitext(args.below)
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
addRow({
data = args['subheader' .. tostring(num)],
datastyle = args.subheaderstyle or args['subheaderstyle' .. tostring(num)],
class = args.subheaderclass,
rowclass = args['subheaderrowclass' .. tostring(num)]
})
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 = HtmlBuilder.create().wikitext(args['image' .. tostring(num)])
if caption then
data
.tag('div')
.cssText(args.captionstyle)
.wikitext(caption)
end
addRow({
data = tostring(data),
datastyle = args.imagestyle,
class = args.imageclass,
rowclass = args['imagerowclass' .. tostring(num)]
})
end
end

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'))
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)],
dataid = args['dataid' .. tostring(num)],
labelid = args['labelid' .. tostring(num)],
headerid = args['headerid' .. tostring(num)],
rowid = args['rowid' .. tostring(num)]
})
end
end

local function renderNavBar()
if not args.name then return end

root
.tag('tr')
.tag('td')
.attr('colspan', '2')
.css('text-align', 'right')
.wikitext(mw.getCurrentFrame():expandTemplate({
title = 'navbar',
args = { args.name, mini = 1 }
}))
end

local function renderItalicTitle()
local italicTitle = args['italic title'] and mw.ustring.lower(args['italic title'])
if italicTitle == '' or italicTitle == 'force' or italicTitle == 'yes' then
root.wikitext(mw.getCurrentFrame():expandTemplate({title = 'italic title'}))
end
end

local function renderTrackingCategories()
if args.decat ~= 'yes' then
if #(getArgNums('data')) == 0 and mw.title.getCurrentTitle().namespace == 0 then
root.wikitext('[[Category:Articles which use infobox templates with no data rows]]')
end
if args.child == 'yes' and args.title then
root.wikitext('[[Category:Articles which use embedded infobox templates with the title parameter]]')
end
end
end

local function _infobox()
-- Specify the overall layout of the infobox, with special settings
-- if the infobox is used as a 'child' inside another infobox.
if args.child ~= 'yes' then
root = HtmlBuilder.create('table')

root
.addClass('infobox')
.addClass(args.bodyclass)
.attr('cellspacing', 3)
.css('border-spacing', '3px')

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 = HtmlBuilder.create()

root
.wikitext(args.title)
end

renderSubheaders()
renderImages()
renderRows()
renderBelowRow()
renderNavBar()
renderItalicTitle()
renderTrackingCategories()

return tostring(root)
end

local function preprocessSingleArg(argName)
-- 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.
if origArgs[argName] and origArgs[argName] ~= '' then
args[argName] = origArgs[argName]
end
end

local function preprocessArgs(prefixTable, step)
-- 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.
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
moreArgumentsExist = true -- Do another loop if any arguments are found, even blank ones.
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

function p.infobox(frame)
-- If called via #invoke, use the args passed into the invoking template.
-- Otherwise, for testing purposes, assume args are being passed directly in.
if frame == mw.getCurrentFrame() then
origArgs = frame:getParent().args
else
origArgs = frame
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.
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 = '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

return p

Arthur : 1 version

2014-05-02T21:57:09Z

1 version

Nouvelle page

local Infobox = {}
local i18n = {
['see doc'] = 'Documentation du modèle',
['edit infobox'] = 'Modifier l\'infobox',
}

function Infobox:new( args )
-- Initialisation de l'object
local object = {
text = "",
isPart = false
}
setmetatable(object, {
__index = Infobox,
__tostring = function( self ) return self:tostring() end
})

if args.isPart then
object.isPart = true
end

-- Ouverture de l'élément principal de l'infobox
if object.isPart then
return object -- On retourne si on construit seulement un module
end

local class = args.class
if class == nil or class == '' then
class = "infobox_v3"
end

local style = args.style

local str = '<div class="' .. class .. '"'
if args.style then
str = str .. ' style= "' .. table.concat( args.style, '; ' ) .. '"'
end

object.text = str .. '>'

return object
end

function Infobox:addTitle( args )
local str = '<p'
if args.class then
str = str .. ' class= "' .. args.class ..'"'
else
str = str .. ' class= "entete"'
end

if args.style then
str = str .. ' style= "' .. table.concat( args.style, '; ' ) .. '"'
end
str = str .. '>'

if args.text and args.text ~= '' then
str = str .. args.text
else
str = str .. mw.title.getCurrentTitle().text
end

self.text = self.text .. str .. '</p>'
end

function Infobox:addText( args )
local str = '<p'
if args.class then
str = str .. ' class= "' .. args.class ..'"'
end

if args.style then
str = str .. ' style= "' .. table.concat( args.style, '; ' ) .. '"'
end
str = str .. '>'

if args.text then
str = str .. args.text
end

self.text = self.text .. str .. '</p>'
end

function Infobox:openTable( args )
local str = '<table'
if args.class then
str = str .. ' class="' .. args.class .. '"'
end

if args.style then
str = str .. ' style= "' .. table.concat( args.style, '; ' ) .. '"'
end
str = str .. '>'

if args.text and args.text ~= '' then
str = str .. '<caption'
if args.styleCaption then
str = str .. ' style= "' .. table.concat( args.styleCaption, '; ' ) .. '"'
end
str = str .. '>' .. args.text .. '</caption>'
end

self.text = self.text .. str
end

function Infobox:closeTable( args )
self.text = self.text .. '</table>'
end

function Infobox:addMixedRow( args )
if not args.value or args.value == '' then
if args.cat then
self.text = self.text .. '[[Catégorie:' .. args.cat .. ']]'-- ajoute catégorie de maintenance
end
return
end
if not args.label then
self.text = self.text .. '<tr><td class="error">Le paramètre label n\'est pas renseigné.</td></tr>'
return
end

local str = '<tr><th scope="row"'
if args.styleHeader then
str = str .. ' style= "' .. table.concat( args.styleHeader, '; ' ) .. '"'
end

self.text = self.text .. str .. '>' .. args.label .. '</th><td>'

if args.hidden and args.hidden == 1 then -- option caché sélectionné: affichage de la valeur sera masqué
self.text = self.text .. '<div class="NavFrame" title="[Afficher]/[Masquer]" style="border: none; padding: 0;"><div class="NavContent" style="display: none; text-align: left;">' .. args.value ..'</div></div></td></tr>'
elseif args.weblink and args.weblink ~= '' then -- option lien externe
self.text = self.text .. '<span class="reflink plainlinksneverexpand">[' .. args.weblink .. args.value .. ' ' .. args.value .. ']</span></td></tr>'
else
self.text = self.text .. args.value .. '</td></tr>' -- affichage normal de la valeur
end
end

function Infobox:addDoubledRow( args )
if not args.value or args.value == '' then
if args.cat then
self.text = self.text .. '[[Catégorie:' .. args.cat .. ']]'-- ajoute catégorie de maintenance
end
return
end
if not args.label then
self.text = self.text .. '<tr><td class="error">Le paramètre label n\'est pas renseigné!!!</td></tr>'
return
end

local str = '<tr><td scope="row" colspan="2"'
if args.styleHeader then
str = str .. ' style= "' .. table.concat( args.styleHeader, '; ' ) .. '"'
end

str = str .. '>' .. args.label .. '</td></tr><tr><td scope="row" colspan="2"'
if args.styleValue then
str = str .. ' style= "' .. table.concat( args.styleValue, '; ' ) .. '"'
end

self.text = self.text .. str .. '>' .. args.value ..'</td></tr>'
end

function Infobox:addImages( args )
--Get images
local images = {}
if not args.images then
return
end
for i,conf in pairs( args.images ) do
if conf.name and conf.name ~= '' then
table.insert( images, conf )
end
end

if not next( images ) then
return --Pas d'images
end
local imagesCount = table.maxn( images )

local str = ''
if imagesCount == 2 then
str = '<div class="image2"'
if args.background then
str = str .. ' style="background: ' .. args.background .. ';"'
end
str = str .. '>'
end

for i,image in pairs( images ) do
-- hack pour enlever puis remettre la catégorie de tracking Wikidata du nom de fichier
local t = mw.text.split( image.name, '[[', true )
local imagename = t[1]
local cat = ''
if t[2] then
cat = '[[' .. t[2]
end
str = str .. cat .. '[[Fichier:' .. imagename .. '|thumb'
if imagesCount == 1 then
str = str .. '|center'
end
if image.upright then
str = str .. '|upright=' .. image.upright
else
str = str .. '|upright=' .. ( 1 / imagesCount )
end
if image.alt then
str = str .. '|alt=' .. image.alt
else
str = str .. '|alt=Description de '
if args.legend then
str = str .. 'cette image, également commentée ci-après'
else
str = str .. 'l\'image ' .. image.name
end
end
str = str .. ']]'
end

if imagesCount == 2 then
str = str .. '</div>'
end

if args.legend then
str = str .. '<p class="legend">' .. args.legend .. '</p>'
end

self.text = self.text .. str
end

function Infobox:addFooter( args )
local templatename = args.templatename
local pagename = mw.title.getCurrentTitle().prefixedText
local class = args.class or ''
local itemlink = ''
if args.item then
itemlink = ' - [[d:' .. args.item .. '|modifier l\'élément Wikidata]]'
end
text = '<p class="navbar noprint ' .. class .. '" style="1px;">'
.. '<span class="plainlinks">'
.. '[' .. tostring( mw.uri.fullUrl( pagename, '&action=edit&section=0' ) ) .. ' ' .. i18n['edit infobox'] .. ']'
.. itemlink
.. '</span>'
.. '[[Image:Gtk-dialog-info.svg|12px|link=' .. templatename .. '|' .. i18n['see doc'] .. ']]'
.. '</p>'
self.text = self.text .. text
end

function Infobox:tostring()
if self.isPart then
return self.text
else
return self.text .. '</div>'
end
end

--Create a style property value from an array CSS property = CSS value
--function formatStyle( args )
-- local elems = {}
-- for key, val in pairs( args ) do
-- table.insert( elems, key .. ':' .. val )
-- end
-- return table.concat( elems, '; ' )
--end

local p = {}
function p.new( args )
return Infobox:new( args )
end
function p.test()
local a = Infobox:new( {} )
a:addTitle( {} )
a:addImages( {
images = {
{
name = 'Pellicule.jpg'
},
{
name = 'Pellicule.jpg'
}
},
legend = 'legend'
} )
a:openTable( {} )
a:addMixedRow( {
label = 'Test',
value = 'test'
} )
a:closeTable( {} )
return tostring(a)
end
return p

Arthur : 1 version

2014-01-26T09:41:57Z

1 version

← Version précédente	Version du 26 janvier 2014 à 11:41
(Aucune différence)

Arthur : 1 version

2014-01-13T21:50:53Z

1 version

Nouvelle page

local Infobox = {}
local i18n = {
['see doc'] = 'Documentation du modèle',
['edit infobox'] = 'Modifier l\'infobox',
}

function Infobox:new( args )
--Object initialisation
local object = {
text = "",
isPart = false
}
setmetatable(object, {
__index = Infobox,
__tostring = function( self ) return self:tostring() end
})

if args.isPart then
object.isPart = true
end

--Open main div
if object.isPart then
return object --On retourne si on construit seulement un module
end

local str = '<div class="'
if args.typeInfobox then
str = str .. args.typeInfobox
else
str = str .. 'infobox_v3'
end
str = str ..'"'
if args.styleInfobox then
str = str .. ' style="' .. args.styleInfobox .. '"'
-- else
--str = str .. ' style="width: ' .. args.width .. '"'
end

local class = args.class
if not class then
class = ""
end

object.text = str .. '>'
return object
end
function Infobox:addText( args )
if args.text then
self.text = self.text .. args.text
end
end

function Infobox:addFooter( args)
local templatename = args.templatename
local pagename = mw.title.getCurrentTitle().prefixedText
local class = args.class
if not class then
class = ""
end
local itemlink = ''
local item = args.item
if item then
itemlink = ' - [[d:' .. item .. '|modifier l\'élément Wikidata]]'
end
text = '<p class="navbar noprint' .. class .. 'style=1px;">'
.. '<span class="plainlinks">'
.. '[' .. tostring(mw.uri.fullUrl(pagename,'&action=edit&section=0')) .. ' ' .. i18n['edit infobox'] .. ']'
.. itemlink
.. '</span>'
.. '[[Image:Gtk-dialog-info.svg|12px|link=' .. templatename .. '|' .. i18n['see doc'] .. ']]'
.. '</p>'
self.text = self.text .. text
end
function Infobox:addTitle( args )
local str = '<p class="entete'
if args.icon then
str = str .. ' icon ' .. args.icon
end
if args.class then
str = str .. ' ' .. args.class
end
str = str .. '"'
if args.background then
local style = {}
style['background-color'] = args.background
if args['border-color'] then
style['border-color'] = args['border-color']
else
style['border-color'] = args.background
end
if args.color then
style['color'] = args.color
end
str = str .. ' style="' .. formatStyle( style ) .. '"'
end
str = str .. '>'
if args.text and args.text ~= '' then
str = str .. args.text
else
str = str .. mw.title.getCurrentTitle().text
end
self.text = self.text .. str .. '</p>'
end

function Infobox:openTable( args )
local str = '<table'
str = str .. '><caption'
if args.class then
str = str .. ' class="' .. args.class .. '"'
end

--Style of the caption
local style = {}
if args.border then
style['border-color'] = args.border
end
if args.background then
style['background'] = args.background
if args.color then
style['color'] = args.color
end
end
if next( style ) then
str = str .. ' style="' .. formatStyle( style ) .. '"'
end

str = str .. '>'
if args.text and args.text ~= '' then
str = str .. args.text
else
str = str .. 'Données clés'
end

self.text = self.text .. str .. '</caption>'
end

function Infobox:closeTable( args )
self.text = self.text .. '</table>'
end

function Infobox:addMixedRow( args )
if not args.value or args.value == '' then
if args.cat then
self.text = self.text .. '[[Catégorie:' .. args.cat .. ']]'-- ajoute catégorie de maintenance
end
return
end
if not args.label then
self.text = self.text .. '<tr><td class="error">Le paramètre label n\'est pas renseigné.</td></tr>'
return
end
local str = '<tr><th scope="row"'
if args.styleHeader then
str = str .. ' style="' .. args.styleHeader .. '"'
end

local style = {}
if args.width then
style['width'] = args.width .. 'em'
end
if next( style ) then
str = str .. ' style="' .. formatStyle( style ) .. '"'
end

self.text = self.text .. str .. '>' .. args.label .. '</th><td>'

if args.hidden and args.hidden == 1 then -- option caché sélectionné: affichage de la valeur sera masqué
self.text = self.text .. '<div class="NavFrame" title="[Afficher]/[Masquer]" style="border: none; padding: 0;"><div class="NavContent" style="display: none; text-align: left;">' .. args.value ..'</div></div></td></tr>'
elseif args.weblink and args.weblink ~= '' then -- option lien externe
self.text = self.text .. '<span class="reflink plainlinksneverexpand">[' .. args.weblink .. args.value .. ' ' .. args.value .. ']</span></td></tr>'
else
self.text = self.text .. args.value .. '</td></tr>' -- affichage normal de la valeur
end
end

function Infobox:addDoubledRow( args )
if not args.value or args.value == '' then
if args.cat then
self.text = self.text .. '[[Catégorie:' .. args.cat .. ']]'-- ajoute catégorie de maintenance
end
return
end
if not args.label then
self.text = self.text .. '<tr><td class="error">Le paramètre label n\'est pas renseigné!!!</td></tr>'
return
end
local str = '<tr><td scope="row" colspan="2"'

if args.styleHeader then -- ajout de format applicable au label
str = str .. ' style="' .. args.styleHeader .. '"'
end

self.text = self.text .. str .. '>' .. args.label .. '</td></tr><tr><td scope="row" colspan="2"'
str = ''
if args.styleValue then -- ajout de format applicable à la valeur
str = str .. ' style="' .. args.styleValue .. '"'
end

self.text = self.text .. str .. '>' .. args.value ..'</td></tr>'
end

function Infobox:addImages( args )
--Get images
local images = {}
if not args.images then
return
end
for i,conf in pairs( args.images ) do
if conf.name and conf.name ~= '' then
table.insert( images, conf )
end
end

if not next( images ) then
return --Pas d'images
end
local imagesCount = table.maxn( images )

local str = ''
if imagesCount == 2 then
str = '<div class="image2"'
if args.background then
str = str .. ' style="background: ' .. args.background .. ';"'
end
str = str .. '>'
end

for i,image in pairs( images ) do
-- hack pour enlever puis remettre la catégorie de tracking Wikidata du nom de fichier
local t = mw.text.split( image.name, '[[', true )
local imagename = t[1]
local cat = ''
if t[2] then
cat = '[[' .. t[2]
end
str = str .. cat .. '[[Fichier:' .. imagename .. '|thumb'
if imagesCount == 1 then
str = str .. '|center'
end
if image.upright then
str = str .. '|upright=' .. image.upright
else
str = str .. '|upright=' .. ( 1 / imagesCount )
end
if image.alt then
str = str .. '|alt=' .. image.alt
else
str = str .. '|alt=Description de '
if args.legend then
str = str .. 'cette image, également commentée ci-après'
else
str = str .. 'l\'image ' .. image.name
end
end
str = str .. ']]'
end

if imagesCount == 2 then
str = str .. '</div>'
end

if args.legend then
str = str .. '<p class="legend">' .. args.legend .. '</p>'
end

self.text = self.text .. str
end

function Infobox:tostring()
if self.isPart then
return self.text
else
return self.text .. '</div>'
end
end

--Create a style property value from an array CSS property = CSS value
function formatStyle( args )
local elems = {}
for key, val in pairs( args ) do
table.insert( elems, key .. ':' .. val )
end
return table.concat( elems, '; ' )
end

local p = {}
function p.new( args )
return Infobox:new( args )
end
function p.test()
local a = Infobox:new( {} )
a:addTitle( {} )
a:addImages( {
images = {
{
name = 'Pellicule.jpg'
},
{
name = 'Pellicule.jpg'
}
},
legend = 'legend'
} )
a:openTable( {} )
a:addMixedRow( {
label = 'Test',
value = 'test'
} )
a:closeTable( {} )
return tostring(a)
end
return p

Arthur : 1 version

2013-08-18T11:45:47Z

1 version

Nouvelle page

local Infobox = {}

function Infobox:new( args )
--Object initialisation
local object = {
text = "",
isPart = false,
entity = nil --Lazy loading of the related Wikidata item
}
setmetatable(object, {
__index = Infobox,
__tostring = function( self ) return self:tostring() end
})

if args.isPart then
object.isPart = true
end

--Open main div
if object.isPart then
return object --On retourne si on construit seulement un module
end

local str = '<div class="infobox_v3 '
if args.class then
str = str .. args.class
end
str = str ..'"'
if args.width then
str = str .. ' style="width: ' .. args.width .. 'em"'
end
object.text = str .. '>'
return object
end

function Infobox:addText( args )
self.text = self.text .. args.text
end

function Infobox:getEntity()
if self.entity == nil then
self.entity = mw.wikibase.getEntity()
end
return self.entity
end

function Infobox:addTitle( args )
local str = '<p class="entete'
if args.icon then
str = str .. ' icon ' .. args.icon
end
if args.class then
str = str .. ' ' .. args.class
end
str = str .. '"'
if args.background then
local style = {}
style['background-color'] = args.background
if args['border-color'] then
style['border-color'] = args['border-color']
else
style['border-color'] = args.background
end
if args.color then
style['color'] = args.color
end
str = str .. ' style="' .. formatStyle( style ) .. '"'
end
str = str .. '>'
if args.text and args.text ~= '' then
str = str .. args.text
else
str = str .. mw.title.getCurrentTitle().text
end
self.text = self.text .. str .. '</p>'
end

function Infobox:openTable( args )
local str = '<table'
str = str .. '><caption'
if args.class then
str = str .. ' class="' .. args.class .. '"'
end

--Style of the caption
local style = {}
if args.border then
style['border-color'] = args.border
end
if args.background then
style['background'] = args.background
if args.color then
style['color'] = args.color
end
end
if next( style ) then
str = str .. ' style="' .. formatStyle( style ) .. '"'
end

str = str .. '>'
if args.text and args.text ~= '' then
str = str .. args.text
else
str = str .. 'Données clés'
end

self.text = self.text .. str .. '</caption>'
end

function Infobox:closeTable( args )
self.text = self.text .. '</table>'
end

function Infobox:addMixedRow( args )

--Get value from Wikidata if needed
if args.property and ( not args.value or args.value == '' ) then
local entity = self:getEntity()
if entity then
local Wikidata = require 'Module:Wikidata'
args.value = Wikidata.formatStatementsFromLua( {
entity = entity,
property = args.property,
rank = args.rank
} )
end
end

if not args.value or args.value == '' then
return
end
if not args.label then
self.text = self.text .. '<tr><td class="error">Le paramètre label n\'est pas renseigné.</td></tr>'
return
end
local str = '<tr><th scope="row"'
if args.class then
str = str .. ' class="' .. args.class .. '"'
end

local style = {}
if args.width then
style['width'] = args.width .. 'em'
end
if next( style ) then
str = str .. ' style="' .. formatStyle( style ) .. '"'
end

self.text = self.text .. str .. '>' .. args.label .. '</th><td>' .. args.value .. '</td></tr>'
end

function Infobox:addImages( args )
--Get images
local images = {}
if not args.images then
return
end
for i,conf in pairs( args.images ) do
if conf.name and conf.name ~= '' then
table.insert( images, conf )
end
end

if not next( images ) then
return --Pas d'images
end
local imagesCount = table.maxn( images )

local str = ''
if imagesCount == 2 then
str = '<div class="image2"'
if args.background then
str = str .. ' style="background: ' .. args.background .. ';"'
end
str = str .. '>'
end

for i,image in pairs( images ) do
str = str .. '[[Fichier:' .. image.name .. '|thumb'
if imagesCount == 1 then
str = str .. '|center'
end
if image.upright then
str = str .. '|upright=' .. image.upright
else
str = str .. '|upright=' .. ( 1 / imagesCount )
end
if image.alt then
str = str .. '|alt=' .. image.alt
else
str = str .. '|alt=Description de '
if args.legend then
str = str .. 'cette image, également commentée ci-après'
else
str = str .. 'l\'image ' .. image.name
end
end
str = str .. ']]'
end

if imagesCount == 2 then
str = str .. '</div>'
end

if args.legend then
str = str .. '<p class="legend">' .. args.legend .. '</p>'
end

self.text = self.text .. str
end

function Infobox:tostring()
if self.isPart then
return self.text
else
return self.text .. '</div>'
end
end

--Create a style property value from an array CSS property = CSS value
function formatStyle( args )
local elems = {}
for key, val in pairs( args ) do
table.insert( elems, key .. ':' .. val )
end
return table.concat( elems, '; ' )
end

local p = {}
function p.new( args )
return Infobox:new( args )
end
function p.test()
local a = Infobox:new( {} )
a:addTitle( {} )
a:addImages( {
images = {
{
name = 'Pellicule.jpg'
},
{
name = 'Pellicule.jpg'
}
},
legend = 'legend'
} )
a:openTable( {} )
a:addMixedRow( {
label = 'Test',
value = 'test'
} )
a:closeTable( {} )
return tostring(a)
end
return p

Module:Infobox - Historique des versions

Simon : 1 révision importée

Arthur : 1 version

Arthur : 1 version

Arthur : 1 version

Arthur : 1 version

Arthur : 1 version

Simon : 1 révision importée

Arthur : 1 version

Arthur : 1 version

Arthur : 1 version

Arthur : 1 version

Arthur : 1 version