پودمان:AlborzSports

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

--------------------------------------------------------------------------------
-- Module:AlborzSports
-- Wiki Alborz Sports Information System
-- Core Engine
-- Version 2..1
--------------------------------------------------------------------------------

local p = {}

--------------------------------------------------------------------------------
-- LOAD DATA
--------------------------------------------------------------------------------

local data = mw.loadData("Module:AlborzSports/Data")

--------------------------------------------------------------------------------
-- LOAD DEPENDENCIES
--------------------------------------------------------------------------------

local infobox = require("Module:Infobox")

--------------------------------------------------------------------------------
-- CONFIG
--------------------------------------------------------------------------------

local DEFAULT_IMAGE_WIDTH = data.meta.imageWidth or "250px"


--------------------------------------------------------------------------------
-- UTILITY FUNCTIONS
--------------------------------------------------------------------------------

local function clean(value)

    if value == nil then
        return nil
    end

    if type(value) == "string" then

        value = mw.text.trim(value)

        if value == "" then
            return nil
        end

    end

    return value

end


--------------------------------------------------------------------------------
-- GET ARGUMENTS
--------------------------------------------------------------------------------

local function getArgs(frame)

    local args = {}

    for k,v in pairs(frame.args) do

        local key = mw.text.trim(k)

        local value = clean(v)

        if value then

            args[key] = value

        end

    end

    return args

end


--------------------------------------------------------------------------------
-- NORMALIZE INPUT
--------------------------------------------------------------------------------

local function normalize(args)

    local result = {}

    for key,value in pairs(args) do

        local field = data.lookup[key] or key

        result[field] = value

    end

    return result

end


--------------------------------------------------------------------------------
-- ENTITY DETECTION
--------------------------------------------------------------------------------

local function getEntity(args)

    local entity = args.entity_type

    if not entity then
        entity = data.defaults.entity_type
    end

    if data.entities[entity] then
        return entity
    end

    return "player"

end


--------------------------------------------------------------------------------
-- TITLE
--------------------------------------------------------------------------------

local function getTitle(entity,args)

    if args.name then
        return args.name
    end

    if data.entities[entity] then
        return data.entities[entity].title
    end

    return data.meta.title

end
--------------------------------------------------------------------------------
-- IMAGE HANDLING
--------------------------------------------------------------------------------

local function buildImage(args)

    if not args.image then
        return nil
    end

    local width = args.image_width or DEFAULT_IMAGE_WIDTH

    local caption = args.caption or ""

    local image = {

        type = "image",

        image = args.image,

        size = width,

        caption = caption

    }

    return image

end


--------------------------------------------------------------------------------
-- FIELD BUILDER
--------------------------------------------------------------------------------

local function buildFields(layouts,args)

    local fields = {}

    for _,layout in ipairs(layouts) do

        local label = layout[1]

        local key = layout[2]

        local value = args[key]

        value = clean(value)

        if value then

            table.insert(fields,{

                label = label,

                value = value

            })

        end

    end

    return fields

end


--------------------------------------------------------------------------------
-- GROUP BUILDER
--------------------------------------------------------------------------------

local function buildGroups(entity,args)

    local groups = {}

    local entityData = data.entities[entity]

    if not entityData then
        return groups
    end


    for _,layoutName in ipairs(entityData.layouts) do


        local layout = data.layouts[layoutName]


        if layout then


            local fields = buildFields(layout,args)


            if #fields > 0 then


                table.insert(groups,{

                    name = layoutName,

                    fields = fields

                })


            end


        end


    end


    return groups

end


--------------------------------------------------------------------------------
-- INFOBOX BUILDER
--------------------------------------------------------------------------------

local function buildInfobox(entity,args)


    local box = {}


    box.title = getTitle(entity,args)


    local image = buildImage(args)


    if image then

        box.image = image

    end



    box.groups = buildGroups(entity,args)



    return box

end


--------------------------------------------------------------------------------
-- RENDER TEXT
--------------------------------------------------------------------------------

local function renderValue(value)


    if type(value) == "table" then

        return table.concat(value,"، ")

    end


    return tostring(value)

end
--------------------------------------------------------------------------------
-- RENDER INFOBOX
--------------------------------------------------------------------------------

local function renderInfobox(box)

    local result = {}

    table.insert(result, '<table class="infobox sport-infobox">')



    ------------------------------------------------------------
    -- TITLE
    ------------------------------------------------------------

    if box.title then

        table.insert(result,

            '<tr class="infobox-title">' ..
            '<th colspan="2">' ..
            box.title ..
            '</th></tr>'

        )

    end



    ------------------------------------------------------------
    -- IMAGE
    ------------------------------------------------------------

    if box.image then


        local image = box.image


        local file = image.image


        local size = image.size or DEFAULT_IMAGE_WIDTH


        local caption = image.caption or ""


        table.insert(result,

            '<tr>' ..
            '<td colspan="2" class="infobox-image">' ..

            '[[File:' ..
            file ..
            '|' ..
            size ..
            ']]'


        )


        if caption ~= "" then


            table.insert(result,

                '<br /><small>' ..
                caption ..
                '</small>'

            )


        end


        table.insert(result,

            '</td></tr>'

        )


    end



    ------------------------------------------------------------
    -- GROUPS
    ------------------------------------------------------------

    for _,group in ipairs(box.groups) do



        table.insert(result,


            '<tr class="infobox-header">' ..

            '<th colspan="2">' ..

            group.name ..

            '</th></tr>'


        )



        for _,field in ipairs(group.fields) do


            table.insert(result,


                '<tr>' ..

                '<th>' ..
                field.label ..
                '</th>' ..

                '<td>' ..
                renderValue(field.value) ..
                '</td>' ..

                '</tr>'


            )


        end


    end



    ------------------------------------------------------------
    -- CLOSE
    ------------------------------------------------------------

    table.insert(result,

        '</table>'

    )


    return table.concat(result,"\n")


end



--------------------------------------------------------------------------------
-- PUBLIC FUNCTION
--------------------------------------------------------------------------------

function p.main(frame)


    local args = getArgs(frame)


    args = normalize(args)



    local entity = getEntity(args)



    local box = buildInfobox(entity,args)



    return renderInfobox(box)


end



--------------------------------------------------------------------------------
-- TEMPLATE ENTRY
--------------------------------------------------------------------------------

function p.infobox(frame)

    return p.main(frame)

end
--------------------------------------------------------------------------------
-- DEBUG FUNCTION
--------------------------------------------------------------------------------

function p.test(frame)

    local args = getArgs(frame)

    args = normalize(args)


    local entity = getEntity(args)


    local entityData = data.entities[entity]


    if not entityData then

        return "Entity not found"

    end


    local result = {}



    table.insert(result,

        "Entity: " .. entity

    )



    table.insert(result,

        "Title: " .. entityData.title

    )



    table.insert(result,

        "Layouts: " ..

        table.concat(entityData.layouts,", ")

    )


    return table.concat(result,"\n")

end



--------------------------------------------------------------------------------
-- GET ENTITY LIST
--------------------------------------------------------------------------------

function p.entities()

    local result = {}


    for key,value in pairs(data.entities) do


        table.insert(result,

            key .. " : " .. value.title

        )


    end


    return table.concat(result,"\n")

end



--------------------------------------------------------------------------------
-- GET VERSION
--------------------------------------------------------------------------------

function p.version()

    return

        data.version.name ..

        " v" ..

        data.version.major ..

        "." ..

        data.version.minor

end



--------------------------------------------------------------------------------
-- EXPORT
--------------------------------------------------------------------------------

return p