Safer nicotine wiki

Module:Lang: Difference between revisions

← Older editNewer edit →
m 1 revision imported
No edit summary
Line 5: Line 5:
]=]
]=]


require('Module:No globals');
require('strict');


local getArgs = require ('Module:Arguments').getArgs;
local getArgs = require ('Module:Arguments').getArgs;
Line 484: Line 484:


return text;
return text;
end
--[[--------------------------< T I T L E _ W R A P P E R _ M A K E >------------------------------------------
makes a <span title="<title text>"><content_text></span> or <div title="<title text>"><content_text></div> where
<title text> is in the tool-tip in the wiki's local language and <content_text> is non-local-language text in
html markup.  This because the lang= attibute applies to the content of its enclosing tag.
<tag> holds a string 'div' or 'span' used to choose the correct wrapping tag
]]
local function title_wrapper_make (title_text, content_text, tag)
local wrapper_t = {};
table.insert (wrapper_t, table.concat ({'<', tag})); -- open opening wrapper tag
table.insert (wrapper_t, ' title=\"'); -- begin title attribute
table.insert (wrapper_t, title_text); -- add <title_text>
table.insert (wrapper_t, '\">'); -- end title attribute and close opening wrapper tag
table.insert (wrapper_t, content_text); -- add <content_text>
table.insert (wrapper_t, table.concat ({'</', tag, '>'})); -- add closing wrapper tag
return table.concat (wrapper_t); -- make a big string and done
end
end


Line 491: Line 514:
Add the html markup to text according to the type of content that it is: <span> or <i> tags for inline content or
Add the html markup to text according to the type of content that it is: <span> or <i> tags for inline content or
<div> tags for block content
<div> tags for block content
The lang= attribute also applies to the content of the tag where it is placed so this is wrong because 'Spanish
language text' is English:
<i lang="es" title="Spanish language text">casa</i>
should be:
<span title="Spanish language text"><i lang="es">casa</i></span>
or for <div>...</div>:
<div title="Spanish language text"><div lang="es"><spanish-language-text></div></div>


]]
]]


local function make_text_html (code, text, tag, rtl, style, size, language)
local function make_text_html (code, text, tag, rtl, style, size, language)
local html = {};
local html_t = {};
local style_added = '';
local style_added = '';
local wrapper_tag = tag; -- <tag> gets modified so save a copy for use when/if we create a wrapper span or div


if text:match ('^%*') then
if text:match ('^%*') then
table.insert (html, '&#42;'); -- move proto language text prefix outside of italic markup if any; use numeric entity because plain splat confuses MediaWiki
table.insert (html_t, '&#42;'); -- move proto language text prefix outside of italic markup if any; use numeric entity because plain splat confuses MediaWiki
text = text:gsub ('^%*', ''); -- remove the splat from the text
text = text:gsub ('^%*', ''); -- remove the splat from the text
end
end
Line 511: Line 543:
end
end


table.insert (html, table.concat ({'<', tag})); -- open the <i>, <span>, or <div> html tag
table.insert (html_t, table.concat ({'<', tag})); -- open the <i>, <span>, or <div> html tag
code = code:gsub ('%-x%-.*', ''); -- strip private use subtag from code tag because meaningless outside of wikipedia
code = code:gsub ('%-x%-.*', ''); -- strip private use subtag from code tag because meaningless outside of wikipedia
table.insert (html, table.concat ({' lang="', code, '\"'})); -- add language attribute
table.insert (html_t, table.concat ({' lang="', code, '\"'})); -- add language attribute


if (rtl or unicode.is_rtl(text)) and ('ltr' == this_wiki_lang_dir) then -- text is right-to-left on a left-to-right wiki
if (rtl or unicode.is_rtl(text)) and ('ltr' == this_wiki_lang_dir) then -- text is right-to-left on a left-to-right wiki
table.insert (html, ' dir="rtl"'); -- add direction attribute for right-to-left languages
table.insert (html_t, ' dir="rtl"'); -- add direction attribute for right-to-left languages
elseif not (rtl or unicode.is_rtl(text)) and ('rtl' == this_wiki_lang_dir) then -- text is left-to-right on a right-to-left wiki
elseif not (rtl or unicode.is_rtl(text)) and ('rtl' == this_wiki_lang_dir) then -- text is left-to-right on a right-to-left wiki
table.insert (html, ' dir="ltr"'); -- add direction attribute for left-to-right languages
table.insert (html_t, ' dir="ltr"'); -- add direction attribute for left-to-right languages
end
end


if 'normal' == style then -- when |italic=no
if 'normal' == style then -- when |italic=no
table.insert (html, ' style=\"font-style: normal;'); -- override external markup, if any
table.insert (html_t, ' style=\"font-style: normal;'); -- override external markup, if any
style_added = '\"'; -- remember that style attribute added and is not yet closed
style_added = '\"'; -- remember that style attribute added and is not yet closed
end
end
Line 528: Line 560:
if is_set (size) then -- when |size=<something>
if is_set (size) then -- when |size=<something>
if is_set (style_added) then
if is_set (style_added) then
table.insert (html, table.concat ({' font-size: ', size, ';'})); -- add when style attribute already inserted
table.insert (html_t, table.concat ({' font-size: ', size, ';'})); -- add when style attribute already inserted
else
else
table.insert (html, table.concat ({' style=\"font-size: ', size, ';'})); -- create style attribute
table.insert (html_t, table.concat ({' style=\"font-size: ', size, ';'})); -- create style attribute
style_added = '\"'; -- remember that style attribute added and is not yet closed
style_added = '\"'; -- remember that style attribute added and is not yet closed
end
end
end
end


if is_set (language) then
table.insert (html_t, table.concat ({style_added, '>'})); -- close the opening html tag
table.insert (html, table.concat ({style_added, ' title=\"', language})); -- start the title text
table.insert (html_t, text); -- insert the text
if 'zxx' == code then -- special case for this tag
 
table.insert (html, ' text'); -- not a language so don't use 'language' in title text
table.insert (html_t, table.concat ({'</', tag, '>'})); -- close the 'text' <i>, <span>, or <div> html tag
elseif mw.ustring.find (language, 'languages', 1, true) then
 
table.insert (html, ' collective text'); -- for collective languages
if is_set (language) then -- create a <title_text> string for the title= attribute in a wrapper span or div
else
local title_text;
table.insert (html, '-language text'); -- for individual languages
if 'zxx' == code then -- special case for this tag 'no linguistic content'
end
title_text = table.concat ({language, ' text'}); -- not a language so don't use 'language' in title text
table.insert (html, '\">'); -- close the opening html tag
elseif mw.ustring.find (language, 'languages', 1, true) then
title_text = table.concat ({language, ' collective text'}); -- for collective languages
else
title_text = table.concat ({language, '-language text'}); -- for individual languages
end
 
return title_wrapper_make (title_text, table.concat (html_t), wrapper_tag);
else
else
table.insert (html, table.concat ({style_added, '>'})); -- close the style attribute and close opening html tag
return table.concat (html_t);
end
end
table.insert (html, text); -- insert the text
table.insert (html, table.concat ({'</', tag, '>'})); -- close the <i>, <span>, or <div> html tag
return table.concat (html); -- put it all together and done
end
end


Line 583: Line 616:
table.insert (cat, '[[Category:Articles containing ');
table.insert (cat, '[[Category:Articles containing ');


if 'en' == code then
if this_wiki_lang_tag == code then
table.insert (cat, 'explicitly cited ' .. language_name); -- falls back to English if regional name not available
table.insert (cat, 'explicitly cited ' .. language_name); -- unique category name for the local language
else
else
table.insert (cat, language_name);
table.insert (cat, language_name);
Line 615: Line 648:
local function make_translit (code, language_name, translit, std, tscript, style)
local function make_translit (code, language_name, translit, std, tscript, style)
local title;
local title;
local tout = {};
local out_t = {};
local title_table = lang_data.translit_title_table; -- table of transliteration standards and the language codes and scripts that apply to those standards
local title_t = lang_data.translit_title_table; -- table of transliteration standards and the language codes and scripts that apply to those standards
local title_text = ''; -- tool tip text for title= attribute
if is_set (code) then -- when a language code is provided (always with {{lang-xx}} templates, not always with {{transl}})
if not style then -- nil for the default italic style
table.insert (tout, "<i lang=\""); -- so use <i> tag
else
table.insert (tout, table.concat ({'<span style=\"font-style: ', style, '\" lang=\"'})); -- non-standard style, construct a span tag for it
end
table.insert (tout, code);
table.insert (tout, "-Latn\" title=\""); -- transliterations are always Latin script
else
table.insert (tout, "<span title=\""); -- when no language code: no lang= attribute, not italic ({{transl}} only)
end
std = std and std:lower(); -- lower case for table indexing
std = std and std:lower(); -- lower case for table indexing
if not is_set (std) and not is_set (tscript) then -- when neither standard nor script specified
if not is_set (std) and not is_set (tscript) then -- when neither standard nor script specified
table.insert (tout, language_name); -- write a generic tool tip
title_text = language_name; -- write a generic tool tip
if not mw.ustring.find (language_name, 'languages', 1, true) then -- collective language names (plural 'languages' is part of the name)
if not mw.ustring.find (language_name, 'languages', 1, true) then -- collective language names (plural 'languages' is part of the name)
table.insert (tout, '-language') -- skip this text (individual and macro languages only)
title_text = title_text .. '-language'; -- skip this text (individual and macro languages only)
end
end
table.insert (tout, ' romanization'); -- finish the tool tip; use romanization when neither script nor standard supplied
title_text = title_text .. ' romanization'; -- finish the tool tip; use romanization when neither script nor standard supplied
 
elseif is_set (std) and is_set (tscript) then -- when both are specified
elseif is_set (std) and is_set (tscript) then -- when both are specified
if title_table[std] then -- and if standard is legitimate
if title_t[std] then -- and if standard is legitimate
if title_table[std][tscript] then -- and if script for that standard is legitimate
if title_t[std][tscript] then -- and if script for that standard is legitimate
if script_table[tscript] then
if script_table[tscript] then
table.insert (tout, table.concat ({title_table[std][tscript:lower()], ' (', script_table[tscript], ' script) transliteration'})); -- add the appropriate text to the tool tip
title_text = title_text .. table.concat ({title_t[std][tscript:lower()], ' (', script_table[tscript], ' script) transliteration'}); -- add the appropriate text to the tool tip
else
else
table.insert (tout, title_table[std]['default']); -- use the default if script not in std table; TODO: maint cat? error message because script not found for this standard?
title_text = title_text .. title_t[std]['default']; -- use the default if script not in std table; TODO: maint cat? error message because script not found for this standard?
end
end
else
else
table.insert (tout, title_table[std]['default']); -- use the default if script not in std table; TODO: maint cat? error message because script not found for this standard?
title_text = title_text .. title_t[std]['default']; -- use the default if script not in std table; TODO: maint cat? error message because script not found for this standard?
end
end
else
else
Line 654: Line 677:


elseif is_set (std) then -- translit-script not set, use language code
elseif is_set (std) then -- translit-script not set, use language code
if not title_table[std] then return ''; end -- invalid standard, setup for error message
if not title_t[std] then return ''; end -- invalid standard, setup for error message
if title_table[std][code] then -- if language code is in the table (transl may not provide a language code)
if title_t[std][code] then -- if language code is in the table (transl may not provide a language code)
table.insert (tout, table.concat ({title_table[std][code:lower()], ' (', language_name, ' language) transliteration'})); -- add the appropriate text to the tool tip
title_text = title_text .. table.concat ({title_t[std][code:lower()], ' (', language_name, ' language) transliteration'}); -- add the appropriate text to the tool tip
else -- code doesn't match
else -- code doesn't match
table.insert (tout, title_table[std]['default']); -- so use the standard's default
title_text = title_text .. title_t[std]['default']; -- so use the standard's default
end
end
else -- here if translit-script set but translit-std not set
else -- here if translit-script set but translit-std not set
if title_table['no_std'][tscript] then
if title_t['no_std'][tscript] then
table.insert (tout, title_table['no_std'][tscript]); -- use translit-script if set
title_text = title_text .. title_t['no_std'][tscript]; -- use translit-script if set
elseif title_table['no_std'][code] then
elseif title_t['no_std'][code] then
table.insert (tout, title_table['no_std'][code]); -- use language code
title_text = title_text .. title_t['no_std'][code]; -- use language code
else
else
if is_set (tscript) then
if is_set (tscript) then
table.insert (tout, table.concat ({language_name, '-script transliteration'})); -- write a script tool tip
title_text = title_text .. table.concat ({language_name, '-script transliteration'}); -- write a script tool tip
elseif is_set (code) then
elseif is_set (code) then
if not mw.ustring.find (language_name, 'languages', 1, true) then -- collective language names (plural 'languages' is part of the name)
if not mw.ustring.find (language_name, 'languages', 1, true) then -- collective language names (plural 'languages' is part of the name)
table.insert (tout, '-language') -- skip this text (individual and macro languages only)
title_text = title_text .. '-language'; -- skip this text (individual and macro languages only)
end
end
table.insert (tout, ' transliteration'); -- finish the tool tip
title_text = title_text .. ' transliteration'; -- finish the tool tip
else
else
table.insert (tout, ' transliteration'); -- generic tool tip (can we ever get here?)
title_text = title_text .. ' transliteration'; -- generic tool tip (can we ever get here?)
end
end
end
end
end
end


table.insert (tout, '">');
local close_tag;
table.insert (tout, translit);
if is_set (code) then -- when a language code is provided (always with {{lang-xx}} templates, not always with {{transl}})
if is_set (code) and not style then -- when a language code is provided (always with {{lang-xx}} templates, not always with {{transl}})
if not style then -- nil for the default italic style
table.insert (tout, "</i>"); -- close the italic tag
table.insert (out_t, "<i lang=\""); -- so use <i> tag
close_tag = '</i>'; -- tag to be used when closing
else
table.insert (out_t, table.concat ({'<span style=\"font-style: ', style, '\" lang=\"'})); -- non-standard style, construct a span tag for it
close_tag = '</span>'; -- tag to be used when closing
end
table.insert (out_t, code);
table.insert (out_t, "-Latn\">"); -- transliterations are always Latin script
else
else
table.insert (tout, "</span>"); -- no language code so close the span tag
table.insert (out_t, "<span>"); -- when no language code: no lang= attribute, not italic ({{transl}} only)
close_tag = '</span>';
end
 
table.insert (out_t, translit); -- add the translit text
table.insert (out_t, close_tag); -- and add the appropriate </i> or </span>
 
if '' == title_text then -- when there is no need for a tool-tip
return table.concat (out_t); -- make a string and done
else
return title_wrapper_make (title_text, table.concat (out_t), 'span'); -- wrap with a tool-tip span and don
end
end
return table.concat (tout);
end
end


Line 895: Line 935:
local template = args.template or 'Lang';
local template = args.template or 'Lang';


maint_cats = {}; -- initialize because when this module required into another module, these only declared once so only initialzed once
maint_msgs = {};
validate_cat_args (args); -- determine if categorization should be suppressed
validate_cat_args (args); -- determine if categorization should be suppressed


Line 995: Line 1,038:


return _lang (args);
return _lang (args);
end
--[[--------------------------< T R A N S L A T I O N _ M A K E >----------------------------------------------
stand-alone function to create literal translation of main text
Also used by {{lang-x2}}
]]
local function translation_make (args_t)
local translation_t = {', '}; -- initialize output
if 'none' ~= args_t.label then -- if we want a label
table.insert (translation_t, '<small>'); -- open the <small> html tag
if 'no' == args_t.link then
table.insert (translation_t, '<abbr title="literal translation">lit.</abbr>'); -- unlinked form
else
table.insert (translation_t, make_wikilink ('Literal translation', 'lit.')); -- linked form
end
table.insert (translation_t, "&thinsp;</small>"); -- close the <small> html tag
end
table.insert (translation_t, table.concat ({'&#39;', args_t.translation, '&#39;'})); -- use html entities to avoid wiki markup confusion
return table.concat (translation_t); -- make a big string and done
end
end


Line 1,056: Line 1,124:
local template = args.template or 'Lang-xx';
local template = args.template or 'Lang-xx';


maint_cats = {}; -- initialize because when this module required into another module, these only declared once so only initialzed once
maint_msgs = {};
if args[1] and args.text then
if args[1] and args.text then
return make_error_msg ('conflicting: {{{1}}} and |text=', args, template);
return make_error_msg ('conflicting: {{{1}}} and |text=', args, template);
Line 1,189: Line 1,260:
if is_set (args.translation) then -- translation (not supported in {{lang}})
if is_set (args.translation) then -- translation (not supported in {{lang}})
table.insert (out, ', ');
table.insert (out, translation_make (args));
if 'none' ~= args.label then
table.insert (out, '<small>');
if 'no' == args.link then
table.insert (out, '<abbr title="literal translation">lit.</abbr>');
else
table.insert (out, make_wikilink ('Literal translation', 'lit.'));
end
table.insert (out, "&thinsp;</small>");
end
table.insert (out, table.concat ({'&#39;', args.translation, '&#39;'})); -- use html entities to avoid wiki markup confusion
end
end
Line 1,461: Line 1,522:
local msg; -- for when called functions return an error message
local msg; -- for when called functions return an error message


maint_cats = {}; -- initialize because when this module required into another module, these only declared once so only initialzed once
maint_msgs = {};
if is_set (args[3]) then -- [3] set when {{transl|code|standard|text}}
if is_set (args[3]) then -- [3] set when {{transl|code|standard|text}}
args.text = args[3]; -- get the transliterated text
args.text = args[3]; -- get the transliterated text
Line 1,601: Line 1,665:
_name_from_tag = _name_from_tag,
_name_from_tag = _name_from_tag,
_transl = _transl,
_transl = _transl,
_translation_make = translation_make,
};
};
Retrieved from "https://safernicotine.wiki/mediawiki/index.php/Module:Lang"