پودمان:AlborzEducation

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

--------------------------------------------------------------------------------
-- Module:AlborzEducation.
-- Wiki Alborz Education Infobox Engine (Refactored)
--------------------------------------------------------------------------------
local p = {}

--------------------------------------------------------------------------------
-- CONFIGURATION
--------------------------------------------------------------------------------
local INFOBOX_CLASS = "infobox education-infobox"

--------------------------------------------------------------------------------
-- LOAD DATA
--------------------------------------------------------------------------------
local data = mw.loadData("Module:AlborzEducation/Data")
local lookup = data.lookup
local fields = data.fieldDefinitions
local layouts = data.layouts
local groups = data.groups

--------------------------------------------------------------------------------
-- BASIC UTILITIES
--------------------------------------------------------------------------------
local function trim(value)
    if value == nil then
        return nil
    end
    value = mw.text.trim(tostring(value))
    if value == "" then
        return nil
    end
    return value
end

local function getArgs(frame)
    local args = {}
    for k, v in pairs(frame.args) do
        k = trim(k)
        v = trim(v)
        if k and v then
            args[k] = v
        end
    end
    return args
end

local function normalizeArgs(args)
    local result = {}
    for key, value in pairs(args) do
        local newKey = lookup[key] or key
        result[newKey] = value
    end
    return result
end

local function getFieldValue(args, name)
    if args[name] then
        return args[name]
    end
    local def = fields[name]
    if def and def.default then
        return def.default
    end
    return nil
end

--------------------------------------------------------------------------------
-- IMAGE HELPER (یک تابع واحد)
--------------------------------------------------------------------------------
local function imageMarkup(file, width)
    if not file then
        return nil
    end
    width = width or "250px"
    return string.format("[[پرونده:%s|%s|center]]", file, width)
end

--------------------------------------------------------------------------------
-- URL & ID HELPERS
--------------------------------------------------------------------------------
local function normalizeUrl(url)
    url = trim(url)
    if not url then
        return nil
    end
    if not url:match("^https?://") then
        url = "https://" .. url
    end
    return url
end

local function extractId(value)
    value = trim(value)
    if not value then
        return nil
    end
    value = value:gsub("^https?://", "")
    value = value:gsub("^www%.", "")
    value = value:gsub("^instagram%.com/", "")
    value = value:gsub("^t%.me/", "")
    value = value:gsub("^aparat%.com/", "")
    value = value:gsub("^@", "")
    value = value:gsub("/$", "")
    return value
end

-- اگر از قبل قالب یا لینک ویکی باشد، دست نزن
local function isAlreadyFormatted(value)
    return value:match("^{{") or value:match("^%[") or value:match("^%[%[")
end

--------------------------------------------------------------------------------
-- BOOLEAN
--------------------------------------------------------------------------------
local function formatBoolean(value)
    local yes = {
        ["بله"] = true, ["بلی"] = true,
        ["yes"] = true, ["Yes"] = true, ["YES"] = true,
        ["true"] = true, ["True"] = true, ["TRUE"] = true,
        ["1"] = true
    }
    if yes[tostring(value)] then
        return "دارد"
    end
    return "ندارد"
end

--------------------------------------------------------------------------------
-- FORMATTERS (قلب سیستم جدید)
--------------------------------------------------------------------------------
local formatters = {
    website = function(value)
        if isAlreadyFormatted(value) then
            return value
        end
        local url = normalizeUrl(value)
        return string.format("[%s وبگاه رسمی]", url)
    end,

    email = function(value)
        if isAlreadyFormatted(value) then
            return value
        end
        return string.format("[mailto:%s %s]", value, value)
    end,

    instagram = function(value)
        if isAlreadyFormatted(value) then
            return value
        end
        local id = extractId(value)
        return string.format("[https://instagram.com/%s @%s]", id, id)
    end,

    telegram = function(value)
        if isAlreadyFormatted(value) then
            return value
        end
        local id = extractId(value)
        return string.format("[https://t.me/%s @%s]", id, id)
    end,

    aparat = function(value)
        if isAlreadyFormatted(value) then
            return value
        end
        local id = extractId(value)
        return string.format("[https://www.aparat.com/%s صفحهٔ آپارات]", id)
    end,

    wikipedia = function(value)
        if isAlreadyFormatted(value) then
            return value
        end
        return string.format("[[%s]]", value)
    end,

    url = function(value)
        if isAlreadyFormatted(value) then
            return value
        end
        local url = normalizeUrl(value)
        return string.format("[%s %s]", url, value)
    end,

    boolean = function(value)
        return formatBoolean(value)
    end,

    -- برای فیلدهای آینده کافی است formatter = "social" بگذارید
    social = function(value)
        if isAlreadyFormatted(value) then
            return value
        end
        local id = extractId(value)
        return string.format("[https://%s @%s]", id, id) -- یا منطق اختصاصی
    end,
}

local function formatValue(fieldName, value, fieldDef)
    if not value then
        return nil
    end

    -- اولویت با formatter تعریف‌شده در Data
    local formatterName = (fieldDef and fieldDef.formatter) or fieldName

    -- اگر type مشخص باشد و formatter جداگانه نباشد
    if fieldDef and fieldDef.type and not formatters[formatterName] then
        if fieldDef.type == "boolean" then
            formatterName = "boolean"
        elseif fieldDef.type == "email" then
            formatterName = "email"
        elseif fieldDef.type == "url" then
            formatterName = "url"
        end
    end

    local formatter = formatters[formatterName]
    if formatter then
        return formatter(value)
    end

    return value
end

--------------------------------------------------------------------------------
-- FIELD RENDERING
--------------------------------------------------------------------------------
local function renderField(fieldName, value)
    local field = fields[fieldName]
    if not field or not value then
        return nil
    end

    -- تصویر (لوگو یا تصویر اصلی که در گروه آمده باشد)
    if field.type == "image" then
        local width = (fieldName == "logo") and "120px" or "250px"
        return mw.html.create("tr")
            :tag("td")
                :attr("colspan", "2")
                :addClass("education-infobox-image")
                :css("text-align", "center")
                :wikitext(imageMarkup(value, width))
                :done()
    end

    -- فرمت مقدار
    value = formatValue(fieldName, value, field)

    -- ردیف معمولی
    local row = mw.html.create("tr")
    row:tag("th"):wikitext(field.label)
    row:tag("td"):wikitext(value)
    return row
end

--------------------------------------------------------------------------------
-- TITLE & LOGO
--------------------------------------------------------------------------------
local function renderTitle(box, args)
    local logo = getFieldValue(args, "logo")
    local title = getFieldValue(args, "fullname") or getFieldValue(args, "name")

    if logo then
        box:tag("tr")
            :tag("td")
                :attr("colspan", "2")
                :addClass("education-infobox-logo")
                :css("text-align", "center")
                :css("padding", "8px")
                :wikitext(imageMarkup(logo, "120px"))
    end

    if title then
        box:tag("tr")
            :tag("th")
                :attr("colspan", "2")
                :addClass("education-infobox-title")
                :css("text-align", "center")
                :css("font-size", "120%")
                :css("font-weight", "bold")
                :css("padding", "8px")
                :wikitext(title)
    end
end

--------------------------------------------------------------------------------
-- MAIN IMAGE + CAPTION
--------------------------------------------------------------------------------
local function renderImage(box, args)
    local image = getFieldValue(args, "image")
    if not image then
        return
    end

    box:tag("tr")
        :tag("td")
            :attr("colspan", "2")
            :addClass("education-infobox-image")
            :css("text-align", "center")
            :wikitext(imageMarkup(image, "250px"))

    local caption = getFieldValue(args, "caption")
    if caption then
        box:tag("tr")
            :tag("td")
                :attr("colspan", "2")
                :addClass("education-infobox-caption")
                :css("text-align", "center")
                :css("font-size", "90%")
                :css("padding", "4px 8px")
                :wikitext(caption)
    end
end

--------------------------------------------------------------------------------
-- GROUP
--------------------------------------------------------------------------------
local function renderGroup(box, groupName, fieldList, args, rendered)
    local hasData = false
    for _, field in ipairs(fieldList) do
        if getFieldValue(args, field) and not rendered[field] then
            hasData = true
            break
        end
    end
    if not hasData then
        return
    end

    local group = groups[groupName]
    if group then
        box:tag("tr")
            :tag("th")
                :attr("colspan", "2")
                :addClass("education-infobox-group")
                :css("text-align", "center")
                :css("font-weight", "bold")
                :css("padding", "6px")
                :wikitext((group.icon or "") .. " " .. group.label)
    end

    for _, field in ipairs(fieldList) do
        if not rendered[field] then
            local value = getFieldValue(args, field)
            if value then
                local row = renderField(field, value)
                if row then
                    box:node(row)
                    rendered[field] = true   -- جلوگیری از رندر تکراری
                end
            end
        end
    end
end

--------------------------------------------------------------------------------
-- LAYOUT
--------------------------------------------------------------------------------
local layoutMap = {
    ["دانشگاه"] = "university",
    ["university"] = "university",
    ["حوزه علمیه"] = "seminary",
    ["seminary"] = "seminary",
    ["آموزشگاه"] = "training_center",
    ["training_center"] = "training_center",
    ["پژوهشکده"] = "research_center",
    ["research_center"] = "research_center",
    ["کالج"] = "college",
    ["college"] = "college",
    ["مهدکودک"] = "kindergarten",
    ["kindergarten"] = "kindergarten",
    -- پیش‌فرض
    ["مدرسه"] = "school",
    ["school"] = "school",
}

local function renderLayout(layoutName, args)
    local layout = layouts[layoutName] or layouts.school

    local box = mw.html.create("table")
        :addClass(INFOBOX_CLASS)

    local rendered = {}  -- جلوگیری از نمایش دوباره فیلدها

    renderTitle(box, args)
    rendered.logo = true   -- لوگو دیگر در گروه‌ها تکرار نشود

    renderImage(box, args)
    rendered.image = true
    rendered.caption = true

    for _, section in ipairs(layout) do
        renderGroup(box, section.group, section.fields, args, rendered)
    end

    return tostring(box)
end

--------------------------------------------------------------------------------
-- MAIN
--------------------------------------------------------------------------------
function p.main(frame)
    local args = normalizeArgs(getArgs(frame))

    local t = (args.type or ""):lower()
    local layout = layoutMap[t] or layoutMap[args.type] or "school"

    return renderLayout(layout, args)
end

return p