Module:In lang - Revision history

Richardpruen: 1 revision imported: templates

2023-08-08T09:01:40Z

1 revision imported: templates

← Older revision		Revision as of 10:01, 8 August 2023
(No difference)

Wikipedia>Trappist the monk at 14:52, 4 July 2023

2023-07-04T14:52:00Z

← Older revision		Revision as of 15:52, 4 July 2023
Line 1:		Line 1:
	require('strict');		require('strict');


	--[[--------------------------< _ I N _ L A N G >--------------------------------------------------------------		--[[--------------------------< _ I N _ L A N G >--------------------------------------------------------------
Line 34:		Line 33:
	local namespace = mw.title.getCurrentTitle().namespace; -- used for categorization		local namespace = mw.title.getCurrentTitle().namespace; -- used for categorization
	local this_wiki_lang = mw.language.getContentLanguage().code; -- get this wiki's language code		local this_wiki_lang = mw.language.getContentLanguage().code; -- get this wiki's language code
			local override_t = mw.loadData ('Module:Lang/data').override; -- this table holds ietf tag/name definitions known to Module:Lang

	for i, lang in ipairs (args) do		for i, lang in ipairs (args) do
Line 42:		Line 42:
	table.insert (list, lang) -- add this language or error message to the list		table.insert (list, lang) -- add this language or error message to the list

	if ~~not~~ ({['~~ca-valencia'] = true, ['gsw~~-fr'~~] = true, ['pt-br'] = true, ['nl-be'] = true}~~)[code] then -- except for ~~these exact~~ IETF tags~~; TODO: a better way/place to do this?~~		if code:find ('%-') and not override_t[code] then -- except for the IETF tags listed in <override_t>
	code = code:match ('^%a%a%a?%f[^%a]'); -- strip off region, script, and variant ~~tags~~ so that they aren't used to make category names		code = code:match ('^%a%a%a?%f[^%a]'); -- strip off region, script, and variant subtags so that they aren't used to make category names
	end		end

	if synonym_table[code] then -- if 639-2/639-2T code has a 639-1 synonym		if synonym_table[code] then -- if 639-2/639-2T code has a 639-1 synonym
	if (0 == namespace) and not list_cats then -- when listing cats don't include this cat; TODO: right choice?		if (0 == namespace) and not list_cats then -- when listing cats don't include this cat; TODO: right choice?
Line 60:		Line 61:
	table.insert (cats, '[[Category:in lang template errors]]');		table.insert (cats, '[[Category:in lang template errors]]');
	end		end
	elseif this_wiki_lang ~= code then -- categorize article only when code is not this wiki's language code		elseif this_wiki_lang ~= code:match ('^%a%a%a?') then -- categorize article only when code is not this wiki's language code or variants thereof
	if lang:match ('%[%[.-\|.-%]%]') then -- wikilinked individual language name		if lang:match ('%[%[.-\|.-%]%]') then -- wikilinked individual language name
	lang = lang:match ('%[%[.-\|(.-)%]%]');		lang = lang:match ('%[%[.-\|(.-)%]%]');
Line 75:		Line 76:
	end		end
	end		end

	if list_cats then		if list_cats then
	local cats = table.concat (cats, ', '):gsub ('[%[%]]', ''); -- make a string of categories and then strip wikilink markup		local cats = table.concat (cats, ', '):gsub ('[%[%]]', ''); -- make a string of categories and then strip wikilink markup

Richardpruen: 1 revision imported: Templates and CSS files

2022-12-04T17:54:18Z

1 revision imported: Templates and CSS files

← Older revision		Revision as of 18:54, 4 December 2022
(No difference)

wikipedia>Trappist the monk: Module:Lang no longer creates 'collective' categories; this module should do the same;

2022-10-29T14:56:20Z

Module:Lang no longer creates 'collective' categories; this module should do the same;

← Older revision		Revision as of 15:56, 29 October 2022
Line 1:		Line 1:
	require ('~~Module:No globals~~');		require('strict');


Line 25:		Line 25:
	if not args[1] then		if not args[1] then
	local template = (args['template'] and table.concat ({'{{', args['template'], '}}: '})) or ''; -- make template name (if provided by the template)		local template = (args['template'] and table.concat ({'{{', args['template'], '}}: '})) or ''; -- make template name (if provided by the template)
	return table.concat ({'<span style=\"~~font-size~~:~~100%; font-style:normal;\" class=\"error~~\">error: ', template, 'missing language tag</span>'});		return table.concat ({'<span style=\"color:#d33\">error: ', template, 'missing language tag</span>'});
	end		end

Line 39:		Line 39:
	local t = {code, ['link'] = args['link'], ['template'] = args['template']}; -- build an 'args' table		local t = {code, ['link'] = args['link'], ['template'] = args['template']}; -- build an 'args' table
	lang = name_from_tag (t) -- get the language name		lang = name_from_tag (t) -- get the language name

	table.insert (list, lang) -- add this language or error message to the list		table.insert (list, lang) -- add this language or error message to the list

	if 'ca-valencia' ~= code then -- except for ~~valencian~~		if not ({['ca-valencia'] = true, ['gsw-fr'] = true, ['pt-br'] = true, ['nl-be'] = true})[code] then -- except for these exact IETF tags; TODO: a better way/place to do this?
	code = code:match ('^%a%a%a?%f[^%a]'); -- strip off region, script, and variant tags so that they aren't used to make category names		code = code:match ('^%a%a%a?%f[^%a]'); -- strip off region, script, and variant tags so that they aren't used to make category names
	end		end
Line 54:		Line 55:
	end		end

	if (0 == namespace) or list_cats then -- when in article space		if (0 == namespace) or list_cats then -- when in article space
	if lang:find ('~~error~~') then -- add error category (message provided by Module:Lang)		if lang:find ('[Ee]rror') then -- add error category (message provided by Module:Lang)
	if not list_cats then -- don't include this cat when ~~listin~~ cats; TODO: right choice?		if not list_cats then -- don't include this cat when listing cats; TODO: right choice?
	table.insert (cats, '[[Category:in lang template errors]]');		table.insert (cats, '[[Category:in lang template errors]]');
	end		end
Line 67:		Line 68:

	if lang:find ('languages') then -- add appropriate language-name category		if lang:find ('languages') then -- add appropriate language-name category
	table.insert (cats, table.concat ({'[[Category:Articles with ', lang, '~~-collective sources~~ (', code, ')]]'}));		table.insert (cats, table.concat ({'[[Category:Articles with sources in ', lang, ' (', code, ')]]'}));
	else		else
	table.insert (cats, table.concat ({'[[Category:Articles with ', lang, '-language sources (', code, ')]]'}));		table.insert (cats, table.concat ({'[[Category:Articles with ', lang, '-language sources (', code, ')]]'}));

Richardpruen: 1 revision imported

2021-09-07T09:09:09Z

1 revision imported

← Older revision		Revision as of 10:09, 7 September 2021
(No difference)

Wikipedia>Trappist the monk: Trappist the monk moved page Module:Lang/utilities to Module:In lang without leaving a redirect: match name of template it implements

2020-09-19T16:34:25Z

Trappist the monk moved page Module:Lang/utilities to Module:In lang without leaving a redirect: match name of template it implements

New page

require ('Module:No globals');

--[[--------------------------< _ I N _ L A N G >--------------------------------------------------------------

implements {{in lang}}

Module entry point from another module

|link=yes - creates wikilinked language names
|template=<template name> - customizes error messages created by Module:lang
|list-cats=yes - documentation tool returns language-category names of cats populated by this template

(in <language>)

]]

local function _in_lang (args)
local synonym_table = mw.loadData ('Module:Lang/ISO 639 synonyms'); -- ISO 639-2/639-2T code translation to 639-1 code
local list_cats = 'yes' == args['list-cats']; -- make a boolean
local list = {};
local cats = {};
local maint_msgs = {};

if not args[1] then
local template = (args['template'] and table.concat ({'{{', args['template'], '}}: '})) or ''; -- make template name (if provided by the template)
return table.concat ({'error: ', template, 'missing language tag'});
end

local module = 'Module:Lang' .. (mw.getCurrentFrame():getTitle():match ('/sandbox') or ''); -- if this module is the sandbox,

local name_from_tag = require (module)._name_from_tag; -- use Module:Lang/sandbox; Module:Lang else

local namespace = mw.title.getCurrentTitle().namespace; -- used for categorization
local this_wiki_lang = mw.language.getContentLanguage().code; -- get this wiki's language code

for i, lang in ipairs (args) do
local code = args[i]:lower();
local t = {code, ['link'] = args['link'], ['template'] = args['template']}; -- build an 'args' table
lang = name_from_tag (t) -- get the language name
table.insert (list, lang) -- add this language or error message to the list

if 'ca-valencia' ~= code then -- except for valencian
code = code:match ('^%a%a%a?%f[^%a]'); -- strip off region, script, and variant tags so that they aren't used to make category names
end
if synonym_table[code] then -- if 639-2/639-2T code has a 639-1 synonym
if (0 == namespace) and not list_cats then -- when listing cats don't include this cat; TODO: right choice?
table.insert (cats, table.concat ({'[[Category:Lang and lang-xx code promoted to ISO 639-1|', code ..']]'}));
end
table.insert (maint_msgs, ' ')
table.insert (maint_msgs, table.concat ({'code: ', code, ' promoted to code: ', synonym_table[code]}));
table.insert (maint_msgs, ';');
code = synonym_table[code]; -- use the synonym
end

if (0 == namespace) or list_cats then -- when in article space
if lang:find ('error') then -- add error category (message provided by Module:Lang)
if not list_cats then -- don't include this cat when listin cats; TODO: right choice?
table.insert (cats, '[[Category:in lang template errors]]');
end
elseif this_wiki_lang ~= code then -- categorize article only when code is not this wiki's language code
if lang:match ('%[%[.-|.-%]%]') then -- wikilinked individual language name
lang = lang:match ('%[%[.-|(.-)%]%]');
elseif lang:match ('%[%[.-%]%]') then -- wikilinked collective languages name
lang = lang:match ('%[%[(.-)%]%]');
end -- neither of these then plain-text language name

if lang:find ('languages') then -- add appropriate language-name category
table.insert (cats, table.concat ({'[[Category:Articles with ', lang, '-collective sources (', code, ')]]'}));
else
table.insert (cats, table.concat ({'[[Category:Articles with ', lang, '-language sources (', code, ')]]'}));
end
end
end
end

if list_cats then
local cats = table.concat (cats, ', '):gsub ('[%[%]]', ''); -- make a string of categories and then strip wikilink markup
return cats
end

local result = {'('}; -- opening span and (
table.insert (result, 'yes' == args['cap'] and 'In ' or 'in '); -- add capitalized or uncapitalized 'in'
table.insert (result, mw.text.listToText (list, ', ', (2 < #list) and ', and ' or ' and ' )); -- and concatenate the language list

table.insert (result, ')'); -- add closing ) and closing span
table.insert (result, table.concat (maint_msgs) or ''); -- add maint messages, if any
table.insert (result, table.concat (cats)); -- add categories
return table.concat (result); -- make a big string and done
end

--[[------------------------------------------------------------------------------------------

implements {{in lang}}

Module entry point from an {{#invoke:lang/utilities/sanbox|in_lang|<code>|<code2>|<code3>|<code...>|link=yes|template=in lang|list-cats=yes}}

]]

local function in_lang (frame)
local args = require ('Module:Arguments').getArgs (frame);
return _in_lang (args);
end

--[[--------------------------< E X P O R T E D F U N C T I O N S >------------------------------------------
]]

return {
in_lang = in_lang, -- module entry from {{#invoke:}}

_in_lang = _in_lang, -- module entry from another module
}