پودمان:Citation

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

--------------------------------------------------------------------------------
-- Module:Citation
-- Wiki Alborz Lightweight Citation System
--------------------------------------------------------------------------------
local args = require("Module:Arguments")
local cfg = require("Module:Citation/Configuration")
local U = require("Module:Citation/Utilities")
local F = require("Module:Citation/Formatter")
local Citation = {}

--------------------------------------------------------------------------------
-- گرفتن آرگومان‌ها
--------------------------------------------------------------------------------
function Citation.getArgs(frame)
    return args.getArgs(frame, { parentOnly = true })
end

--------------------------------------------------------------------------------
-- alias resolver
--------------------------------------------------------------------------------
function Citation.getValue(argTable, key)
    local aliases = cfg.aliases[key]
    if not aliases then return nil end
    for _, name in ipairs(aliases) do
        local v = argTable[name]
        if v and v ~= "" then return v end
    end
    return nil
end

--------------------------------------------------------------------------------
-- normalize input
--------------------------------------------------------------------------------
function Citation.normalize(args)
    local out = {}
    for key, _ in pairs(cfg.aliases) do
        out[key] = Citation.getValue(args, key)
    end
    return out
end

--------------------------------------------------------------------------------
-- identifiers
--------------------------------------------------------------------------------
function Citation.renderIdentifiers(data)
    local parts = {}
    for key, label in pairs(cfg.identifiers) do
        if data[key] and data[key] ~= "" then
            table.insert(parts, label .. " " .. data[key])
        end
    end
    return table.concat(parts, cfg.separator)
end

--------------------------------------------------------------------------------
-- build citation text
--------------------------------------------------------------------------------
function Citation.buildText(data)
    local parts = {}

    -- author
    if not U.isEmpty(data.author) then
        table.insert(parts, data.author .. ".")
    end

    -- title
    if not U.isEmpty(data.title) then
        table.insert(parts, "''" .. data.title .. "''.")
    end

    -- website
    if not U.isEmpty(data.website) then
        table.insert(parts, "در: " .. data.website .. ".")
    end

    -- publisher
    if not U.isEmpty(data.publisher) then
        table.insert(parts, data.publisher .. ".")
    end

    -- date
    if not U.isEmpty(data.date) then
        table.insert(parts, data.date .. ".")
    end

    -- URL
    if not U.isEmpty(data.url) then
        table.insert(parts, F.formatLink(data.title, data.url))
    end

    -- identifiers
    local ids = Citation.renderIdentifiers(data)
    if not U.isEmpty(ids) then
        table.insert(parts, ids)
    end

    ----------------------------------------------------------------------
    -- Archive (نسخه کوتاه و زیبا)
    ----------------------------------------------------------------------
    if not U.isEmpty(data.archiveurl) then
        local archivedate = data.archivedate or ""
        local archiveText = "نسخهٔ بایگانی"
        
        if archivedate ~= "" then
            archiveText = archiveText .. " (" .. archivedate .. ")"
        end
        
        local archiveLink = F.formatLink(archiveText, data.archiveurl)
        table.insert(parts, archiveLink)
    end

    return table.concat(parts, " ")
end

--------------------------------------------------------------------------------
-- polish output
--------------------------------------------------------------------------------
function Citation.polish(text)
    if not text then return "" end
    text = mw.text.trim(text)
    text = text:gsub("%s+", " ")
    text = text:gsub("%s+%.", ".")
    text = text:gsub("%.+", ".")
    text = text:gsub("%s+%.?$", "")
    return text
end

--------------------------------------------------------------------------------
-- render main
--------------------------------------------------------------------------------
function Citation.render(frame, ctype)
    local rawArgs = Citation.getArgs(frame)
    local data = Citation.normalize(rawArgs)
    local result = Citation.buildText(data)
    return Citation.polish(result)
end

--------------------------------------------------------------------------------
-- entry points
--------------------------------------------------------------------------------
function Citation.web(frame) return Citation.render(frame, "web") end
function Citation.book(frame) return Citation.render(frame, "book") end
function Citation.news(frame) return Citation.render(frame, "news") end
function Citation.journal(frame) return Citation.render(frame, "journal") end

return Citation