Misplaced Pages

This is an old revision of this page, as edited by Gonnym (talk | contribs) at 15:32, 30 November 2024. The present address (URL) is a permanent link to this revision, which may differ significantly from the current revision.

This is the module sandbox page for Module:Wikt-lang (diff). See also the companion subpage for test cases (run).

This module is rated as beta, and is ready for widespread use. It is still new and should be used with some caution to ensure the results are as expected.

This module depends on the following other modules: Module:Wikt-lang/data (sandbox) Module:Unicode data (sandbox)

This module is used by {{Wikt-lang}}. It is inspired by the templates {{m}} and {{l}} and their associated modules on Wiktionary. It has a Wiktionary link function that links to the correct section of the Wiktionary entry, and applies correct language formatting and italics. The language-tagging function does most of what {{Lang}} does, except that italics can't be customized and categories aren't added.

The module uses Module:Wikt-lang/data to retrieve the language name for a language code, and to perform the necessary entry-name replacements (for instance, removing macrons from Latin entry names). These are unfortunately not automatically retrieved from Wiktionary's Wikt-lang data modules. For language codes that do not have a name value in this module, the language name is fetched with mw.language.fetchLanguage. When mw.language.fetchLanguage does not fetch the correct language name (or any language name at all), please add it to Module:Wikt-lang/data, and similarly when the correct entry name is not generated, please add the entry name replacements to the module.

Examples

• {{#invoke:Wikt-lang|wiktlang|en|language}} -> language
• {{#invoke:Wikt-lang|wiktlang|en|language|languages}} -> languages
• {{#invoke:Wikt-lang|wiktlang|fr|bourguignon}} -> bourguignon
• {{#invoke:Wikt-lang|wiktlang|la|homō}} -> homō
• {{#invoke:Wikt-lang|wiktlang|grc|δημοκρατίᾱ}} -> δημοκρατίᾱ
• {{#invoke:Wikt-lang|wiktlang|ru|язы́к}} -> язы́к
• {{#invoke:Wikt-lang|wiktlang|ar|العَرَبِيَّة}} -> ‏العَرَبِيَّة‎
• {{#invoke:Wikt-lang|wiktlang|fa|فارسی}} -> فارسی
• {{#invoke:Wikt-lang|wiktlang|ine-x-proto|*h₂enǵʰ-}} -> *h₂enǵʰ-

Invalid codes

• {{#invoke:Wikt-lang|wiktlang|EN|language}} -> language
• {{#invoke:Wikt-lang|wiktlang|En|language|languages}} -> languages
• {{#invoke:Wikt-lang|wiktlang|La|homō}} -> homō
• {{#invoke:Wikt-lang|wiktlang|Grc|δημοκρατίᾱ}} -> δημοκρατίᾱ
• {{#invoke:Wikt-lang|wiktlang|Ru|язы́к}} -> язы́к
• {{#invoke:Wikt-lang|wiktlang|Ar|العَرَبِيَّة}} -> ‏العَرَبِيَّة‎
• {{#invoke:Wikt-lang|wiktlang|Fa|فارسی}} -> فارسی

Errors

• {{#invoke:Wikt-lang|wiktlang|en-Latin|language}} -> language

Comparison of codes

Tracking categories

• Template:Tracking/wikt-lang/reconstructed with no asterisk

require('strict')
local m_data = mw.loadData("Module:Wikt-lang/data")
local langData = m_data.languages or m_data

local p = {}

local error_mesages = {
	 = "The function makeEntryName requires a string argument",
	 = "Name for the language code $1 could not be retrieved with mw.language.fetchLanguageName, so it should be added to ]",
	 = "Language name is empty",
	 = "linkToWiktionary needs a Wiktionary entry or link text, or both",
	 = "The function wiktlang generated nothing",
}

local cfg = {
	template = "Wikt-lang",
	wiki_language = "en",
	error = "Error",
	category = "Category:Wikt-lang template errors",
	appendix = "Appendix:$1/$2",
	reconstruction = "Reconstruction:$1/$2",
	types = {
		appendix = "appendix",
		reconstructed = "reconstructed",
	}
}

local function ifNotEmpty(value)
	if value == "" then
		return nil
	else
		return value
	end
end

local function makeEntryName(word, languageCode)
	local data = langData

	local ugsub = mw.ustring.gsub
	word = tostring(word)
	if word == nil then
		error(error_mesages.makeEntryName)
	elseif word == "" then
		return ""
	else
		-- Remove bold and italics, so that words that contain bolding or emphasis can be linked without piping.
		word = word:gsub("\'\'\'", "")
		word = word:gsub("\'\'", "")
		if data == nil then
			return word
		else
			local replacements = data and data
			if replacements == nil then
				return word
			else
				-- Decompose so that the diacritics of characters such
				-- as á can be removed in one go.
				-- No need to compose at the end, because the MediaWiki software
				-- will handle that.
				if replacements.decompose then
					word = mw.ustring.toNFD(word)
					for i, from in ipairs(replacements.from) do
						word = ugsub(
							word,
							from,
							replacements.to and replacements.to or "")
					end
				else
					for regex, replacement in pairs(replacements) do
						word = ugsub(word, regex, replacement)
					end
				end
				return word
			end
		end
	end
end


local function tag(text, languageCode, script, italics)
	local data = langData
	-- Use Misplaced Pages code if it has been given: for instance,
	-- Proto-Indo-European has the Wiktionary code "ine-pro" but the Misplaced Pages
	-- code "ine-x-proto".
	languageCode = data and data.Wikipedia_code or languageCode
	
	local italicize = script == "Latn" and italics
	
	if not text then text = "" end
	
	local textDirectionMarkers = {"", "", ""}
	if data and data == "rtl" then
		textDirectionMarkers = {' dir="rtl"', '‏', '‎'}
	end
	
	local out = {textDirectionMarkers}
	if italicize then
		table.insert(out, "<i lang=\"" .. languageCode .. "\"" .. textDirectionMarkers .. ">" .. text .. "</i>")
	else
		table.insert(out, "<span lang=\"" .. languageCode .. "\"" .. textDirectionMarkers .. ">" .. text .. "</span>")
	end
	table.insert(out, textDirectionMarkers)
	
	return table.concat(out)
end

local function linkToWiktionary(entry, link_text, languageCode)
	local data = langData
	local name
	if languageCode then
		if data and data.name then
			name = data.name
		else
			-- On other languages' wikis, use mw.getContentLanguage():getCode(),
			-- or replace 'en' with that wiki's language code.
			name = mw.language.fetchLanguageName(languageCode, cfg.wiki_language)
			if name == "" then
				error("Name for the language code " .. ("%q"):format(languageCode or nil)
					.. " could not be retrieved with mw.language.fetchLanguageName, "
					.. "so it should be added to ]")
			end
		end
		if entry:sub(1, 1) == "*" then
			if name ~= "" then
				entry = "Reconstruction:" .. name .. "/" .. entry:sub(2)
			else
				error(error_mesages.empty_language_name)
			end
		elseif data and data.type == cfg.types.reconstructed then
			mw.log("Reconstructed language without asterisk:", languageCode, name, entry)
			local frame = mw.getCurrentFrame()
			-- Track reconstructed entries with no asterisk by transcluding
			-- a nonexistent template. This technique is used in Wiktionary:
			-- see ].
			-- ]
			pcall(frame.expandTemplate, frame,
				{ title = 'tracking/wikt-lang/reconstructed with no asterisk' })
			if name ~= "" then
				entry = "Reconstruction:" .. name .. "/" .. entry
			else
				error(error_mesages.empty_language_name)
			end
		elseif data and data.type == cfg.types.appendix then
			if name ~= "" then
				entry = "Appendix:" .. name .. "/" .. entry
			else
				error(error_mesages.empty_language_name)
			end
		end
		if entry and link_text then
			return "]"
		else
			error(error_mesages.no_text)
		end
	else
		return "]"
	end
end

--[[--------------------------< M A K E _ E R R O R _ S P A N >--------------------------------------------------

]]

local function maker_error_span (msg)
	return table.concat ({'<span style="color: #d33;">', cfg.error, ': ', cfg.template, msg, '</span>'})
end


--[[--------------------------< W I K T L A N G >--------------------------------------------------------------------

Entry point for {{Wikt-lang}}.

Parameters are received from the template's frame (parent frame).

1 - language codes
2 - link text
3 - display text
italic - no to disable

]]

function p.wiktlang(frame)
	local parent = frame:getParent()
	local args = parent.args and parent.args or frame.args

	if not args or '' == args then
		return maker_error_span(" Parameter 2 is required") .. cfg.category
	end

	local codes = args and mw.text.trim(args)
	local link_text = ifNotEmpty(args)
	local display_text = ifNotEmpty(args)
	if display_text then
		link_text = display_text
	end

	local formatted_code
	local languageCode
	local language_name
	local rtl
	local italic
	local msg

	local errorText
	local langM = require("Module:Lang/sandbox2")

	formatted_code, languageCode, language_name, rtl, italic, msg = langM.test({code = codes, text = link_text or display_text}, "wikt-lang")
	if msg then
		return msg
	end

	languageCode = m_data.redirects or languageCode

	local entry = makeEntryName(link_text, languageCode)

	local out
	if languageCode and entry and link_text then
		local scriptCode = require("Module:Unicode data").is_Latin(link_text or display_text) and "Latn" or "unknown"
		out = tag(linkToWiktionary(entry, link_text, languageCode), languageCode, scriptCode, italic) 	-- tag should also be replaced with the lang.make_text_html function
	elseif entry and link_text then
		out = linkToWiktionary(entry, link_text)
	else
		out = '<span style="font-size: smaller;"></span>'
	end

	if errorText then
		return errorText or error(error_mesages.no_result)
	else
		return out
	end
end

return p

• Module sandboxes