View source for Module:translations

local export = {}

local m_languages = require("Module:languages")
local m_links = require("Module:links")

function export.show(frame)
	---PLEASE DELETE THIS SOON
	if frame:getParent().args[2] == nil then return "<big><b>Please now add the entry language code as the first parameter!</b></big>[[Category:Translations to update]]" end
	
	local function sort_function(a, b)
		return a.name < b.name
	end
	local tag_missing = {"rad", "lfv", "ryn"}
	local translations = {}
	local title
	local args = frame:getParent().args
	local language = m_languages.get_by_code(args[1])
	local title = args[2] or args["title"] or args["t"]
	local nocat = false
	if args['nocat'] then
		nocat = true
		args['nocat'] = nil
	end
	if title then title = string.gsub(title, "%s+$", "") end
	for k, v in pairs(args) do
		if type(k) == "string" and type(v) == "string" then
			local tr_language = m_languages.get_by_code(k)
			local to_process = v
			local bytext = ""
			-- add links between *asterisks* --
			while #to_process > 0 do
				if mw.ustring.match(to_process, "%*[^%*]+%*") then
					local pre = mw.ustring.match(to_process, "^([^%*]+)%*") or ""
					local translink = mw.ustring.match(to_process, "%*([^%*]+)%*")
					to_process = mw.ustring.sub(to_process, mw.ustring.len(pre) + mw.ustring.len(translink) + 3)
					translink = m_links.full_link{term = translink, language = tr_language, nobold = true}
					bytext = bytext .. pre .. translink
				else
					bytext = bytext .. to_process
					to_process = ""
				end
			end
			table.insert(translations, {name = tr_language.name, display = tr_language.name .. ": " .. bytext})
		end
	end
	if not title then error("the first parameter provided must be a title for the translations box") end
	table.sort(translations, sort_function)
	local out = ""
	if #translations > 0 then
		out = '<div class="mw-collapsible mw-collapsed" data-expandtext="{{int:show}}" data-collapsetext="{{int:hide}}" style="padding:0.2em 0.6em 0.2em 0.6em; border-right:1px solid #BEBEBE; border-bottom:1px dotted black; background:#EDEDED">'
		out = out .. "'''" .. title .. "'''"
		out = out .. '\n<div class="z-index:-1; toccolours mw-collapsible-content" style="border:0;">'
		out = out .. '\n{| border="0" width="100%" class="translations"'
		out = out .. '\n|-'
		out = out .. '\n| bgcolor="beige" valign="top" width="48%" |'
		for _, n in ipairs(translations) do out = out .. '\n* ' .. n.display .. "[[Category:" .. language.name .. " terms with " .. n.name .. " translations]]" end
		out = out .. '\n|}'
		out = out .. '\n</div></div>[[Category:' .. language.name .. ' terms with translations]]'
	end
	for _, lang in ipairs(tag_missing) do
		if lang ~= language.code and args[lang] == nil then
			out = out .. "[[Category:" .. language.name .. " terms needing " .. m_languages.get_by_code(lang).name .. " translations]]"
		end
	end
	if nocat then out = mw.ustring.gsub(out, "%[%[Category[^%]]+%]%]", "") end
	return out
end

return export