پودمان:AlborzSports

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

--------------------------------------------------------------------------------
-- Module:AlborzSports
-- Wiki Alborz Sports Information System
-- Core Engine
-- Version 2.2
--------------------------------------------------------------------------------

local p = {}

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

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

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

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

--------------------------------------------------------------------------------
-- 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 = {}

	local source = frame

	local parent = frame:getParent()

	if parent and next(parent.args) then
		source = parent
	end

	for k, v in pairs(source.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 =
		clean(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 ""

	return {

		type = "image",

		image = args.image,

		size = width,

		caption = caption

	}
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 =
			clean(args[key])

		----------------------------------------------------------------
		-- ONLY ADD EXISTING VALUES
		----------------------------------------------------------------

		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 =
						data.layoutTitles[layoutName]
						or layoutName,

					fields = fields

				})

			end

		end

	end

	return groups
end

--------------------------------------------------------------------------------
-- MEDAL BUILDER
--------------------------------------------------------------------------------

local function buildMedals(args)

	local medals =
		clean(args.medaltemplates)

	if not medals then

		medals =
			clean(args.medals)

	end

	if not medals then
		return nil
	end

	local frame =
		mw.getCurrentFrame()

	local content =
		frame:expandTemplate{

			title = "Infobox medal templates",

			args = {

				medals = medals,

				title =
					args.medaltemplates_title
					or "",

				expand = "yes"

			}

		}

	content = clean(content)

	if not content then
		return nil
	end

	return content
end

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

local function buildInfobox(entity, args)

	local box = {}

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

	box.title =
		getTitle(entity, args)

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

	local image =
		buildImage(args)

	if image then
		box.image = image
	end

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

	box.groups =
		buildGroups(entity, args)

	----------------------------------------------------------------
	-- MEDALS
	----------------------------------------------------------------

	box.medals =
		buildMedals(args)

	return box
end

--------------------------------------------------------------------------------
-- RENDER VALUE
--------------------------------------------------------------------------------

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 = {}

	----------------------------------------------------------------
	-- OPEN TABLE
	----------------------------------------------------------------

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

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

	if box.title then

		table.insert(
			result,

			'<tr class="sport-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="sport-infobox-image">' ..
			'[[File:' ..
			file ..
			'|' ..
			size ..
			']]'

		)

		if caption ~= "" then

			table.insert(
				result,

				'<div class="sport-infobox-caption">' ..
				caption ..
				'</div>'

			)

		end

		table.insert(
			result,
			'</td></tr>'
		)

	end

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

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

		table.insert(
			result,

			'<tr class="sport-infobox-header">' ..
			'<th colspan="2">' ..
			group.name ..
			'</th></tr>'

		)

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

			table.insert(
				result,

				'<tr>' ..

				'<th class="sport-infobox-label">' ..
				field.label ..
				'</th>' ..

				'<td class="sport-infobox-value">' ..
				renderValue(field.value) ..
				'</td>' ..

				'</tr>'

			)

		end

	end

	----------------------------------------------------------------
	-- MEDALS
	--
	-- IMPORTANT:
	-- This is inserted BEFORE the closing </table>,
	-- so medals remain INSIDE the infobox.
	----------------------------------------------------------------

	if box.medals then

		table.insert(
			result,

			'<tr>' ..
			'<td colspan="2" class="sport-infobox-medals">' ..
			box.medals ..
			'</td>' ..
			'</tr>'

		)

	end

	----------------------------------------------------------------
	-- CLOSE TABLE
	----------------------------------------------------------------

	table.insert(
		result,
		'</table>'
	)

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

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

function p.main(frame)

	local args =
		getArgs(frame)

	----------------------------------------------------------------
	-- NORMALIZE ALL INPUTS
	----------------------------------------------------------------

	args =
		normalize(args)

	----------------------------------------------------------------
	-- ENTITY
	----------------------------------------------------------------

	local entity =
		getEntity(args)

	----------------------------------------------------------------
	-- BUILD
	----------------------------------------------------------------

	local box =
		buildInfobox(
			entity,
			args
		)

	----------------------------------------------------------------
	-- RENDER
	----------------------------------------------------------------

	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,
			", "
		)

	)

	----------------------------------------------------------------
	-- DEBUG COACH
	----------------------------------------------------------------

	table.insert(
		result,

		"Coach: " ..
		tostring(
			args.coach
			or "NOT FOUND"
		)

	)

	----------------------------------------------------------------
	-- DEBUG MEDALS
	----------------------------------------------------------------

	table.insert(
		result,

		"Medals: " ..
		tostring(
			args.medaltemplates
			or args.medals
			or "NOT FOUND"
		)

	)

	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

	table.sort(result)

	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