Wikipedia

Module:Flagg: Difference between revisions

Browse history interactively
← Previous edit
Content deleted Content added
It's bad coding style to require the same module more than once, but in any case both uses need to be updated
Copy from sandbox
 
(27 intermediate revisions by 9 users not shown)
Line 1:
local titleSelf = mw.title.new(... or mw.getCurrentFrame():getTitle())
local titleCountryData = mw.title.new[[Module:CountryData]]
if titleSelf.isSubpage then
local sandbox = titleSelf.subpageText:match[[^sandbox]]
if sandbox then
titleCountryData = titleCountryData:subPageTitle(sandbox)
end
end
local CountryData = require(tostring(titleCountryData))
local p = {}
 
function p.main(frame)
 
--Get input arguments
local args = require('Module:Arguments').getArgs(frame,{valueFunc =
function(key,value)
if value then
value = mw.text.trim(value)
--Change empty string to nil for all args except 'image' and 'border'
if key=="image" or value~="" then
if key=="image" or key=="border" or value~="" then
return value
return value
end
end
end
return nil
return nil
end
end
})
})
 
--Call main function
return p.luaMain(frame,args)
 
end
Line 23 ⟶ 33:
function p.luaMain(frame,args)
 
local function emp2nil(x)
if x=="" then return nil else return x end
end
local function space2emp(x)
if string.find(x,"^%s*$") then return "" else return x end
end
local function nopx(x)
if x~=nil and (string.find(x,"^%d+$") or string.find(x,"^%d+px$")) then return string.gsub(x,"^(.*)px","%1") else return nil end
end
 
--Country & mode parameters
local mode = string.lower(args[1] or "usc")
local mi = string.sub(mode,1,1)
local ms = string.sub(mode,2,2)
local mn = string.sub(mode,3,3)
local me = string.sub(mode,4,-1)
 
local country = args[2] or ""
local countryDataCountry = country
local avar = args["avar"] or args["altvar"]
if string.find(me, "i") then
local clink = args["clink"] or args["link"]
local titleIocCountryData = mw.title.new[[Module:Country alias/data]]
local IocCountryData = require(tostring(titleIocCountryData))
local iocCountryAlias = IocCountryData.countryAliases[country] or country
countryDataCountry = IocCountryData.countries[iocCountryAlias]["countrydata_name"] or IocCountryData.countries[iocCountryAlias]["name"]
end
local avar = args["avar"] or args["altvar"]
local clink = args["clink"] or args["link"]
 
--Get country data & altvar data
local data, alink, amap, asuf
if avar then
local age = args["age"] or ""
local aalias
amap, aalias = require("Module:Flagg/Altvar data").alttable(age)
avar = string.gsub(string.lower(avar or ""),"[ \-]","")
avar = aalias[avar] or avar
if not amap[avar] then error("Unknown avar") end
local apar = {altvar=amap[avar].altvar;mw=amap[avar].mw;age=amap[avar].age;variant=args["variant"] or args[3]}
data = require("Module:CountryData").gettablegetcachedtable(frame,country countryDataCountry, apar)
asuf = amap[avar].altlink
alink = data["link alias-"..amap[avar].altvar] or (clink or data["shortname alias"] or data.alias or country).." "..asuf
else
data = require(args["Module:CountryDatanodata"] and {}) or CountryData.gettablegetcachedtable(frame,country countryDataCountry, {variant=args["variant"] or args[3]})
avar = ""
amap = {[""]={altvar=""}}
end
 
--Name and link parameters
clink = clink or data.alias or country
 
local pref = args["pref"]
local suff = args["suff"] or asuf
local pref2 = args["pref2"]
if not pref and not suff then --Default prefix
local suff2 = args["suff2"]
pref = "Flag of"
if not pref and not suff then --Default prefix
end
pref = "Flag of"
local yn_map = {[""]=0; ["0"]=0; ["no"]=0; ["n"]=0; ["1"]=1; ["yes"]=1; ["y"]=1}
end
local fthe = (args["pthe"] and yn_map[args["pthe"]]~=0) or (args["the"] and yn_map[args["the"]]~=0)
local ntheyn_map = (args{["nthe"]=0; and["0"]=0; yn_map[args"no"]=0; ["nthen"]]~=0); or["1"]=1; (args["theyes"]=1; and yn_map[args["they"]]~=0)1}
local fthe = fthe and (prefargs["pthe"] and yn_map[args["tpthe"]]~=0) or (args["Tthe").."he] " orand yn_map[args["the"]]~=0)
local nthe = (args["nthe"] and (pref and yn_map[args["tnthe"]]~=0) or (args["Tthe").."he] " orand yn_map[args["the"]]~=0)
local flink fthe = args["plink"]fthe or args["flink"] or alink orand space2emp((pref orand "")..t" or "T")..fthe..clink..space2emp("he "..(suff or ""))
nthe = nthe and (pref and "t" or "T").."he " or ""
local fsec = args["psection"] or args["section"]
local csecflink = args["csectionplink"] or args["sectionflink"] or alink
or clink=="" and "" or space2emp((pref or "").." ")..fthe..clink..space2emp(" "..(suff or ""))
fsec = fsec and "#"..fsec or ""
local flink2
csec = csec and "#"..csec or ""
if args["plink2"] or args["flink2"] or pref2 or suff2 then
flink2 = args["plink2"] or args["flink2"] or clink=="" and "" or space2emp((pref2 or "").." ")..fthe..clink..space2emp(" "..(suff2 or ""))
else
flink2 = flink
end
local fsec = args["psection"] or args["section"]
local fsec2 = args["psection2"] or args["section"]
local csec = args["csection"] or args["section"]
fsec = fsec and "#"..fsec or ""
fsec2 = fsec2 and "#"..fsec2 or ""
csec = csec and "#"..csec or ""
 
if string.find(me,"f") then
local name = args["name"]
if stringmw.findtitle.new(me,"e" flink ).exists == false then
if flink2 ~= flink and mw.title.new ( flink2 ).exists == true then
local cname = data["name alias-"..amap[avar].altvar] or data["shortname alias"] or data.alias or country
flink = flink2
if mn == "f" then
fsec = fsec2
name = name or space2emp((pref or "").." ")..nthe..cname..space2emp(" "..(suff or ""))
else
flink = clink
name = name or cname
end
end
else
end
if mn == "f" then
name = name or space2emp((pref or "").." ")..nthe..country..space2emp(" "..(suff or ""))
else
name = name or country
end
end
 
local name = args["name"]
--Image parameters
if not name then
local pimage = args["image"]
local cname = string.find(me,"e") and (data["name alias-"..amap[avar].altvar] or data["shortname alias"] or data.alias) or country
local placeholder = "Flag placeholder.svg"
if mn == "f" then
local variant = args["variant"] or args[3] or ""
name = cname=="" and "" or space2emp((pref or "").." ")..nthe..cname..space2emp(" "..(suff or ""))
local image_map = {[""]=placeholder; ["none"]=placeholder; ["blank"]=placeholder}
else
if pimage then --Remove namespace
name = cname
pimage = string.gsub(pimage,"^[Ff][Ii][Ll][Ee]:(.*)$","%1")
end
pimage = string.gsub(pimage,"^[Ii][Mm][Aa][Gg][Ee]:(.*)$","%1")
end
local iname = image_map[pimage] or pimage
 
--Image parameters
local size = args["size"] or args["sz"]
local pimage = args["image"]
local size_map = {xs="12x8px"; s="17x11px"; m="23x15px"; l="32x21px"; xl="46x30px"}
local placeholder = "Flag placeholder.svg"
if size==nil or string.find(size,"^%d*x?%d+px$")
local variant = args["variant"] or args[3] or ""
then --valid EIS size (..px, x..px or ..x..px), or unset
local image_map = {[""]=placeholder; ["none"]=placeholder; ["blank"]=placeholder}
elseif string.find(size,"^%d*x?%d+$")
if pimage then --Remove namespace
then size=size.."px" --EIS size without "px" suffix
pimage = string.gsub(pimage,"^[Ff][Ii][Ll][Ee]:","")
else size = size_map[size] or nil
pimage = string.gsub(pimage,"^[Ii][Mm][Aa][Gg][Ee]:","")
end
end
local border = frame:getParent().args["border"] or frame.args["border"]
local iname = image_map[pimage] or pimage
 
local size = args["size"] or args["sz"]
if iname then
local size_map = {xs="12x8px"; s="17x11px"; m="23x15px"; l="32x21px"; xl="46x30px"}
size = size or "23x15px"
if size==nil or string.find(size,"^%d*x?%d+px$") then
if yn_map[border]==0 then border = "" else border = "|border" end
--valid EIS size (..px, x..px or ..x..px) or unset
else
elseif string.find(size,"^%d*x?%d+$") then --EIS size without "px" suffix
iname = data["flag alias-"..amap[avar].altvar.."-"..variant] or data["flag alias-"..variant] or data["flag alias-"..amap[avar].altvar] or data["flag alias"] or placeholder
size = size or emp2nil(data.size) or ."23x15pxpx"
else --size from map, or invalid value
if border then
size = size_map[size] or nil
if yn_map[border]==0 then border = "" else border = "|border" end
end
else
local border = args["border"]
local autoborder = data["border-"..variant] or data["border-"..amap[avar].altvar] or data.border
if autoborder and autoborder~="border" then border = "" else border = "|border" end
end
end
 
if iname then
local am = ""
size = size or "23x15px"
if args["alt"] or string.find(me,"a") then
if yn_map[border]==0 then border = "" else border = "|border" end
am = args["alt"] or args["name"] or country
else
am = am.."|"..am
iname = data["flag alias-"..amap[avar].altvar.."-"..variant] or data["flag alias-"..variant] or data["flag alias-"..amap[avar].altvar] or data["flag alias"] or placeholder
end
size = size or emp2nil(data.size) or "23x15px"
if border then
if yn_map[border]==0 then border = "" else border = "|border" end
else
local autoborder = data["border-"..variant] or data["border-"..amap[avar].altvar] or data.border
if autoborder and autoborder~="border" then border = "" else border = "|border" end
end
end
 
local am = ""
--Build display name
if args["alt"] or string.find(me,"a") then
local text = args["text"]
am = args["alt"] or args["name"] or country
if not text then
am = am.."|"..am
if mn=="x" then --no text
end
text = ""
elseif mn=="p" or mn=="f" then --prefix/suffix link
--Build display name
text = "[["..flink..fsec.."|"..name.."]]"
local text = args["text"]
elseif mn=="b" then --both prefix/suffix and normal country link
if pref andnot sufftext then
if mn=="x" then --no text
text = "[["..flink..fsec.."|"..pref.."]] "..nthe.."[["..clink..csec.."|"..name.."]] [["..flink..fsec.."|"..suff.."]]"
text = ""
elseif pref then
elseif mn=="p" or mn=="f" or mn == "*" then --prefix/suffix link
text = "[["..flink..fsec.."|"..pref.."]] "..nthe.."[["..clink..csec.."|"..name.."]]"
text = flink=="" and name or "[["..flink..fsec.."|"..name.."]]"
elseif suff then
-- By the principle of least surprise, there should be some
text = nthe.."[["..clink..csec.."|"..name.."]] [["..flink..fsec.."|"..suff.."]]"
-- indication that the link [[X of Country|Country]] does not
else
-- go to [[Country]].
text = nthe.."[["..clink..csec.."|"..name.."]]"
if mn == "*" and clink ~= flink then
end
text = text:sub(1, -3) .. "\226\128\175*]]" end
elseif mn=="d" then --data template
elseif mn=="l" then --display link target
--check if redirect
text = flink=="" and name or "[["..flink..fsec.."|"..(args["name"] or flink).."]]"
if require('Module:Redirect').luaIsRedirect("Template:Country data "..country) then
elseif mn=="b" then --both prefix/suffix and normal country link
text = "<span class=\"plainlinks\">["..mw.title.new("Template:Country data "..country):fullUrl("redirect=no").." "..name.."]</span>"
local preflink = pref and (flink=="" and pref.." " or "[["..flink..fsec.."|"..pref.."]] ") or ""
else
local sufflink = suff and (flink=="" textand =" "[[Template:Country..suff dataor " [["..countryflink..fsec.."|"..namesuff.."]]") or ""
local namelink = (name=="" and "" or nthe)..(clink=="" and name or "[["..clink..csec.."|"..name.."]]")
end
text = preflink..namelink..sufflink
elseif mn=="u" then --unlinked
elseif mn=="d" then --data template
text = name
local title = mw.title.new("Template:Country data "..country)
else --country link (default)
--check if redirect
text = "[["..clink..csec.."|"..name.."]]"
if title.isRedirect then
end
text = "<span class=\"plainlinks\">["..title:fullUrl("redirect=no").." "..name.."]</span>"
end
else
text = "[["..title.fullText.."|"..name.."]]"
end
elseif mn=="u" then --unlinked
text = name
elseif mn=="a" then --abbr
text = name==country and (clink==country and country or "<abbr title='"..clink.."'>"..country.."</abbr>") or ("<abbr title='"..name.."'>"..country.."</abbr>")
else --country link (default)
text = clink=="" and name or "[["..clink..csec.."|"..name.."]]"
end
if string.find(me,"p") then
text = "("..text..")"
end
end
if type(text) == 'function' then
text = text(data)
end
 
--Define separator
--Build image
local ilinkseparator = args["ilink&nbsp;"]
if not ilinkms=="x" then --no separator
separator = ""
if mi=="x" or (iname==placeholder and pimage~=placeholder) then --no image/invisible image
elseif ms=="l" then --line break
iname = placeholder
border separator = "<br />"
end
ilink = "|link="
am = ""
--Add preftext, if used
elseif mi=="i" then --image page link
local preftext = args["preftext"]
ilink = ""
if (preftext or "") ~= "" then
elseif mi=="c" then --country link
text = preftext..separator..text
ilink = "|link="..clink..csec
end
elseif mi=="p" or mi=="f" then --prefix/suffix link
ilink = "|link="..flink..fsec
--Build image
elseif mi=="d" then --data template
local ilink = args["ilink"]
--check if redirect
if not ilink then
if require('Module:Redirect').luaIsRedirect("Template:Country data "..country) then
if mi=="x" or (iname==placeholder and pimage~=placeholder) then --no image/invisible image
ilink = "|link="..mw.title.new("Template:Country data "..country):fullUrl("redirect=no")
iname = placeholder
else
border = ""
ilink = "|link=Template:Country data "..country
ilink = "|link="
end
am = ""
else --unlinked (default)
elseif mi=="i" then --image page link
ilink = "|link="
ilink = ""
end
elseif mi=="c" then --country link
end
ilink = "|link="..clink..(clink=="" and "" or csec)
local image = "[[File:"..iname.."|"..size..border..ilink.."|alt="..am.."]]"
elseif mi=="p" or mi=="f" then --prefix/suffix link
ilink = "|link="..flink..(flink=="" and "" or fsec)
elseif mi=="d" then --data template
local title = mw.title.new("Template:Country data "..country)
--check if redirect
if title.isRedirect then
ilink = "|link="..title:fullUrl("redirect=no")
else
ilink = "|link="..title.fullText
end
else --unlinked (default)
ilink = "|link="
end
end
if am == "" and string.find(me,"l") then
am = mw.ustring.sub(ilink,7,-1)
end
local image = "[[File:"..iname.."|"..size..border..ilink.."|alt="..am.."]]"
 
if iname==placeholder then
--Combine image and name with separator
local align = if require('Module:yesno')(args["alignnoredlink"]) == false or args["alnoredlink"] == "notext" then
if country ~= '' and data.alias == nil then
local nalign = args["nalign"] or args["nal"]
iname = ''
local align_map = {left="left", l="left", center="center", centre="center", c="center", middle="center", m="center", right="right", r="right"}
image = "[[:Template:Country data "..country.."]]"
local out
if args["noredlink"] == "notext" then
if string.find(me,"r") then
text = ''
--image right of name
end
if (ms=="x" and mi=="x") or (string.find(me,"o") and iname==placeholder and pimage~=placeholder) then --name only
end
out = text
end
elseif ms=="x" then --no separator
if (args["missingcategory"] or '') ~= '' then
out = text.."<span class=\"flagicon\">"..image.."</span>"
image = image..args["missingcategory"]
elseif ms=="n" then --non-breaking space
end
out = text.."<span class=\"flagicon\">&nbsp;"..image.."</span>"
if string.find(me,"b") then
elseif ms=="l" then --line break
text = ''
out = text.."<span class=\"flagicon\"><br/>"..image.."</span>"
end
elseif ms=="t" then --table cell
end
out = "style=\"text-align:"..(align_map[nalign] or "left").."\"|"..text.."||style=\"text-align:"..(align_map[align] or "center")..";\"|<span class=\"flagicon\">"..image.."</span>"
else --fixed-width span box (default)
local width = args["width"] or args["w"] or require("Module:Flaglist").luawidth(size)
out = text.."&nbsp;<span class=\"flagicon\" style=\"display:inline-block;width:"..width.."px;text-align:"..(align_map[align] or "right")..";\">"..image.."</span>"
end
else --image left of name
if (ms=="x" and mi=="x") or (string.find(me,"o") and iname==placeholder and pimage~=placeholder) then --name only
out = text
elseif ms=="x" then --no separator
out = "<span class=\"flagicon\">"..image.."</span>"..text
elseif ms=="n" then --non-breaking space
out = "<span class=\"flagicon\">"..image.."&nbsp;</span>"..text
elseif ms=="l" then --line break
out = "<span class=\"flagicon\">"..image.."<br/></span>"..text
elseif ms=="t" then --table cell
out = "style=\"text-align:"..(align_map[align] or "center")..";\"|<span class=\"flagicon\">"..image.."</span>||style=\"text-align:"..(align_map[nalign] or "left").."\"|"..text
else --fixed-width span box (default)
local width = nopx(args["width"] or args["w"]) or require("Module:Flaglist").luawidth(size)
out = "<span class=\"flagicon\" style=\"display:inline-block;width:"..width.."px;text-align:"..(align_map[align] or "left")..";\">"..image.."</span>&nbsp;"..text
end
end
if string.find(me,"w") then --avoid wrapping
out = "<span class=\"nowrap\">"..out.."</span>"
end
 
--Combine image and name with separator
--Tracking categories
local align_map = {left="left", l="left", center="center", centre="center", c="center", middle="center", m="center", right="right", r="right"}
local cat = ""
local align = align_map[args["align"] or args["al"]]
if pimage and not image_map[pimage] and country~="" and data["flag alias"] and not args.demo then
local nalign = align_map[args["nalign"] or args["nal"]]
cat = "[[Category:Pages using Flagg with specified image instead of data template image]]"
local out
end
if string.find(me,"r") then
--image right of name
if (ms=="x" and mi=="x") or (string.find(me,"o") and iname==placeholder and pimage~=placeholder) then --name only
out = text
elseif ms=="x" or ms=="n" or ms=="l" then --no separator, non-breaking space, or line break
out = text.."<span class=\"flagicon nowrap\">"..separator..image.."</span>"
elseif ms=="t" then --table cell
out = "style=\"text-align:"..(nalign or "left").."\"|"..text.."||style=\"text-align:"..(align or "center").."\"|<span class=\"flagicon\">"..image.."</span>"
else --fixed-width span box (default)
local width = args["width"] or args["w"] or require("Module:Flaglist").luawidth(size)
out = text.."<span class=\"nowrap\">&nbsp;<span class=\"flagicon\" style=\"display:inline-block;width:"..width.."px;text-align:"..(align or "right").."\">"..image.."</span></span>"
end
else --image left of name
if (ms=="x" and mi=="x") or (string.find(me,"o") and iname==placeholder and pimage~=placeholder) then --name only
out = text
elseif ms=="x" or ms=="n" or ms=="l" then --no separator, non-breaking space, or line break
out = "<span class=\"flagicon\">"..image..separator.."</span>"..text
elseif ms=="t" then --table cell
out = "style=\"text-align:"..(align or "center")..";\"|<span class=\"flagicon\">"..image.."</span>||style=\"text-align:"..(nalign or "left").."\"|"..text
else --fixed-width span box (default)
local width = nopx(args["width"] or args["w"]) or require("Module:Flaglist").luawidth(size)
out = "<span class=\"nowrap\"><span class=\"flagicon\" style=\"display:inline-block;width:"..width.."px;text-align:"..(align or "left").."\">"..image.."</span>&nbsp;</span>"..text
end
end
-- align in table
if me:find("t") then
out = 'style="text-align:'..(align or 'left')..'"|'..out
end
 
--Tracking categories
return out..cat
local cat = ""
if pimage and not image_map[pimage] and country~="" and data["flag alias"] and not args.demo then
cat = "[[Category:Pages using Flagg with specified image instead of data template image]]"
end
 
return out..cat
 
end
 
p[''] = p.main
 
return p
Retrieved from "https://en.wikipedia.org/wiki/Module:Flagg"