มอดูล:mul-letter

This มอดูล lacks a documentation subpage. Please create it.

Useful links: subpage list • links • transclusions • testcases • sandbox

---

local export = {}
local PAGENAME = mw.title.getCurrentTitle().text

local function getCasing(char, variant)
	if not variant then
		variant = "common"
	end
	local casing = require("Module:mul-letter/data")[variant][char]
	if not casing then
		if mw.ustring.len(char) > 1 then
			casing = {mw.ustring.lower(char), mw.ustring.upper(mw.ustring.sub(char, 1, 1)) .. mw.ustring.lower(mw.ustring.sub(char, 2, -1)), mw.ustring.upper(char)}
		else
			casing = {mw.ustring.lower(char), mw.ustring.upper(char), mw.ustring.upper(char)}
		end
	end
	return casing
end

function export.show(frame)
	local args = frame:getParent().args
	local head = args["head"] or PAGENAME
	local lang = require("Module:languages").getByCode("mul")
	local scriptCode = args["sc"] or args["script"] or require("Module:scripts").findBestScriptWithoutLang(head):getCode()
	local script = scriptCode and require("Module:scripts").getByCode(scriptCode) or lang:findBestScript(head)
	local variant = args["var"]
	
	if args.script then
		require("Module:debug").track("mul-letter/script-param")
	end

	local data = {
		lang = lang,
		sc = script,
		pos_category = "ตัวอักษร",
		categories = {},
		heads = {head},
		no_redundant_head_cat = not args.head,
		inflections = {}
	}

	local casing = getCasing(head, variant)
	if casing[1] ~= head then
		table.insert(data.inflections, {label = "อักษรตัวเล็ก", casing[1]})
	end
	if casing[2] ~= head and casing[2] ~= casing[3] then
		table.insert(data.inflections, {label = "อักษรตัวผสม", casing[2]})
	end
	if casing[3] ~= head then
		table.insert(data.inflections, {label = "อักษรตัวใหญ่", casing[3]})
	end

	return require("Module:headword").full_headword(data)
		.. require("Module:utilities").format_categories({
			"อักขระ" .. script:getCategoryName(),
		}, lang)
end

return export