Modulo:Babel
[antaŭrigardi] [redakti] [historio] [renovigi]
Dokumentado
Ŝablona programado | Diskutoj | Lua | Testoj | Subpaĝoj | |||
---|---|---|---|---|---|---|---|
Modulo | Esperanto | English
|
Modulo: | Dokumentado |
Se vi havas demandon pri ĉi tiu Lua-modulo, tiam vi povas demandi en la diskutejo pri Lua-moduloj. La Intervikiaj ligiloj estu metataj al Vikidatumoj. (Vidu Helpopaĝon pri tio.) |
|
-- Babel -- 20220530
function subtitle(text)
-- This function builds subtitles in the box
local sub_title = mw.html.create('table')
:css('text-align','center')
:css('width','100%')
:css('margin','0 auto')
local row = sub_title:tag('tr')
local sub_title_cell = row:tag('th')
:css('background-color','#EEFFCC')
:css('border','1px dotted #FFCC99')
:css('padding','0.3em')
:wikitext(text)
:done()
return tostring(sub_title)
end
function placeholder(text)
-- This function builds placeholders in the box
local height = "45px"
local t1 = tonumber(text)
if t1 then
height = t1 .. ".px"
end
local t = " "
local place = mw.html.create('table')
:css('text-align','center')
:css('width','100%')
:css('margin','0 auto')
local row = place:tag('tr')
local place_cell = row:tag('th')
:css('height',height)
:css('padding','0.3em')
:wikitext(t)
:done()
return tostring(place)
end
function line (text)
-- This function builds lines in the box
local line_div = mw.html.create('div')
:css('float','left')
:css('width','238px')
:css('height','1.5px')
:css('margin','1px')
:css('background-color','#EEEEEE')
:css('border','1px solid #EEEEEE')
:wikitext(text)
:done()
return tostring(line_div)
end
function beginonly (text,s,c)
-- changes html codes for the tabel's beginning into wiki codes
-- removes the end of the table
-- html
local b1 = '<table class="userboxes"'
local b2 = '><tr><th colspan="' .. s .. '" style="background%-color:' .. c .. ';text%-align:center">'
local b3 = "</th></tr><tr>"
-- wiki code
local b1w = '{| class="userboxes"'
local b2w = '\n|-\n! colspan="' .. s .. '" style="background-color:' .. c .. ';text-align:center" | '
local b3w = "\n<tr>"
local r = text
r = mw.ustring.gsub(r,b1,b1w,1) -- <table ... -> {| ...
r = mw.ustring.gsub(r,b2,b2w,1) -- <tr><th> ... -> |- !
r = mw.ustring.gsub(r,b3,b3w,1) -- </tr><tr> -> <tr>
r = mw.ustring.sub(r,1,-9) -- </table> -> nothing
return r
end
local p = {}
function p._babel_x(babels,args)
-- this function builds the box used by the {{Babel-x}} template
args.header = args.header or args.kaplinio or "[[Vikipedio:Babel]]"
args.footer = args.footer or args.piedlinio or "'''[[:Kategorio:Vikipediistoj laŭ lingvo]]'''"
args['extra-css'] = 'background-color:#FFFFFF;'
return p._babel(babels,args)
end
function p._babel_l(b,args)
-- this function builds the box used by the {{BabelLandoj}} and {{BabelDevenLoĝLoko}} templates
local babels = {}
-- copies some named parameters from {{BabelLandoj}} into unnamed for the modul
local i = 1
for k, v in pairs(args) do
local x = args['l' .. i]
if type(x) == "string" then
x = mw.text.trim(x)
end
if x ~= "" then
babels[i] = x
i = i + 1
end
end
if args['common box'] == "yes" or args['komuna kesto'] =="jes" then
args.header = args.header or args.kaplinio or "[[Vikipedio:Babel]]"
args.footer = args.footer or args.piedlinio or "'''[[:Kategorio:Vikipediistoj laŭ lingvo]]'''"
args['extra-css'] = 'background-color:#FFFFFF;'
--shows it like the {{Babel}} template
return p._babel(babels,args)
else
-- shows it like the old {{BabelLandoj}} and {{BabelDevenLoĝLoko}}
local empty = {}
empty.header = args.header or args.kaplinio or "[[Vikipedio:Babel]]"
empty.footer = args.footer or args.piedlinio or "'''[[:Kategorio:Vikipediistoj laŭ lingvo]]'''"
empty['extra-css'] = 'background-color:#FFFFFF;'
empty.align = args.align or args.floso
local align = "float-right" -- for the complete box
local align2 = "right" -- for the internal box
if empty.align == "left" then
align = "float-left"
align2 = "left"
end
-- creates the external table
local ret = mw.html.create('table')
:css('border','none')
:css('width','100px')
:addClass(align)
local row1 = ret:tag('tr')
local bab = row1:tag('td')
-- puts the babel information into the first table cell
local bab_cell = p._babel(babels, empty)
bab:wikitext(bab_cell)
:done()
local k = args.kat or 'jes'
local frame = mw.getCurrentFrame()
-- code for the template {{DevenLoĝLoko}}
if args.devenlando ~= nil and args.devenlando ~= "" then
-- creates the second table cell
local row2 = ret:tag('tr')
local der = row2:tag('td')
local dl1 = args.devenlando
local dl2 = args.devenloko or ""
local dl3 = args.devenlokspeco or ""
local ll1 = args['loĝlando'] or ""
local ll2 = args['loĝloko'] or ""
local ll3 = args['loĝlokspeco'] or ""
local n = args.nomo or ""
der:wikitext( frame:preprocess('{{DevenLoĝLoko|devenlando='
.. dl1 .. '|devenloko=' .. dl2 .. '|devenlokspeco=' .. dl3 .. '|loĝlando='
.. ll1 .. '|loĝloko=' .. ll2 .. '|loĝlokspeco=' .. ll3
.. '|nomo=' .. n .. '|kat=' .. k .. '|babel-larĝo=jes|floso=' .. align2 .. '}}') )
:done()
end
return tostring(ret)
end
end -- babel_l
function p._babel_l2(b,args)
-- this function builds the box used by the {{BabelLoko}} template
local babels = {}
-- copies some named parameters from {{BabelLoko}} into unnamed for the modul
local i = 1
for k, v in pairs(args) do
local x = args['l' .. i]
if type(x) == "string" then
x = mw.text.trim(x)
end
if x ~= "" then
babels[i] = x
i = i + 1
end
end
if args['common box'] == "yes" or args['komuna kesto'] =="jes" then
args.header = args.header or args.kaplinio or "[[Vikipedio:Babel]]"
args.footer = args.footer or args.piedlinio or "'''[[:Kategorio:Vikipediistoj laŭ lingvo]]'''"
args['extra-css'] = 'background-color:#FFFFFF;'
args['flag'] = 'no'
--shows it like the {{Babel}} template
return p._babel(babels,args)
else
-- shows it like the old {{BabelLoko}}
local empty = {}
empty.header = args.header or args.kaplinio or "[[Vikipedio:Babel]]"
empty.footer = args.footer or args.piedlinio or "'''[[:Kategorio:Vikipediistoj laŭ lingvo]]'''"
empty['extra-css'] = 'background-color:#FFFFFF;'
empty.align = args.align or args.floso
local align = "float-right"
if empty.align == "left" then
align = "float-left"
end
-- creates the external table
local ret = mw.html.create('table')
:css('border','none')
:css('width','100px')
:addClass(align)
local row1 = ret:tag('tr')
local bab = row1:tag('td')
-- puts the babel information into the first table cell
local bab_cell = p._babel(babels, empty)
bab:wikitext(bab_cell)
:done()
local k = args.kat or 'jes'
local frame = mw.getCurrentFrame()
-- code for the template {{Loko}}
if args.lando ~= nil and args.lando ~= "" then
-- creates the second table cell
local row2 = ret:tag('tr')
local der = row2:tag('td')
local l1 = args.lando
local l2 = args.loko or ""
local n = args.Nomo or ""
der:wikitext(frame:preprocess('{{Loko|1='
.. l1 .. '|2=' .. l2 .. '|3=' .. n .. '|kat=' .. k .. '|babel-larĝo=jes}}') )
:done()
end
return tostring(ret)
end
end -- babel_l2
function p._babel_l3(b,args)
-- this function builds the box used by the {{BabelLando}} template
local babels = {}
-- copies some named parameters from {{BabelLando}} into unnamed for the modul
local i = 1
for k, v in pairs(args) do
local x = args['l' .. i]
if type(x) == "string" then
x = mw.text.trim(x)
end
if x ~= "" then
babels[i] = x
i = i + 1
end
end
if args['common box'] == "yes" or args['komuna kesto'] =="jes" then
args.header = args.header or args.kaplinio or "[[Vikipedio:Babel]]"
args.footer = args.footer or args.piedlinio or "'''[[:Kategorio:Vikipediistoj laŭ lingvo]]'''"
args['extra-css'] = 'background-color:#FFFFFF;'
--shows it like the {{Babel}} template
return p._babel(babels,args)
else
-- shows it like the old {{BabelLando}}
local empty = {}
empty.header = args.header or args.kaplinio or "[[Vikipedio:Babel]]"
empty.footer = args.footer or args.piedlinio or "'''[[:Kategorio:Vikipediistoj laŭ lingvo]]'''"
empty['extra-css'] = 'background-color:#FFFFFF;'
empty.align = args.align or args.floso
local align = "float-right" -- for the complete box
local align2 = "right" -- for the internal box
if empty.align == "left" then
align = "float-left"
align2 = "left"
end
-- creates the external table
local ret = mw.html.create('table')
:css('border','none')
:css('width','100px')
:addClass(align)
local row1 = ret:tag('tr')
local bab = row1:tag('td')
-- puts the babel information into the first table cell
local bab_cell = p._babel(babels, empty)
bab:wikitext(bab_cell)
:done()
local k = args.kat or 'jes'
local frame = mw.getCurrentFrame()
-- code for the template {{UzantoLando}}
if args.lando ~= nil and args.lando ~= "" then
-- creates the second table cell
local row2 = ret:tag('tr')
local der = row2:tag('td')
local l1 = args.lando
local l2 = args.loko or ""
local l3 = args.lokospeco or ""
local n = args.nomo or "{{PAGENAME}}"
der:wikitext( frame:preprocess('{{UzantoLando|lando='
.. l1 .. '|loko=' .. l2 .. '|lokospeco=' .. l3 .. '|nomo='
.. n .. '|kat=' .. k .. '|babel-larĝo=jes|floso=' .. align2 .. '}}') )
:done()
end
return tostring(ret)
end
end -- babel_l3
function p._babel(babels, args)
-- This function builds the babel box used by the {{babel}} template.
local fl = args.align or args.floso
-- variables for the margins
local l = "1"
local r = "0"
if fl == "left" then
l = "0"
r = "1"
end
local ret = mw.html.create('table')
:addClass('userboxes')
:css( {
float = args.align or args.floso or 'right',
['margin-left'] = l .. 'em',
['margin-right'] = r .. 'em',
['margin-bottom'] = (args.bottom or args['malsupra marĝeno'] or '0') .. 'em',
width = (args.width or args['larĝo'] or '248') .. 'px',
clear = args.align or args.floso or 'right',
color = args.textcolor or args['teksta koloro'] or '#000000',
border = (args.bordercolor or args['randkoloro'] or '#99B3FF') .. ' solid ' .. (args.solid or args['linilarĝo'] or 1) ..'px'
} )
if (args.shadow and string.lower(args.shadow) == 'yes') or (args.ombro and string.lower(args.ombro) == 'jes') then
ret:css({ ['-webkit-box-shadow'] = '0 2px 4px rgb(0,0,0,0.2)',
['-moz-box-shadow'] = '0 2px 4px rgb(0,0,0,0.2)',
['box-shadow'] = '0 2px 4px rgb(0,0,0,0.2)' })
end
-- formats from {{Bordera radiuso}} and the old {{Babel}}
ret:css({ ['-webkit-border-radius'] = '0.6em',
['-moz-border-radius'] = '0.6em',
['border-radius'] = '0.6em' })
ret:cssText( args['extra-css'] or '' )
local color = args.color or args.fonkoloro or 'inherit'
local row1 = ret:tag('tr')
local row2 = ret:tag('tr')
local row3 = ret:tag('tr')
local body_cells = row2:tag('td')
:css('vertical-align', 'top !important')
local userboxes
local k = args.kat or 'jes'
local frame = mw.getCurrentFrame()
-- Special message for when first argument is blank; otherwise treat it as normal
if babels[1] and babels[1]:find('%S') then
if mw.ustring.sub(babels[1],1,2) == "[[" then
body_cells:wikitext(babels[1])
elseif mw.ustring.sub(babels[1],1,2) == "{{" and mw.ustring.sub(babels[1],1,3) ~= "{{{" then
body_cells:wikitext(babels[1])
elseif mw.ustring.sub(babels[1],1,1) == "<" then
body_cells:wikitext(babels[1])
elseif mw.ustring.sub(babels[1],1,2) == "##" then
local v = mw.ustring.sub(babels[1],3)
body_cells:wikitext(subtitle(v))
elseif mw.ustring.sub(babels[1],1,2) == "--" then
local v = mw.ustring.sub(babels[1],3)
body_cells:wikitext(placeholder(v))
-- code for {{#Babel, because the parser analyzed this before Lua can work
elseif mw.ustring.sub(babels[1],1,3) == "#b#" or mw.ustring.sub(babels[1],1,3) == "#B#" then
local v = mw.ustring.sub(babels[1],4)
-- removes the internal links
v = mw.ustring.gsub(v,"%[%[Project:Babel%|Babela informo pri uzanto%]%]","",1)
v = mw.ustring.gsub(v,"%[%[:Kategorio:Vikipediistoj laŭ_lingvo%|Serĉu uzulajn lingvojn%]%]","",1)
v = '<div style="width:246px; float:left;">' .. v .. "</div>"
body_cells:wikitext(v)
elseif mw.ustring.sub(babels[1],1,1) == "~" then
body_cells:wikitext(line())
else
userboxes = frame:preprocess('{{Uzulo|'..babels[1]..'|kat=' .. k .. '|babel-larĝo=jes|floso=left}}')
end
else
userboxes = args.noboxestext or "''Ĉi tiu uzanto scipovas nek legi nek skribi iun ajn lingvon. [[Ŝablono:Babelejo/dokumentado|Helpo]] necesas.''"
end
body_cells:wikitext(userboxes)
-- "remove" args[1] so it isn't looked at in the loop
-- table.remove(args,1) doesn't produce desired result
babels[1] = ''
-- Keep track of how many columns are in this table
local col_span = 1
for _, v in ipairs( babels ) do
-- ! indicates a new cell should be created
if v:find('%S') and v ~= '!' then
if mw.ustring.sub(v,1,2) == "[[" then
body_cells:wikitext(v)
elseif mw.ustring.sub(v,1,2) == "{{" and mw.ustring.sub(v,1,3) ~= "{{{" then
body_cells:wikitext(v)
elseif mw.ustring.sub(v,1,1) == "<" then
body_cells:wikitext(v)
-- converts the text with ## at the begining into subtitle
elseif mw.ustring.sub(v,1,2) == "##" then
v = mw.ustring.sub(v,3)
body_cells:wikitext(subtitle(v))
elseif mw.ustring.sub(v,1,2) == "--" then
v = mw.ustring.sub(v,3)
body_cells:wikitext(placeholder(v))
elseif mw.ustring.sub(v,1,1) == "~" then
body_cells:wikitext(line())
-- code for {{#Babel, because the parser analyzed this before Lua can work
elseif mw.ustring.sub(v,1,3) == "#b#" or mw.ustring.sub(v,1,3) == "#B#" then
v = mw.ustring.sub(v,4)
-- removes the internal links
v = mw.ustring.gsub(v,"%[%[Project:Babel%|Babela informo pri uzanto%]%]","",1)
v = mw.ustring.gsub(v,"%[%[:Kategorio:Vikipediistoj laŭ_lingvo%|Serĉu uzulajn lingvojn%]%]","",1)
v = '<div style="width:246px; float:left;">' .. v .. "</div>"
body_cells:wikitext(v)
else
body_cells:wikitext( frame:preprocess('{{Uzulo|'..v..'|kat=' .. k .. '|babel-larĝo=jes|floso=left}}') )
end
-- Recycling body_cells for <td>
elseif v and v == '!' then
col_span = col_span + 1
body_cells:done()
body_cells = row2:tag('td')
end
end
if (args.header ~= "whitout") and (args.header ~= "sen") and (args.kaplinio ~= "sen") then
local header = args.header or args.kaplinio
row1:tag('th')
:css({ ['background-color'] = color,
['text-align'] = 'center' })
:attr('colspan',col_span)
:wikitext( header or '[[Vikipedio:Babelejo]]' )
:done()
end
if (args.footer ~= "whitout") and (args.footer ~= "sen") and (args.piedlinio ~="sen") and args['begin only'] ~="yes" and args['nur komenco'] ~="jes" then
local footer = args.footer or args.piedlinio
row3:tag('td')
:css({ ['background-color'] = color,
['text-align'] = 'center' })
:attr('colspan',col_span)
:wikitext( footer or '[[:Kategorio:Vikipediistoj laŭ lingvo|Uzantoj laŭ lingvo]]' )
:done()
end
-- code for the templates {{UzantoLando}}, {{UzantoLandoFlago}} and {{Lando}}
if args.lando ~= nil and args.lando ~= "" then
local l1 = args.lando
local l2 = args.loko or ""
local l3 = args.lokospeco or ""
local n = args.nomo or args.Nomo or ""
local flag = args.flag or args.flago
-- for title before the information about the user's country
local title = args['lando-titolo'] or ""
if title ~= "" then
body_cells:wikitext(subtitle(title))
end
if flag == "yes" or flag == "jes" or flag == nil or flag == "" then
-- little box with flag
body_cells:wikitext( frame:preprocess('{{UzantoLando|lando=' .. l1 .. '|loko=' .. l2
.. '|lokospeco=' .. l3 .. '|nomo=' .. n .. '|kat=' .. k .. '|babel-larĝo=jes|floso=left}}') )
elseif flag == "no" or flago == "ne" then
-- little box without flag
body_cells:wikitext( frame:preprocess('{{Loko|1='
.. l1 .. '|2=' .. l2 .. '|3=' .. n .. '|kat=' .. k .. '|babel-larĝo=jes}}') )
elseif mw.ustring.sub(flag,-4,-1) == ".jpg" or mw.ustring.sub(flag,-4,-1) == ".png"
or mw.ustring.sub(flag,-4,-1) == ".svg" or mw.ustring.sub(flag,-5,-1) == ".jpeg" then
local f = flag
body_cells:wikitext( frame:preprocess('{{UzantoLandoFlago|lando=' .. l1 .. '|loko=' .. l2
.. '|lokospeco=' .. l3 .. '|nomo=' .. n .. '|flagloko=' .. f .. '}}') )
else
body_cells:wikitext( frame:preprocess('{{UzantoLando|lando=' .. l1 .. '|loko=' .. l2
.. '|lokospeco=' .. l3 .. '|nomo=' .. n .. '|kat=' .. k .. '|babel-larĝo=jes|floso=left}}') )
end
end
-- code for the template {{DevenLoĝLoko}}
if args.devenlando ~= nil and args.devenlando ~= "" then
local dl1 = args.devenlando
local dl2 = args.devenloko or ""
local dl3 = args.devenlokspeco or ""
local ll1 = args['loĝlando'] or ""
local ll2 = args['loĝloko'] or ""
local ll3 = args['loĝlokspeco'] or ""
local n = args.nomo or ""
-- for title before the information about the user's countries
local title = args['devenlando-titolo'] or ""
if title ~= "" then
body_cells:wikitext(subtitle(title))
end
body_cells:wikitext( frame:preprocess('{{DevenLoĝLoko|devenlando='
.. dl1 .. '|devenloko=' .. dl2 .. '|devenlokspeco=' .. dl3 .. '|loĝlando='
.. ll1 .. '|loĝloko=' .. ll2 .. '|loĝlokspeco=' .. ll3
.. '|nomo=' .. n .. '|kat=' .. k .. '|babel-larĝo=jes|floso=left|marĝeno=0}}') )
end
-- code for the template {{UTC}}
if args.UTC ~= nil and args.UTC ~= "" then
local u = args.UTC
-- for title before the information about the user's UTC
local title = args['UTC-titolo'] or ""
if title ~= "" then
body_cells:wikitext(subtitle(title))
end
body_cells:wikitext( frame:preprocess('{{UTC|' ..u .. '|kat=' .. k .. '|babel-larĝo=jes|floso=left}}') )
end
-- code for the template {{Uzanto SUL}}
if args['sul-projekto'] ~= nil and args['sul-projekto'] ~= "" then
local p = args['sul-projekto']
local l = args['sul-lingvo'] or ""
-- for title before the information about the user's SUL
local title = args['sul-titolo'] or ""
if title ~= "" then
body_cells:wikitext(subtitle(title))
end
body_cells:wikitext( frame:preprocess('{{Uzanto SUL|1=' .. l .. '|2=' .. p
.. '|nocat=' .. k .. '|babel-larĝo=jes|floso=left}}') )
end
-- for special boxes
local maxspec = 15
if args['speciala kesto'] then
-- for a title before the special box
local title = args['specialkesta titolo'] or ""
if title ~= "" then
body_cells:wikitext(subtitle(title))
end
local s = args['speciala kesto']
body_cells:wikitext(s)
end
for i = 2, maxspec do
local s = args['speciala kesto' .. i] or ""
if s ~="" then
-- for a title before the special box
local title = args['specialkesta' .. i .. " titolo"] or ""
if title ~= "" then
body_cells:wikitext(subtitle(title))
end
body_cells:wikitext(s)
end
end
if args['special-boxes'] or args['specialaj kestoj'] then
local sp = args['special-boxes'] or args['specialaj kestoj']
body_cells:wikitext(sp)
end
body_cells:done()
local result = tostring(ret)
-- change the html coding of the tabel's beginning into wiki code
-- remove the end of the html coding of the table
if args['begin only'] =="yes" or args['nur komenco'] =="jes" then
local s = col_span
result = beginonly (result,s,color)
end
return result
end
local function processBabelArgs(args)
-- This function processes a table of arguments and returns two tables: an array of portal names for processing by ipairs, and a table of
-- the named arguments that specify style options, etc. We need to use ipairs because we want to list all the portals in the order
-- they were passed to the template, but we also want to be able to deal with positional arguments passed explicitly, for example
-- {{portal|2=Politics}}. The behaviour of ipairs is undefined if nil values are present, so we need to make sure they are all removed.
args = type(args) == 'table' and args or {}
local babels = {}
local namedArgs = {}
for k, v in pairs(args) do
if type(k) == 'number' and type(v) == 'string' then -- Make sure we have no non-string babel names.
table.insert(babels, k)
elseif type(k) ~= 'number' then
namedArgs[k] = v
end
end
table.sort(babels)
for i, v in ipairs(babels) do
babels[i] = args[v]
end
return babels, namedArgs
end
local function makeWrapper(funcName)
-- Processes external arguments and sends them to the alia functions.
return function (frame)
-- If called via #invoke, use the args passed into the invoking
-- template, or the args passed to #invoke if any exist. Otherwise
-- assume args are being passed directly in from the debug console
-- or from another Lua modulo.
local origArgs
if frame == mw.getCurrentFrame() then
origArgs = frame:getParent().args
for k, v in pairs(frame.args) do
origArgs = frame.args
break
end
else
origArgs = frame
end
-- Trim whitespace and remove blank arguments.
local args = {}
for k, v in pairs(origArgs) do
if type(v) == 'string' then
v = mw.text.trim(v)
end
if v ~= '' then
args[k] = v
end
end
return p[funcName](processBabelArgs(args)) -- passes two tables to func: an array of portal names, and a table of named arguments.
end
end
local funcNames = {'babel', 'babel_x', 'babel_l', 'babel_l2', 'babel_l3'}
for _, funcName in ipairs(funcNames) do
p[funcName] = makeWrapper('_' .. funcName)
end
return p