模組:Cel-pro-sortkey

維基詞典,自由的多語言詞典


local export = {}
local u = mw.ustring.char
local a = u(0xF000)

local remove_diacritics = u(0x0304) -- macron

local oneChar = {
	["ɸ"] = "f", ["φ"] = "f", ["ʷ"] = "w"
}

function export.makeSortKey(text, lang, sc)
	text = mw.ustring.gsub(mw.ustring.lower(text), "w", "w" .. a) -- ensure "w" comes after "ʷ"
	
	return mw.ustring.upper(mw.ustring.toNFC(mw.ustring.gsub(mw.ustring.toNFD(mw.ustring.gsub(text, ".", oneChar)), "[" .. remove_diacritics .. "]", ""))) -- decompose, remove appropriate diacritics, then recompose again
end

return export