Module:Liste éléments
Ce module Lua est utilisé par le modèle {{Liste éléments}}.
local p = {}
function p.main(frame)
-- http://lua-users.org/wiki/StringTrim
local function trim(s)
return s:match('^()%s*$') and '' or s:match('^%s*(.*%S)')
end
local args = frame:getParent().args
local function getParam(name, default)
if args[name] ~= nil and args[name] ~= '' then
return args[name]
else
return default -- nil si non spécifié
end
end
local paramSep = getParam('séparateur', getParam('sép', '·'))
local espaces = tonumber(getParam('espaces', '1'))
local glue
if paramSep == ',' then
glue = ', '
elseif mw.text.unstripNoWiki(paramSep) == ' ' or paramSep == ' ' then -- {{espace}}
if espaces == 0 then
glue = ''
else
glue = string.rep('\194\160', espaces - 1) .. paramSep
end
elseif paramSep == ' ' or paramSep == ' ' then
glue = string.rep(paramSep, espaces)
elseif paramSep == '2·' or paramSep == '·2' then
-- '\194\160' est une espace insécable (code UTF-8 sur deux octets)
glue = '\194\160\194\160<span class="sep-liste">·</span>\194\160 '
elseif paramSep == '2•' or paramSep == '•2' then
glue = '\194\160\194\160•\194\160 '
else
if paramSep == '·' then
paramSep = '<span class="sep-liste">·</span>'
elseif paramSep == '-' then
paramSep = '–' -- tiret demi-cadratin
end
if espaces == 0 then
glue = paramSep
else
glue = string.rep('\194\160', espaces) .. paramSep .. string.rep('\194\160', espaces - 1) .. ' '
end
end
local secable = (args['sécable'] == 'oui')
local items = {}
for i,v in ipairs(args) do
local item = trim(v)
if item ~= '' then
if not secable then
items[#items+1] = '<span class="nowrap">' .. item .. '</span>'
else
items[#items+1] = item
end
end
end
return table.concat(items, glue)
end
return p