Moduuli:Fr:Liste éléments

Wikikirjastosta

local z = {}

function z.main(frame)

    local args = frame:getParent().args
    local trimFunc = mw.text.trim -- cache accès global

    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}},  
        glue = paramSep
    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 style="font-weight:bold">·</span>\194\160 '
    elseif paramSep == '2•' or paramSep == '•2' then
        glue = '\194\160\194\160\194\160 '
    else
        if paramSep == '·' then
            paramSep = '<span style="font-weight:bold">·</span>'
        elseif paramSep == '-' or paramSep == '−' then
            paramSep = '–' -- tiret demi-cadratin
        elseif paramSep == '--' then
            paramSep = '—' -- tiret 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 = trimFunc(v)
        if item ~= '' then
            if not secable then
                item = '<span class="nowrap">'..item..'</span>'
            end
            items[#items+1] = item
        end
    end

    return table.concat(items, glue)
end

return z