Modulo:InfoboxImage/provejo
[antaŭrigardi] [redakti] [historio] [renovigi]
Dokumentado
Unua testo
| Municipo Loon op Zand | ||
|---|---|---|
.svg)
| ||
| Provinco | ||
| Ĉefloko | Kaatsheuvel | |
| Areo - Tero - Akvo |
50,72 km² 50,17 km² 0,55 km² | |
| Loĝantaro - Loĝdenso |
23.082 (1-a de novembro 2012) 460 loĝ./km² | |
| Geografia situo | 51° 38′ N, 5° 5′ O (mapo)51.6333333333335.0833333333333Koordinatoj: 51° 38′ N, 5° 5′ O (mapo) | |
| ||
| Gravaj trafikaj arterioj | N261 | |
{{Informkesto nederlanda municipo/provejo
|nomo = Loon op Zand
|dosiernomo flago = Loon op zand outline.png
|dosiernomo blazono = Loon op Zand-wapen.svg
|situo = Map - NL - Municipality code 0809 (2009).svg
|provinco = [[Noord-Brabant]]
|urbestro = Wim Luijendijk (PvdA)
|ĉefloko = '''Kaatsheuvel'''
|areo = 50,72
|areo tero = 50,17
|areo akvo = 0,55
|loĝantaro = 23.082
|dato loĝantaro = 1-a de novembro 2012
|denso = 460
|latitudo = 51/38
|longitudo = 5/5
|trafika arterio = N261
|retnumero = 013, 0416
|poŝtkodo = 5170-5176
|retejo = [http://www.loonopzand.nl www.loonopzand.nl]
}}
Funkcias bone, ĉar la bildo ekzistas.
Dua testo
| Municipo Loon op Zand | ||
|---|---|---|
| Situo de la municipo Loon op Zand | ||
| Provinco | ||
| Ĉefloko | Kaatsheuvel | |
| Areo - Tero - Akvo |
50,72 km² 50,17 km² 0,55 km² | |
| Loĝantaro - Loĝdenso |
23.082 (1-a de novembro 2012) 460 loĝ./km² | |
| Geografia situo | 51° 38′ N, 5° 5′ O (mapo)51.6333333333335.0833333333333Koordinatoj: 51° 38′ N, 5° 5′ O (mapo) | |
| ||
| Gravaj trafikaj arterioj | N261 | |
.sVG){kind=link}
{{Informkesto nederlanda municipo/provejo
|nomo = Loon op Zand
|dosiernomo flago = Loon op zand outline.png
|dosiernomo blazono = Loon op Zand-wapen.svg
|situo = Map - NL - Municipality code 0809 (2009).sVG
|provinco = [[Noord-Brabant]]
|urbestro = Wim Luijendijk (PvdA)
|ĉefloko = '''Kaatsheuvel'''
|areo = 50,72
|areo tero = 50,17
|areo akvo = 0,55
|loĝantaro = 23.082
|dato loĝantaro = 1-a de novembro 2012
|denso = 460
|latitudo = 51/38
|longitudo = 5/5
|trafika arterio = N261
|retnumero = 013, 0416
|poŝtkodo = 5170-5176
|retejo = [http://www.loonopzand.nl www.loonopzand.nl]
}}
Funkcias iomete fuŝe, ĉar la bildo ne ekzistas.
| 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.) |
|
|
-- InfoboxImage, 20151120
-- Inputs:
-- image - Can either be a bare filename (with or without the File:/Image: prefix) or a fully formatted image link
-- ending - An optional parameter for the file ending, like gif, jpg, jpeg, png, svg.
-- endingdefault - An optional parameter for the default ending.
-- size - size to display the image
-- maxsize - maximum size for image
-- sizedefault - default size to display the image if size param is blank
-- alt - alt text for image
-- title - title text for image
-- border - set to yes if border
-- center - set to yes, if the image has to be centered
-- upright - upright image param
-- link - page to visit when clicking on image
-- suppressplaceholder - if yes then checks to see if image is a placeholder and suppresses it
-- usecaption - if yes then the caption from the image is used, else it isn't used
-- and the infobox has to add it. this avoids dupplicates
-- Outputs:
-- Formatted image.
local i = {};
local placeholder_image = {
"Blue - Replace this image female.svg",
"Blue - Replace this image male.svg",
"Female no free image yet.png",
"Flag of None (square).svg",
"Flag of None.svg",
"Flag of.svg",
"Green - Replace this image female.svg",
"Green - Replace this image male.svg",
"Image is needed female.svg",
"Image is needed male.svg",
"Location map of None.svg",
"Male no free image yet.png",
"Missing flag.png",
"No flag.svg",
"No free portrait.svg",
"No portrait (female).svg",
"No portrait (male).svg",
"Red - Replace this image female.svg",
"Red - Replace this image male.svg",
"Replace this image female (blue).svg",
"Replace this image female.svg",
"Replace this image male (blue).svg",
"Replace this image male.svg",
"Silver - Replace this image female.svg",
"Silver - Replace this image male.svg",
}
function i.IsPlaceholder(image)
-- change underscores to spaces
image = mw.ustring.gsub(image, "_", " ");
assert(image ~= nil, 'mw.ustring.gsub(image, "_", " ") ne redonu nenion')
-- if image starts with [[ then remove that and anything after |
if mw.ustring.sub(image,1,2) == "[[" then
image = mw.ustring.sub(image,3);
image = mw.ustring.gsub(image, "([^|]*)|.*", "%1");
assert(image ~= nil, 'mw.ustring.gsub(image, "([^|]*)|.*", "%1") ne redonu nenion')
end
-- Trim spaces
image = mw.ustring.gsub(image, '^[ ]*(.-)[ ]*$', '%1');
assert(image ~= nil, "mw.ustring.gsub(image, '^[ ]*(.-)[ ]*$', '%1') ne redonu nenion")
-- remove prefix if exists
local allNames = mw.site.namespaces[6].aliases
allNames[#allNames + 1] = mw.site.namespaces[6].name
allNames[#allNames + 1] = mw.site.namespaces[6].canonicalName
for i, name in ipairs(allNames) do
if mw.ustring.lower(mw.ustring.sub(image, 1, mw.ustring.len(name) + 1)) == mw.ustring.lower(name .. ":") then
image = mw.ustring.sub(image, mw.ustring.len(name) + 2);
break
end
end
-- Trim spaces
image = mw.ustring.gsub(image, '^[ ]*(.-)[ ]*$', '%1');
-- capitalise first letter
image = mw.ustring.upper(mw.ustring.sub(image,1,1)) .. mw.ustring.sub(image,2);
for i,j in pairs(placeholder_image) do
if image == j then
return true
end
end
return false
end
function i.ValidateEnding (f)
-- analyzes the valid endings for images in the Wikipedia.
-- according to http://commons.wikimedia.org/wiki/Commons:File_types,
-- but not tiff, because browser can have some problems with this format
-- xcf works only in MediaWiki
local f = mw.ustring.lower(f)
if f == "gif" or f == "jpg" or f == "jpeg" or f == "png" or f == "svg" then
return true
else return false
end
end
function i.AddEnding (image, ending, endingdefault)
-- analyzes, if an ending already exists in the image
local f = image:gsub("^(.*)%.","")
f = mw.ustring.lower(f) -- it changes letters into lower case letters
if i.ValidateEnding(f) == true then
return image -- if yes, it returns the image name without change
end
-- add an ending to the image name
if ending ~="" and ending ~=nil then
if i.ValidateEnding(ending) == true then
image = image .. "." .. ending
end
elseif endingdefault ~="" and endingdefault ~=nil then
if i.ValidateEnding(endingdefault) == true then
image = image .. "." .. endingdefault
end
end
return image
end
function i.GetCaption (image, flag)
local i = image
local c = ""
local f = flag
-- if there is a caption after the wiki image code, extract it
local br, caption = mw.ustring.find(image,"(%]%]%s*%<%s*[Bb][Rr]%s*/?%s*%>)%s*(%S?)")
if (br~=nil) and (caption~=nil) then
local c1 = caption
local i1 = br + 1
if (f == "yes") then
c = mw.ustring.sub( i, c1 )
c = "<div>" .. c .. "</div>"
end
i = mw.ustring.sub( i, 1, i1)
end
return c, i -- caption, image
end -- GetCaption
-- analyses if the given text could be an image parameter
function i.ImageParam (text)
local r = false
if (text == "alt=") or (text== "border") or (text=="bottom") or (text== "center")
or (text== "framed") or (text=="lang=") or (text== "left") or (text== "link=")
or (text=="middle") or (text=="none") or (text== "px") or (text== "right")
or (text== "sub") or (text=="super") or (text== "thumbtime") or (text== "top")
or (text== "upright") then
r = true
end
return r
end
-- analyses the wiki syntax of the image and a little bit changes it
-- it removes "thumb", "framed" and their aliases
-- it adds "frameless", if needed
function i.syntax (image, caption, flag)
local i = image
local c = caption
local f = flag
if (i =="") then
return c, i -- caption, image
end
local i2 = i -- copy for the parameter analysis
-- extracts the image
i = mw.ustring.sub(i,3); -- removes [[
i = mw.ustring.gsub(i, "([^|]*)|.*", "%1");
i2 = mw.ustring.gsub(i2, "%]%]", "") -- removes ]]
-- split the image syntax
local strings = mw.text.split(i2, "|", plain)
local output = {}
local isframeless = false
local size = #strings
local n = 0 -- number of parameters, that have to remain
if (size>0) then
for k,v in pairs(strings) do
-- local parameter = i.ImageParam(v) -- doesn't work. why? :-(
-- analyses if the parameter is "thumb" or an alias and removes it
-- it has to be changed, so the variations could be found automatically
if ((v =="thumb") and (v~="thumbtime")) or (v =="thumbnail") or (v=="eta")
or (v== "framed") or (v== "frame") then
output[k] = ""
-- analyses if the parameter is "frameless" and set a flag for this
elseif (v == "frameless") then
-- analyses if it is the last parameter
if (k ~=size) then
v = v .. "|"
end
output[k] = v
isframeless = true
n = n + 1
-- analyses if the parameter is an other part of the wiki image syntax
--elseif parameter then
-- it has to be changed, so the variations could be found automatically
elseif (v== "border") or (v=="bottom") or (v== "center")
or (v== "left") or (v=="middle") or (v=="none") or (v== "right")
or (v== "sub") or (v=="super") or (v== "thumbtime") or (v== "top")
or (v== "upright") then
-- analyses if it is the last parameter
if (k ~=size) then
v = v .. "|"
end
output[k] = v
n = n + 1
-- analyses the parameters with values
elseif mw.ustring.find(v,"alt=") or mw.ustring.find(v, "lang=")
or mw.ustring.find(v, "link=") or mw.ustring.find (v, "px")
or mw.ustring.find(v, "upright=") then
-- analyses if it is the last parameter
if (k ~=size) then
v = v .. "|"
end
output[k] = v
n = n + 1
-- analyses if it is the image
-- it has to be changed, so the variations could be found automatically
elseif mw.ustring.find(v, "Dosiero:") or mw.ustring.find(v, "File:") then
output[k] = ""
else
-- analyses if it is the last parameter
if (k ~=size) then
v = v .. "|"
end
output[k] = v
n = n + 1
if (caption == "") then
c = v
end
end
end
end -- end if size
local r = ""
if n > 0 then -- if image parameters were found above, add them to the image code
r = "[[" .. i .. "|" .. table.concat(output)
else
r = "[[" .. i
end
if (isframeless == false) then
r = r .. "|frameless"
end
r = r .. "]]"
r = mw.ustring.gsub(r, "||", "|")
-- analyses it "f" has the value "yes". if not, change the caption into empty string
if (f ~= "yes") then
c = ""
else
c = mw.ustring.gsub(c,"|","")
end
return c, r -- caption, image syntax with parameters
end
-- funkction for #invoke: in infoboxes
function i.InfoboxImage(frame)
local image = frame.args["image"];
local usecaption = frame.args["usecaption"];
local ending = frame.args["ending"];
local endingdefault = frame.args["endingdefault"];
local size = frame.args["size"];
local maxsize = frame.args["maxsize"];
local sizedefault = frame.args["sizedefault"];
local alt = frame.args["alt"];
local link = frame.args["link"];
local title = frame.args["title"];
local border = frame.args["border"];
local upright = frame.args["upright"] or "";
local thumbtime = frame.args["thumbtime"] or "";
local center = frame.args["center"]
local placeholder = frame.args["suppressplaceholder"]
-- test, if there are more than one image in a string, for example if the code is from Wikidata
local strings = ""
local n = 1
if image ~= "" and image ~= nil then
strings = mw.text.split(image, ",", plain)
n = #strings -- number of images
end
if n>1 then
local images = ""
for k,v in pairs(strings) do
images = images .. i._InfoboxImage(v, ending, endingdefault, size, maxsize, sizedefault, alt, link, title, border, upright, thumbtime, center, usecaption, placeholder)
end
return images
end
return i._InfoboxImage(image, ending, endingdefault, size, maxsize, sizedefault, alt, link, title, border, upright, thumbtime, center, usecaption, placeholder)
end
-- function for other modules
function i._InfoboxImage(image, ending, endingdefault, size, maxsize, sizedefault, alt, link, title, border, upright, thumbtime, center, usecaption, placeholder)
if image == "" or image == nil then
return "";
end
if image == " " then
return image;
end
--if frame.args["suppressplaceholder"] ~= "no" then
if placeholder ~= "no" then
if i.IsPlaceholder(image) == true then
return "";
end
end
if mw.ustring.lower(mw.ustring.sub(image,1,5)) == "http:" then
return "";
end
if mw.ustring.lower(mw.ustring.sub(image,1,6)) == "[http:" then
return "";
end
if mw.ustring.lower(mw.ustring.sub(image,1,7)) == "[[http:" then
return "";
end
if mw.ustring.lower(mw.ustring.sub(image,1,6)) == "https:" then
return "";
end
if mw.ustring.lower(mw.ustring.sub(image,1,7)) == "[https:" then
return "";
end
if mw.ustring.lower(mw.ustring.sub(image,1,8)) == "[[https:" then
return "";
end
if mw.ustring.sub(image,1,2) == "[[" then
-- search for thumbnail images and add to tracking cat if found
if mw.title.getCurrentTitle().namespace == 0 and (mw.ustring.find(image, "|%s*thumb%s*[|%]]") or mw.ustring.find(image, "|%s*thumbnail%s*[|%]]") or mw.ustring.find(image, "|%s*eta%s*[|%]]")) then
local caption, image = i.GetCaption (image, usecaption)
caption, image = i.syntax (image, caption, usecaption)
return image .. caption .. "[[Kategorio:Paĝoj uzantaj informkestojn kun etaj bildoj]]";
else
local caption, image = i.GetCaption (image, usecaption)
caption, image = i.syntax (image, caption, usecaption)
return image .. caption
end
elseif mw.ustring.sub(image,1,2) == "{{" and mw.ustring.sub(image,1,3) ~= "{{{" then
return image;
elseif mw.ustring.sub(image,1,1) == "<" then
return image;
elseif mw.ustring.sub(image,1,5) == mw.ustring.char(127).."UNIQ" then
-- Found strip marker at begining, so pass don't process at all
return image;
else
local result = "";
-- remove prefix if exists
local allNames = mw.site.namespaces[6].aliases
allNames[#allNames + 1] = mw.site.namespaces[6].name
allNames[#allNames + 1] = mw.site.namespaces[6].canonicalName
for i, name in ipairs(allNames) do
if mw.ustring.lower(mw.ustring.sub(image, 1, mw.ustring.len(name) + 1)) == mw.ustring.lower(name .. ":") then
image = mw.ustring.sub(image, mw.ustring.len(name) + 2);
break
end
end
if maxsize ~= "" and maxsize ~= nil then
-- if no sizedefault then set to maxsize
if sizedefault == "" or sizedefault == nil then
sizedefault = maxsize
end
-- check to see if size bigger than maxsize
if size ~= "" and size ~= nil then
local sizenumber = tonumber(mw.ustring.match(size,"%d*")) or 0;
local maxsizenumber = tonumber(mw.ustring.match(maxsize,"%d*")) or 0;
if sizenumber>maxsizenumber and maxsizenumber>0 then
size = maxsize;
end
end
end
-- add px to size if just a number
if (tonumber(size) or 0) > 0 then
size = size .. "px";
end
image = i.AddEnding (image,ending,endingdefault)
result = "[[File:" .. image;
if size ~= "" and size ~= nil then
result = result .. "|" .. size;
elseif sizedefault ~= "" and sizedefault ~= nil then
result = result .. "|" .. sizedefault;
else
result = result .. "|frameless";
end
if center == "yes" then
result = result .. "|center"
end
if alt ~= "" and alt ~= nil then
result = result .. "|alt=" .. alt;
end
if link ~= "" and link ~= nil then
result = result .. "|link=" .. link;
end
if border == "yes" then
result = result .. "|border";
end
if upright ~= "" then
result = result .. "|upright=" .. upright;
end
if thumbtime ~= "" then
result = result .. "|thumbtime=" .. thumbtime;
end
if title ~= "" and title ~= nil then
result = result .. "|" .. title;
elseif alt ~= "" and alt ~= nil then
result = result .. "|" .. alt;
end
result = result .. "]]";
return result;
end
end
return i;