မဝ်ဂျူ:Thai-sortkey

Documentation for this module may be created at မဝ်ဂျူ:Thai-sortkey/doc

local export = {}
local u = mw.ustring.char
local minorMarkSet = "([" .. u(0xE47) .. "-" .. u(0xE4E) .. u(0x302) .. u(0x304) .. u(0x331) .. "])"

local minorMarks = {
	[u(0xE47)] = "0", [u(0xE48)] = "1", [u(0xE49)] = "2", [u(0xE4A)] = "3", [u(0xE4B)] = "4",
	[u(0xE4C)] = "5", [u(0xE4D)] = "6", [u(0xE4E)] = "7", [u(0x302)] = "8", [u(0x304)] = "9", [u(0x331)] = "A"
}

function export.makeSortKey(text, lang, sc)
	local minorKey = ""
	for mark in mw.ustring.gmatch(text, minorMarkSet) do
		minorKey = minorKey .. minorMarks[mark]
	end
	text = mw.ustring.gsub(text, minorMarkSet, "")
	
	text = mw.ustring.gsub(text, "[%pๆ]", "")
	text = mw.ustring.gsub(text, "([เแโใไ])(ʼ?[ก-ฮ])", "%2%1")
	
	return text .. minorKey
end

return export