Modul:Flagge
- Die Arbeitsweise und Funktionen ergeben sich aus den im Code eingefügten Erklärungen.
Das gesamte Modul müsste noch optimiert werden. Einige kleine unschöne Parameterumsetzungen müssten verbessert werden. Derzeit werden in der deutschen Version AUSSCHLIESSLICH auffällige oder gemeldete Funktionsfehler notdürftig behoben. Weitere Features sind nur in den Modulen meiner ausländischen Freunde enthalten. Die spezielle Verarbeitung von Wappen und allg. Logos, die einer besonderen Breitenberechnung bedürfen, werden hier vorterst nicht übernommen.
- Grund der Einschränkung
Ein besorgter, wenn in diesem Fall auch etwas oberflächlicher User fühlte sich bemüßigt, Vorlage:Flagge mit einen Warnhinweis zu versehen, der mangelhafte Funktionalität, Fehlerverarbeitung und allgemein Wartung des Moduls sowie für ihn zu üppige Funktionalität und Universalität bemängelt. Einige der Argumente, die auch von seiner Fangemeinde nachgeplappert werden, sind schlicht lächerlich, da er vermutlich die Funktionen nicht überblickt und auch nie die vorlaufende Diskussion beachtet hat. Eher ist es Frust, dass eine vor vielen Jahren begonnene Portierung von en:Template:Flagicon bzw. en:Module:Flagg nie funktionsfähig umgesetzt wurde und weiterhin lang und breit diskutiert wird (inzwischen wieder sanft eingeschlafen).
Logisch, Verbesserungen sind sinnvoll und angebracht. Doch der de-WP gilt: Konfrontation geht vor Kommunikation und und es gibt nur zwei Meinungen: „Die eigene Auffassung und die falsche“. Konstruktive, freundliche Zusammenarbeit kenne ich nur bei den fremdsprachigen Wikis.
--[[ Flagge Version 6 BETA, 2019-12-12 19:55
Formatierung von alternativer Ländervorlage mit Flagge und diverse zusäzliche Funktionen
muss noch "geputzt" werden
--]]
-- Module globals
local flagborder = ''
local fli = {}; local werte={}
local hstd = 12 -- Logohöhe default -- ist via h=??? beeinflussbar
local lang = mw.getContentLanguage():getCode()
local logowidth = 20 -- die historische Weitenangabe
local messagePrefix = "lua-module-Flagge-"
local p = {}
local width = 20 -- nominelle Standartbreite bei 12 hstd
local wstd = 31 -- mit Rand, gemessen an Katar (28) Iran hatte aber schon 3:1, müsste hier also ~51 sein
local listlang= "Modul:Flagge/Sprachen"
local listlang = "Modul:Benutzer:Gadacz/Sprachen"
local pl={'l','f','lf','w','h','b','o','lt','q','a','p'}
local tblx, dd, dl1, dl2, dt1, dt2, tdm = 0, 0, '', '', '', '', ''
local function tu(a,z) -- wandelt in Versalien und extrahiert erstes Zeichen oder Anzahl z
return string.sub(string.upper(a), 1, z or 1)
end
local function loli(v) --
local lang = mw.getContentLanguage():getCode()
local Liste = "Modul:Flagge/Flaglist_" .. lang .. '_' .. tu(v)
return mw.loadData(Liste)
end
local function nbsp(k) --Hier werden Leerzeichen durch ' ' ersetzt => NOWRAP
return k:gsub(" ", " ")
end -- function nbsp
local function nopi(k) --Hier werden Pipezeichen durch ' ' ersetzt => NOWRAP
return k:gsub("|", " ")
end -- function nbsp
local function nnbsp(k,i) --[[ Hier wird statt ' ' ein schmales, geschütztes
Leerzeichen => NOWRAP eingefügt bzw. (wenn k) ersetzt ' ' ]]
if k then
i = i or 15 --[[ falls ohne i dann nur die SPACE innerhalb der 15 Zeichen
ersetzen, um sehr langen Texten (siehe GBR) Umbruch zu ermöglichen ]]
return string.gsub(string.sub(k, 1, i)," ", " ") .. string.sub (k, i+1)
else return " " -- evtl. wäre ' ' besser
end -- if k
end -- function nnbsp
local function sortclean(k)
-- In der Liste stören im Lemma vorhandene Sonder-/Satzzeichen bei der Sortierung. Daher radikal putzen
return k:gsub("%A+", "")
end
local function round(val,decimal) -- css will bei zu vielen Nachkommastellen streiken
if (decimal) then
return math.floor( (val * 10^decimal) + 0.5) / (10^decimal)
else
return math.floor(val + 0.5)
end
end
local function fpic(o,werte,logowidth,flglnk) -- setzt die Grafik mit entsprechenden Links zusammen
local noflag = 'Flag_of_None.svg'
if nopic then return end
local h,w
local nowrap = 'white-space:nowrap;'
local f = werte.f or noflag-- Grafik/Flagge
if werte.h and werte.w then --falls es Größeneintrag gibt, ...
h = werte.h; w = werte.w -- Höhe, Breite
else -- ... sonst via FileMedia.get... Das ist aber 'teurer'!
local FileMedia = require("Module:FileMedia")
FileMedia = FileMedia.FileMedia()
h = FileMedia.getHeight(f) -- Höhe
w = FileMedia.getWidth(f) -- Breite
end
flgpic = f -- Bilddatei (File: ..) -- statt Datei: da 'international'
if tonumber(flglnk) == 1 then flglnk = '|link=' .. (werte.lf or flgpic) -- Flaggenlink
elseif tonumber(flglnk) == 0 then flglnk = ''
else flglnk = '|link=' .. linkziel or flgpic
end
if werte.b == 1 then flagborder = '|border' or '' end -- Bildrand 'international'
--[[ setzt den Bildaufruf zusammen
dabei werden Größenangaben aus der Liste berücksichtigt und ggf. gem WIDTH neu berechnet.
Ein Problem bleibt bei Listen/Tabellen, die z.B. historische Flagge vom Iran enthalten, da dort 3:1 --]]
if logohight then
zoom = round(logohight/hstd, 2)
hightreal = logohight
else
zoom = round(logowidth/width, 2)
hightreal = hstd * zoom -- Errechnete Höhe bei WIDTH-Angabe
end -- if logohight
divi = round(h/w,3)
margins = wstd*zoom-hstd*zoom/h*w
if margins < 0 then margins = 0 end -- Versuch, überbreite Flaggen wie die alte Iran und UNESCO stümperhaft auszugleichen
margin_half = margins/2
local file = '[[File:' .. flgpic .. '|x' .. hightreal .. 'px' .. flglnk .. flagborder .. '|class=noviewer]]'
if o == 'C' then return file -- .. ' '
elseif o == 'W' then -- Zeilenumbruch (wrap) erlaubt, Flagge an Text
rightmrg, leftmrg, nowrap = 0, 0, ''
elseif o == 'L' then -- linksbündig
rightmrg, leftmrg = margins, 0
elseif o == 'R' then -- rechtsbündig
rightmrg, leftmrg = 0, margins
elseif o == 'N' then --
rightmrg, leftmrg = 0, 0
else
leftmrg, rightmrg = margin_half, margin_half
end -- if o
return '<span style="margin:0px ' .. rightmrg .. 'px 0px '.. leftmrg ..'px;' .. nowrap .. '">' .. file .. '</span>', nowrap
end
local function nonum(key) -- filtert Parameter-Nummern wie 1 oder "1" raus
if type(tonumber(key)) ~= "number" then return true end
end
local function is_in(tab, val)
for index, value in ipairs(tab) do
if value == val then return true end
end
return false
end
local function orf(v)
v = tu(v)
local t = {'L', 'R', 'N', 'W', 'C', '#'}
--[[ L: links-/leftbündig
R: rechts-/rightbündig
N: Flagge direkt an Text, nowrap
W: Flagge direkt an Text, Zeilenumbruch möglich
#: Kein Linktext, nur Flagge
C: wie # aber ohne Lerräume --]]
for index, value in ipairs(t) do
if value == v then
return v
end -- if value
end -- for ...
return false
end -- orf(v)
local function split(s) -- Trennt kombinierte Spracheingaben wie აფხაზეთი|Apchaseti
local erg = {}; local trenner='|'
local starte = 1
local sps, spe = s:find('|',1)
while sps do
table.insert(erg,s:sub(starte,sps-1))
starte = spe+1
sps, spe = s:find(trenner,starte)
end -- while sps
table.insert(erg,s:sub(starte))
if erg then
r1 = nnbsp(erg[1]) or ''; r0 = r1
if erg[2] then r2 = " ''" .. nnbsp(erg[2]) .. "''"
r0 = r1 .. " ''" .. r2 .. "''"
end -- if erg[2]
end -- if erg
return r0, r1, (r2 or '')
end -- function split
local function ssl(lkz,r,val) -- wird nur für dewiki gebraucht, da Vorlage:lang zu viel Mist baut
local ret = ''; local geladen={}; local schreibrichtung = ' dir="ltr" '; local nenne ='?'
if type(tonumber(lkz)) ~= "number" then
if #r > 1 and dd ~= 1 then ret = ', ' end
geladen = mw.loadData(listlang)
v0, v1, v2 = split(val) -- v0 wird hier nicht gebraucht
local sprach = geladen[lkz]
if sprach.n then -- einfach Lemma übernehmen
nenne=sprach.n
else
nenne = sprach.l or ''
nenne, anz = string.gsub(nenne,"%s+%(Sprache%)", "")
if anz < 1 then
nenne, anz = string.gsub(nenne,"e%sSprache[n]*", "")
if anz >0 then nenne = string.lower(nenne) end
end -- if anz
end-- if sprach.n
if sprach.d and tu(sprach.d,3) == "RTL" then schreibrichtung = ' dir="rtl" ' end
ret = ret .. '<!--span style="white-space:nowrap"-->[[' .. sprach.l .. '|'
.. nenne .. ']] <bdo' .. schreibrichtung .. ' lang="' .. lkz .. '">'
.. v1 .. '</bdo>' .. v2 .. '<!--/span-->'
end -- if type
return ret
end
local function tail(v,n) -- bastelt das "Schwänzle" zusammen (falls es entsprechende Listeneinträge gibt)
local r=''
linktext = linktext or v
n = tonumber(n)
if n <= 0 then n=math.abs(n); nopic=1 end
if (type(v) == "table") then
for lkz, value in pairs(v) do
if lkz == 1 and n == 2 then return split(value)
elseif n == 3 then r = r .. ssl(lkz,r,value)
elseif n == 4 then r = r .. ssl(lkz,r,value)
elseif n == 5 then
if nonum(lkz) then
r = r .. ssl(lkz,r,value)
else r = r .. ', ' .. split(value)
end -- if nonum(lkz)
elseif n == 6 then
dd = 1; dl1= '<dl>'; dl2 = '</dl>'; dt1= '<dt>'; dt2 = '</dt>'
if nonum(lkz) then
r = r .. '<dd>' .. ssl(lkz,r,value) .. '</dd>'
else r = r .. '<dd>' .. split(value) .. '</dd>'
end -- if nonum(lkz)
else
if lkz==1 then linktext = split(value) end -- default
end -- elseif n == 5
end -- for
else
-- if n == 1 then linktext = split(v); r='' end
if n == 1 then linktext = v; r='' end
end -- (type(v))
r = r:gsub('^[%(, ]+','') -- ', ' am Anfang rasieren
return r
end -- function tail(v,n)
local function linkex(txt) --[[löst Links auf, da die sich überscneiden können, wenn der Text zum Linktext wird
warum eine Kombi bei den regex nicht funktioniert, bleibt mir schleierhaft --]]
local ret, anz = string.gsub(txt, '<ref>[^%<.]*</ref>', '') -- strip HTMLs mit eingschlossenem Text (hier <ref>, könnte man zu <div>, <span> .... erweitern)
ret, anz = string.gsub(ret, '(%[[%l%.]%S*%s', '') -- strip ‚[http... NAME]‘ → ‚NAME]‘
ret, anz = string.gsub(ret, '%[%[.*|', '') --strip [[Lemma|Wort]] → ‚WORT]]‘
ret, anz = string.gsub(ret, '%[', '') -- strip verbleibende ‚[‘
ret, anz = string.gsub(ret, ']', '') -- strip alle verbleibenden ‚]‘
return ret
end
function valkombi(fl,val)
local tbl = {}
if not fl[val] then return {Ergebnis="<span class=\"error\">Falsche Eingabe</span>"} end
local valp = fl[val].p or string.sub(val, 1, 3) -- Feststellung, ob ein "Mastereintrag" existiert. valp für parenteintrag via
if not fl[valp] then valp = string.sub(val, 1, 3) end -- könnte sich ja ein Fehler eingeschlichen haben
if not fl[valp] then -- z.B. wenn Vorlage = GB-SCO, dann bringt 'GB-' nix
valp = fl[val].p or val
end
for nix, key in ipairs(pl) do
tbl[key] = fl[val][key] or (fl[valp][key] or nil)
--[[ sammelt die Listeneinträge bei Priorität
1. Flaggenkey (z.B. ARB-1977)
2. Listeneintrag p='Sonstwas'
3. verkürzter 'Master-Eintrag' ARB --]]
end -- for nix
return tbl
end -- getkey
function p.f(frame)
fli = {}
local a = frame:getParent():getTitle() -- daher kommt XYZ
local kzn = a:gsub("(%C+):(%C+)", "%2") --Kennzeichen aus dem Vorlagennamen extrahieren
if kzn == 'Flagge' then kzn = nil else fli = loli(kzn); flix = fli end
--[[ beim Zugang via vorlage "Flagge" ist die Abfrage nicht erforderlich.
flix könnte ggf unten noch abgefragt werden --]]
local orig, addon
frame = frame:getParent() --[[ erst mal die im Vorlagenaufruf übergebenen
Parameter auswerten und zuteilen --]]
for key, val in pairs(frame.args) do
key = tu(key) -- das Wirrwar mit key, val, kzn muss noch entshlüsselt und verbessert werden
local t = val
if key == "1" then -- dummerweise 3 mögliche Varianten bei der alten Vorlage (Key, Linkziel oder #)
if val == '#' then orient = val -- aus Kompatibilitätsgründen zu Altversion
-- Hier eingreifen und passende Liste öffnen ggf., falls 1=Linkziel Fehler provozieren
else
fli = flix or loli(val) -- falls nach der historischen methode via {{XYZ}} aufgerufen, liegt die Liste schon fest
if fli[t] then kzn = val else linkziel = val end
end -- if val == #
end --if key == "1"
if key == "K" or key=='I' or key == '3' then -- [K]ennzeichen, [I]SO
fli = loli(val)
kzn = val -- muss das noch sein?
elseif key == 'L' then linkziel = val -- [L]ink (könnte ggf. '1' überschreiben.
elseif key == 'Z' then linkziel, linktext = val, val -- '[Z]iel' verändertes Linkziel, auch Linktext-Anzeige
elseif key == 'W' or key == 'P' then logowidth = tonumber(val) -- [p]ixel bzw. [W]IDTH
elseif key == '2' or key == 'T' then linktext = val -- link[t]ext abweichend von 1
elseif key == 'H' then logohight = tonumber(val) -- [H]öhe (Zukunftsmusik)
elseif key == 'B' or key == 'M' then orient = orf(val) -- Flaggen[m]argin oder [bo]rder ggf. wrap bzw. Umbruch ermöglichen siehe function orf()
elseif key == 'E' or key == 'O' then orig = val -- Originalname, ggf mit Sprachkennzeichen aus Liste
elseif key == 'A' then addon = val -- Ergänzungstext aus Liste oder übergeben als ausgeschriebener Parameter
elseif key == 'S' then sort = val -- [S]ortierwert (beliebiges Wort) oder wie {{AUT|sortable=ja}}
elseif key == 'F' then flglnk = tonumber(val) -- 0 oder 1 oder nil,Bestimmt den Link unter der Flagge
elseif key == 'V' then tblx = 1 -- soll aus Flagge und Text eine 2-spaltige Tabelle machen
end -- if key ...
end -- for key, val in ..
-- Jetzt die Tabellenzeile für 'kzn' (Kennzeichen) auslesen
local val = kzn -- entbehrlich?
local werte = valkombi(fli,val)
if not werte then val = 'ZZZ' end --[[ falsches oder fehlendes Kennzeichen. Jede Liste hat so ein 'ZZZ' --]]
if werte then
local werte = valkombi(fli,val)
linkziel = linkziel or werte.l or '' -- Link auf Lemma
linktext = linktext or werte.lt or werte.l or linkziel -- sichtbarer Linktext, default = Lemma
arh = werte.h or 1 -- Höhe (amtlich, aus aspect ratio)
arw = werte.w or 1 -- Breite dto
flgpic = werte.f or flag -- Bilddatei
if sort and tu(sort,2) == 'JA' then sort = kzn end-- damit funktioniert auch unsinnige {{AUT|sortable=ja}}
sort = sort or werte.s or linktext or linkziel -- Sortierschlüssel aus Liste, default Linkziel
if werte.b then flagborder = '|border' or '' end -- Bildrand
end -- if werte
-- führenden Eintrag mit Sortiervorgabe (unsichtbar) anlegen
if sort then sort = '<span style="display:none;">' .. sortclean(sort) .. '</span>' else sort = '' end
-- Zusatz angaben einbinden, falls aufgerufen und in Liste vorhanden
if not nopic then -- Bildaufbau
bild, nowrap = fpic(orient,werte,logowidth,flglnk) -- Bildaufbau aufrufen, retour auch das Umbruchkennzeichen
else bild = '' end -- ohne Flagge, nur Text
local ad = werte.a -- Zusatzangaben aus Liste '=1' oder manuell eingegeben
if addon == "1" then addon = ad or '' end -- manuelle Eingabe hat Priorität
if orient == '#' or orient == 'C' then return sort .. bild .. (addon or '') end -- Text außer bei a= entffällt
local trailer = '' -- das "Schwänzle"
local on = werte.o
if orig and on then
trailer = tail(on,orig)
if orig ~= "1" and trailer ~= '' then
tt=trailer;
trailer = frame:preprocess{text = tt}
--[[ das muss ersetzt werden durch
Wikipedia:Lua/Modul/Vorlage:lang/de#Funktionen_für_Lua-Module
oder besser noch durch eigenes Modul, da 'Modul:lang' sehr miserabel ist
--]]
end -- if orig ~= "1"
end -- if orig
if addon then
if dd == 1 and tblx == 0 then trailer = trailer .. '<dd>' .. nnbsp(addon) .. '</dd>'
dl1='<dl>'; dl2='</dl>'; dt1='<dt>'; dt2='</dt>'
else trailer = ' ' .. trailer .. ', ' .. nnbsp(addon)
end -- if dd
end -- if addon
if tblx == 1 then --[[ Verpackt Bild un Text in eine zweispaltige Tabelle;
gut für Tabellen, um Texte bündig untereinander zu setzen --]]
dl1 = "<table align=left><tr><td align=center width=" .. wstd .. ">"
tdm = "</td><td align=left>"
dl2 = "</td></tr></table>"
end -- if tblx
if not nopic then
bild, nowrap = fpic(orient,werte,logowidth,flglnk) -- Bildaufbau aufrufen, retour auch das Umbruchkennzeichen
else bild='' end -- ohne Flagge, nur Text
if orient == '#' or orient == 'C' then return sort .. bild end -- Text entffällt
if nowrap then linktext = nbsp(linktext) end -- bastelt geschützte Leerzeichen
link= '[[' .. linkziel .. '|' .. linkex(linktext) ..']]' -- Hier Linktext bereinigen, falls in Text bereits Links sind
ret = sort .. dl1 .. dt1 .. bild .. (tdm or '') .. link .. ' ' .. dt2 .. trailer .. dl2 -- da ist dann alles zusammen!
return string.gsub(ret, '%s+([,.;:!?)])', '%1') -- überflüssige Leerzeichen vor Satzzeichen löschen
end -- function p.f(fram)
----- AB DIE POST!
return p