View source for Module:ryn-mut

local export = {}

local params = {
	[1] = {alias_of = "r"},
	r = {default = mw.title.getCurrentTitle().text},
	i = {},
	initial = {alias_of = "i"},
	s = {},
	soft = {alias_of = "s"},
	lenited = {alias_of = "s"},
	nocat = {type = "boolean"},
}

local IRREG_MARKER = "<sup>△</sup>"
local UNCHANGED_MARKER = "<i>unchanged</i>"

local lenition = {
	["b"] = "v",
	["k"] = "g",
	["h"] = "",
	["d"] = "ð",
	["ð"] = "r",
	["f"] = "h",
	["g"] = "ŗ",
	["ŗ"] = "",
	["p"] = "b",
	["s"] = "r",
	["t"] = "d",
	["þ"] = "h",
}

local function get_radical_data(term, initial_override)
	local initial, remainder
	initial = initial_override or mw.ustring.sub(term, 1, 1)
	remainder = mw.ustring.sub(term, 2)
	return initial, remainder
end

local function mutate_soft(data)
	local change = lenition[data.initial]
	if change then
		return change .. data.remainder
	end
	return data.radical
end

function export.mutate(term, intial_override)
	local data = {}
	data.radical = term
	data.initial, data.remainder = get_radical_data(term, initial_override)
	data.soft = mutate_soft(data)
	return data
end

local function get_mutation_info(radical, override, expected)
	local irregular = override and (expected ~= override)
	local mutation = override or expected
	local changed = mutation ~= radical
	return mutation, changed, irregular
end

function export.show(frame)
	local args = require("Module:parameters").process(frame:getParent().args, params)
	local radical = args["r"]
	local data = export.mutate(radical, args["i"])
	local s_mut, s_changed, s_irregular = get_mutation_info(radical, args["s"], data.soft)
	local ret = '{| style="display:table; width:54%; border: 1px solid #b3b3b3; font-size: 95%; text-align: center;'
	ret = ret .. '\n|-'
	ret = ret .. '\n! style="background:#efefef" colspan=2 | [[Appendix:Riyan mutation|Riyan mutation]] args[i] is ' .. args["i"] .. ' and data.initial is ' .. data.initial 
	ret = ret .. '\n|-'
	ret = ret .. '\n! style="padding-top:4px;" | [[Appendix:Glossary#radical|radical]]'
	ret = ret .. '\n! style="padding-top:4px; | [[Appendix:Glossary#lenition|lenited]]'
	ret = ret .. '\n|-'
	ret = ret .. '\n| style="padding-bottom:4px;" | ' .. radical
	ret = ret .. '\n| style="padding-bottom:4px;" | ' .. (s_changed and s_mut or UNCHANGED_MARKER) .. (s_irregular and IRREG_MARKER or "")
	ret = ret .. '\n|-'
	if s_irregular then
		ret = ret .. '\n| colspan=2 | <small style="font-size:85%;">' .. IRREG_MARKER .. 'Irregular.</small>'
	end
	if s_changed then
		ret = ret .. "\n| colspan=2 | <small style=\"font-size:85%;\">''Note:'' Some of these forms may be hypothetical. Not every possible mutated form of every word actually occurs.</small>"
	end
	ret = ret .. '\n|}'
	if s_irregular and (not args["nocat"]) then
		ret = ret .. "[[Categories:Riyan terms with irregular mutation]]"
	end
	return ret
end

return export