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 -- Modèle: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·\194\160 '
   elseif paramSep == '2•' or paramSep == '•2' then
       glue = '\194\160\194\160•\194\160 '
   else
       if paramSep == '·' then
           paramSep = '·'
       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] = '' .. item .. ''
           else
               items[#items+1] = item
           end
       end
   end

   return table.concat(items, glue)

end

return p