Module:LangSwitcher

Documentation for this module may be created at Module:LangSwitcher/doc

-- Module:LangSwitcher
-- Wikitext language switcher with normalized codes and builtin names.

local p = {}

local function trim(s)
    return (s or ""):gsub("^%s+", ""):gsub("%s+$", "")
end

local function splitCSV(s)
    local t = {}
    if not s or s == "" then
        return t
    end
    for part in s:gmatch("([^,]+)") do
        local v = trim(part):lower()
        if v ~= "" then
            table.insert(t, v)
        end
    end
    return t
end

local function parseKVList(s)
    -- Parse "en=English,sv=Svenska"
    local out = {}
    if not s or s == "" then
        return out
    end
    for pair in s:gmatch("([^,]+)") do
        local k, v = pair:match("^%s*([^=]+)%s*=%s*(.-)%s*$")
        if k and v then
            out[trim(k):lower()] = trim(v)
        end
    end
    return out
end

local function getTitleParts()
    local title = mw.title.getCurrentTitle()
    local full = title.fullText
    local base, lang = full, nil
    local b, l = full:match("^(.-)/([A-Za-z%-][A-Za-z%-][A-Za-z%-]*)$")
    if b and l then
        base, lang = b, l:lower()
    end
    return base, lang, title
end

local function pageExists(page)
    local t = mw.title.new(page)
    return t and t.exists
end

local function wikilink(page, label)
    return string.format('[[%s|%s]]', page, label)
end

local builtinNames = {
    en = "English",
    sv = "Svenska",
    da = "Dansk",
    nb = "Norsk bokmål",
    nn = "Nynorsk",
    no = "Norsk",
    fi = "Suomi",
    de = "Deutsch",
    fr = "Français",
    es = "Español",
    pt = "Português",
    ["pt-br"] = "Português (Brasil)",
    it = "Italiano",
    nl = "Nederlands",
    pl = "Polski",
    ru = "Русский",
    ja = "日本語",
    zh = "中文",
    ["zh-hans"] = "中文（简体）",
    ["zh-hant"] = "中文（繁體）",
    ko = "한국어",
}

function p.render(frame)
    local args = frame:getParent() and frame:getParent().args or frame.args

    local langs = splitCSV(args.langs or args.languages or "en")
    local labels = parseKVList(args.labels or "")
    local showMissing = (args.show_missing or ""):lower() == "yes"
    local icon = args.icon or ""

    local base, currentLang = getTitleParts()
    local defaultLang = trim(args.default or (langs[1] or "en")):lower()

    local function labelFor(code)
        code = (code or ""):lower()
        return labels[code] or builtinNames[code] or code
    end

    local seen = {}
    local ordered = {}
    local function add(code)
        if not code or code == "" then
            return
        end
        code = code:lower()
        if not seen[code] then
            table.insert(ordered, code)
            seen[code] = true
        end
    end
    add(defaultLang)
    for _, code in ipairs(langs) do
        add(code)
    end

    local pieces = {}
    if icon ~= "" then
        table.insert(pieces, "''" .. icon .. "'' ")
    end

    local links = {}
    for _, code in ipairs(ordered) do
        local target = (code == defaultLang) and base or (base .. "/" .. code)
        local exists = pageExists(target)
        if exists or showMissing then
            local link = wikilink(target, labelFor(code))
            local isActive = currentLang and (currentLang == code) or (code == defaultLang)
            if isActive then
                link = "'''" .. link .. "'''"
            end
            table.insert(links, link)
        end
    end

    if #links == 0 then
        return ""
    end

    table.insert(pieces, table.concat(links, " • "))
    return table.concat(pieces)
end

return p