پودمان:Citation

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

--------------------------------------------------------------------------------
-- Module:Citation
-- Wiki Alborz Lightweight Citation System (Final Stable Version)
--------------------------------------------------------------------------------

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 (CS1-lite)
--------------------------------------------------------------------------------
function Citation.buildText(data)

    local parts = {}

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

    ----------------------------------------------------------------------
    -- title (italic)
    ----------------------------------------------------------------------
    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 (smart link)
    ----------------------------------------------------------------------
    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
        table.insert(parts,
            F.formatArchive(data.archiveurl, data.archivedate)
        )
    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