پودمان:AlborzInfoBox

توضیحات این پودمان می‌تواند در پودمان:AlborzInfoBox/توضیحات قرار گیرد.

local p = {}

local data = mw.loadData('Module:AlborzInfoBox/Data/Geography')

-------------------------------------------------------
-- NORMALIZE
-------------------------------------------------------
local function norm(s)
    if not s then
        return nil
    end

    s = mw.text.trim(s)
    s = mw.ustring.gsub(s, "[\u200C\u200D]", "")
    s = mw.text.trim(s)

    return s
end

-------------------------------------------------------
-- GET ARG
-------------------------------------------------------
local function getArg(args, field)
    if not field then
        return nil
    end

    local candidates = {}

    if field.arg then
        table.insert(candidates, field.arg)
    end

    if field.args then
        for _, a in ipairs(field.args) do
            table.insert(candidates, a)
        end
    end

    for _, name in ipairs(candidates) do
        local value = args[norm(name)]
        if value and value ~= "" then
            return value
        end
    end

    return nil
end

-------------------------------------------------------
-- GET ARGS
-------------------------------------------------------
local function getArgs(frame)
    local args = {}

    local function add(tbl)
        if not tbl then
            return
        end

        for k, v in pairs(tbl) do
            if v and v ~= "" then
                args[norm(k)] = mw.text.trim(v)
            end
        end
    end

    add(frame.args)

    local parent = frame:getParent()
    if parent then
        add(parent.args)
    end

    return args
end

-------------------------------------------------------
-- ADD ROW
-------------------------------------------------------
local function addRow(root, label, value)
    if not value or value == "" then
        return
    end

    local tr = root:tag("tr")
    tr:tag("th"):wikitext(label)

    local td = tr:tag("td")

    local isWikitext =
        value:find("%[%[.-%]%]") or
        value:find("{{.-}}") or
        value:find("<[^>]+>") or
        value:find("^%*") or
        value:find("^#") or
        value:find("\n")

    if isWikitext then
        td:wikitext(value)
    else
        td:wikitext(mw.text.encode(value))
    end
end

-------------------------------------------------------
-- BADGE
-------------------------------------------------------
local badgeMap = {
    city = "شهر",
    village = "روستا",
    county = "شهرستان",
    district = "بخش",
    ruraldistrict = "دهستان",
    mountain = "کوه",
    cave = "غار",
    river = "رودخانه",
    waterfall = "آبشار",
    park = "پارک",
    historic = "بنای تاریخی"
}

local function addBadge(root, typeKey)
    if not typeKey then
        return
    end

    local label = badgeMap[typeKey] or "مکان"

    root:tag("tr")
        :tag("td")
            :attr("colspan", "2")
            :css("text-align", "center")
            :css("padding", "6px 0 8px 0")
            :tag("span")
                :css("display", "inline-block")
                :css("background", "#e8f0f8")
                :css("color", "#1e4b7a")
                :css("font-size", "87%")
                :css("font-weight", "bold")
                :css("padding", "3px 12px")
                :css("border-radius", "5px")
                :css("border", "1px solid #b0c8e0")
                :wikitext(label)
end

-------------------------------------------------------
-- IMAGE
-------------------------------------------------------
local function addImage(root, args)
    local image = args[norm("تصویر")] or args[norm("پرونده")]

    if not image or image == "" then
        return
    end

    image = mw.text.trim(image)

    image = mw.ustring.gsub(image, "^پرونده:", "")
    image = mw.ustring.gsub(image, "^File:", "")

    root:tag("tr")
        :tag("td")
            :attr("colspan", "2")
            :css("text-align", "center")
            :wikitext("[[پرونده:" .. mw.uri.encode(image, "WIKI") .. "|250px]]")
end

-------------------------------------------------------
-- CAPTION
-------------------------------------------------------
local function addCaption(root, args)
    local caption =
        args[norm("توضیح تصویر")]
        or args[norm("عنوان تصویر")]
        or args[norm("زیرنویس")]

    if not caption or caption == "" then
        return
    end

    root:tag("tr")
        :tag("td")
            :attr("colspan", "2")
            :css("text-align", "center")
            :css("font-size", "90%")
            :css("padding", "3px 0 8px 0")
            :wikitext(mw.text.encode(caption))
end
-------------------------------------------------------
-- TABLE
-------------------------------------------------------
local function newTable(typeKey)
    typeKey = typeKey or "city"

    return mw.html.create("table")
        :addClass("infobox")
        :addClass("alborz-infobox")
        :addClass("infobox-type-" .. typeKey)
end

-------------------------------------------------------
-- TITLE
-------------------------------------------------------
local function addTitle(root, args)
    local title =
        args[norm("نام")]
        or args[norm("نام رسمی")]
        or args[norm("نام‌رسمی")]
        or mw.title.getCurrentTitle().text

    root:tag("tr")
        :tag("th")
            :attr("colspan", "2")
            :css("text-align", "center")
            :css("font-size", "118%")
            :css("padding", "8px 4px")
            :wikitext(mw.text.encode(title))
end

-------------------------------------------------------
-- ADD ROWS
-------------------------------------------------------
local function addRows(root, args, layout)
    for _, key in ipairs(layout) do
        local field = data.fields[key]

        if field then
            local value = getArg(args, field)

            if (not value or value == "") and field.default then
                value = field.default
            end

            if value and value ~= "" then
                addRow(root, field.label, value)
            end
        end
    end
end

-------------------------------------------------------
-- RENDER
-------------------------------------------------------
local function render(args)

    local rawTypeInput = norm(args["نوع"]) or "city"

    -- تبدیل مقدار واردشده به کلید داخلی
    local internalType = data.typeMap[rawTypeInput] or rawTypeInput

    local layout = data.layouts[internalType] or data.layouts.city

    -- استفاده از کلید داخلی برای CSS
    local root = newTable(internalType)

    addTitle(root, args)

    -- استفاده از کلید داخلی برای Badge
    addBadge(root, internalType)

    addImage(root, args)
    addCaption(root, args)
    addRows(root, args, layout)

    return tostring(root)
end

-------------------------------------------------------
-- MAIN
-------------------------------------------------------
function p.main(frame)
    local args = getArgs(frame)
    return render(args)
end

return p