Modul:zlw-slv-entryname

Modul ini kekurangan sublaman pendokumenan. Sila mencipta laman pendokumenan berkaitan.

Pautan berguna: senarai sublaman • pautan • transklusi • kes ujian • kotak pasir

---

local u = require("Module:string/char")

local export = {}

-- U+02D8 COMBINING BREVE
-- U+0304 COMBINING MACRON

local pitch_accent = "[" .. u( 0x2D8, 0x304) .. "]"

function export.makeEntryName(text)
	-- Decompose to permit diacritics to be matched even in composed characters.
	text = mw.ustring.toNFD(text)
	
	text = mw.ustring.gsub(
		text,
		"[aioùu][" .. u(0x300) .. "-" .. u(0x36F) .. "]+",
		function(vowel)
			return mw.ustring.gsub(vowel, pitch_accent, "")
		end)
	
	-- Return back to native MediaWiki normalization.
	text = mw.ustring.toNFC(text)
	
	return text
end

return export