وحدة:Labelled list hatnote

يمكن إنشاء صفحة توثيق الوحدة في وحدة:Labelled list hatnote/شرح

local mHatnote = require('Module:Hatnote')
local mHatlist = require('Module:Hatnote list')
local mArguments --initialize lazily
local p = {}

-- Defaults global to this module
local defaults = {
	label = 'انظر أيضًا', --Final fallback for label argument
	labelForm = '%s: %s',
	prefixes = {'التسمية', 'التسمية  ', 'ت'},
	template = 'وحدة:Labelled list hatnote'
}

function p.preprocessDisplays (args, prefixes)
	prefixes = prefixes or defaults.prefixes
	local pages = {}
	for k, v in pairs(args) do
		if type(k) == 'number' then
			local display
			for i = 1, #prefixes do
				display = args[prefixes[i] .. k]
				if display then break end
			end
			local page = display and
				string.format('%s|%s', string.gsub(v, '|.*$', ''), display) or v
			pages[#pages + 1] = page
		end
	end
	return pages
end

function p.labelledList (frame)
	mArguments = require('Module:Arguments')
	local labels = {frame.args[1] or defaults.label}
	labels[2] = frame.args[2] or labels[1]
	labels[3] = frame.args[3] --no defaulting
	labels[4] = frame.args[4] --no defaulting
	local template = frame:getParent():getTitle()
	local args = mArguments.getArgs(frame, {parentOnly = true})
	local pages = p.preprocessDisplays(args)
	local options = {
		extraclasses = frame.args.extraclasses,
		category = args.category,
		selfref = frame.args.selfref or args.selfref,
		template = template
	}
	return p._labelledList(pages, labels, options)
end

function p._labelledList (pages, labels, options)
	labels = labels or {}
	if #pages == 0 then
		return mHatnote.makeWikitextError(
			'لم تُحدد أسماء صفحات',
			(options.template or defaults.template) .. '#أخطاء',
			options.category
		)
	end
	label = (#pages == 1 and labels[1] or labels[2]) or defaults.label
	for k, v in pairs(pages) do 
		if mHatnote.findNamespaceId(v) ~= 0 then
			label =
				(
					#pages == 1 and
					(labels[3] or labels[1] or defaults.label) or
					(labels[4] or labels[2] or defaults.label)
				) or defaults.label
		end
	end

	local linkedPages = {}
	for i, page in ipairs(pages) do
		linkedPages[i] = string.format('[[%s]]', page)
	end

	local list
	if #linkedPages == 2 then
		list = table.concat(linkedPages, ' و ')
	elseif #linkedPages > 2 then
		local lastItem = table.remove(linkedPages)  -- آخرین آیتم را جدا می‌کنیم
		list = table.concat(linkedPages, '، ')     -- بقیه آیتم‌ها را به هم وصل می‌کنیم
		list = list .. ' و ' .. lastItem           -- و بعد "و" و آخرین آیتم را اضافه می‌کنیم
	else
		list = linkedPages[1] or ''               -- اگر فقط یک آیتم وجود داشت
	end

	list = list .. '.'  -- افزودن نقطه در انتها

	local text = string.format(
		options.labelForm or defaults.labelForm,
		label,
		list
	)

	local hnOptions = {
		extraclasses = options.extraclasses,
		selfref = options.selfref
	}
	return mHatnote._hatnote(text, hnOptions)
end

return p