پودمان:AlborzEducation

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

--------------------------------------------------------------------------------
-- Module:AlborzEducation
-- Wiki Alborz Education Infobox Engine (Final Professional Version)
--------------------------------------------------------------------------------
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

local function isAlreadyFormatted(value)
    return value:match("^{{") or value:match("^%[") or value:match("^%[%[")
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 HELPERS
--------------------------------------------------------------------------------
local function normalizeUrl(url)
    url = trim(url)
    if not url then
        return nil
    end
    -- اگر از قبل پروتکل دارد (http, https, ftp, mailto و ...) دست نزن
    if url:match("^[%w%+%-%.]+://") then
        return url
    end
    return "https://" .. url
end

--------------------------------------------------------------------------------
-- SPECIALIZED ID EXTRACTORS
--------------------------------------------------------------------------------
local function extractInstagram(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("^@", "")
    value = value:gsub("/$", "")
    return value
end

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

local function extractAparat(value)
    value = trim(value)
    if not value then return nil end

    local original = value
    value = value:gsub("^https?://", "")
    value = value:gsub("^www%.", "")
    value = value:gsub("^aparat%.com/", "")
    value = value:gsub("^@", "")
    value = value:gsub("/$", "")

    -- لینک ویدیو (v/xxxx) را خراب نکن
    if value:match("^v/") then
        return nil, original
    end

    return value, nil
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

--------------------------------------------------------------------------------
-- LIST HELPER (اصلاح‌شده)
--------------------------------------------------------------------------------
local function formatList(value)
    if isAlreadyFormatted(value) then
        return value
    end

    local items = {}
    -- استفاده از gsplit برای جداسازی مطمئن با ویرگول فارسی و انگلیسی
    for item in mw.text.gsplit(value, "[،,]") do
        item = trim(item)
        if item and item ~= "" then
            table.insert(items, "* " .. item)
        end
    end

    if #items == 0 then
        return value
    end
    return table.concat(items, "\n")
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 = extractInstagram(value)
        if not id then return value end
        return string.format("[https://instagram.com/%s @%s]", id, id)
    end,

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

    aparat = function(value)
        if isAlreadyFormatted(value) then return value end
        local id, original = extractAparat(value)
        if not id then
            local url = normalizeUrl(original or value)
            return string.format("[%s صفحهٔ آپارات]", url)
        end
        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,

    list = function(value)
        return formatList(value)
    end,

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

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

    coordinates = function(value)
        if isAlreadyFormatted(value) then return value end
        return value
    end,
}

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

    local formatterName = fieldDef and fieldDef.formatter

    if not formatterName and fieldDef and fieldDef.type then
        formatterName = fieldDef.type
    end

    if not formatterName then
        formatterName = fieldName
    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 or fieldName)
    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 or groupName))
    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 MAP
--------------------------------------------------------------------------------
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",
}

--------------------------------------------------------------------------------
-- RESOLVE INHERIT (جدید و مهم)
--------------------------------------------------------------------------------
local function resolveLayout(layoutName)
    local seen = {}
    local current = layoutName

    while current do
        if seen[current] then
            -- جلوگیری از حلقه بی‌نهایت
            return layouts.school or {}
        end
        seen[current] = true

        local layout = layouts[current]
        if not layout then
            return layouts.school or {}
        end

        -- اگر inherit داشت، برو سراغ والد
        if layout.inherit then
            current = layout.inherit
        else
            return layout
        end
    end

    return layouts.school or {}
end

--------------------------------------------------------------------------------
-- RENDER LAYOUT
--------------------------------------------------------------------------------
local function renderLayout(layoutName, args)
    local layout = resolveLayout(layoutName)

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

    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