Moduł:Infoboksy
|
Zobacz podstrony tego modułu.
|
local p = {}
function p.grafika(wywolanie)
local grafika = wywolanie.args[1]
grafika = mw.ustring.gsub(grafika, "%s*[Pp]lik%s*:%s*", "Plik:")
grafika = mw.ustring.gsub(grafika, "%s*[Ff]ile%s*:%s*", "Plik:")
grafika = mw.ustring.gsub(grafika, "%s*[Gg]rafika%s*:%s*", "Plik:")
grafika = mw.ustring.gsub(grafika, "%s*[Ii]mage%s*:%s*", "Plik:")
if mw.ustring.match(grafika, "^Plik:(.*)") then
grafika = mw.ustring.match(grafika, "^Plik:(.*)")
elseif mw.ustring.match(grafika, "%[%[Plik:([^%[%]|]+)[|%]]") then
grafika = mw.ustring.match(grafika, "%[%[Plik:([^%[%]|]+)[|%]]")
end
return grafika
end
function p.grafika_kategoria(wywolanie)
local grafika = wywolanie.args[1]
local kategoria = ""
grafika = mw.ustring.gsub(grafika, "%s*[Pp]lik%s*:%s*", "Plik:")
grafika = mw.ustring.gsub(grafika, "%s*[Ff]ile%s*:%s*", "Plik:")
grafika = mw.ustring.gsub(grafika, "%s*[Gg]rafika%s*:%s*", "Plik:")
grafika = mw.ustring.gsub(grafika, "%s*[Ii]mage%s*:%s*", "Plik:")
if mw.ustring.match(grafika, "^Plik:(.*)") then
kategoria = "[[Kategoria:Łatki - Plik]]"
elseif mw.ustring.match(grafika, "%[%[Plik:([^%[%]|]+)[|%]]") then
kategoria = "[[Kategoria:Łatki - Plik]]"
end
return kategoria
end
function p.grafika_rozmiar(wywolanie)
local parametr = wywolanie.args[1]
local maksymalny = wywolanie.args[2] or "BRAK"
local minimalny = wywolanie.args[3] or "BRAK"
local maxwidth = tonumber(mw.ustring.match(maksymalny, "^(%d+)x%d+px$")) or 240
local maxheight = tonumber(mw.ustring.match(maksymalny, "^%d+x(%d+)px$")) or 300
local minwidth = tonumber(mw.ustring.match(minimalny, "^(%d+)x%d+px$")) or 120
local minheight = tonumber(mw.ustring.match(minimalny, "^%d+x(%d+)px$")) or 100
local width = tonumber(mw.ustring.match(parametr, "^(%d+)x?%d*px")) or 240
local height = tonumber(mw.ustring.match(parametr, "^%d*x(%d+)px")) or 240
if width > maxwidth then
width = maxwidth
elseif width < minwidth then
width = minwidth
end
if height > maxheight then
height = maxheight
elseif height < minheight then
height = minheight
end
rozmiar = width .. "x" .. height .. "px"
return rozmiar
end
function p.tabela(wywolanie)
local tabela = ""
local wiersznaglowek = wywolanie.args['wiersz nagłówek'] or ""
local wierszpodsumowanie = wywolanie.args['wiersz podsumowanie'] or ""
local separator = "*"
local linia
local element
local kolumny = 0
local suma = {}
local pokazsuma = {}
local format = {}
local i
if wywolanie.args['nagłówek'] then
local naglowek = "!" .. wywolanie.args['nagłówek']
tabela = tabela .. "|- " .. wiersznaglowek .. "\n"
while (mw.ustring.match(naglowek, "![^!]*")) do
kolumny = kolumny + 1
element = mw.ustring.match(naglowek, "![^!]*")
naglowek = mw.ustring.gsub(naglowek, p._escapePattern(element), "", 1)
element = mw.ustring.gsub(element, "!%s*", "")
tabela = tabela .. "| " .. element .. "\n"
suma[kolumny] = 0
pokazsuma[kolumny] = 1
format[kolumny] = ""
end
end
if wywolanie.args['wiersz'] then
local wiersz = "!" .. wywolanie.args['wiersz']
i = 0
while (mw.ustring.match(wiersz, "![^!]*")) do
kolumny = kolumny + 1
element = mw.ustring.match(wiersz, "![^!]*")
wiersz = mw.ustring.gsub(wiersz, p._escapePattern(element), "", 1)
element = mw.ustring.gsub(element, "!%s*", "")
i = i+1
format[i] = element
end
end
local wiersze = 0
if wywolanie.args['tabela'] then
local zawartosc = wywolanie.args['tabela'] .. "\n"
while (mw.ustring.match(zawartosc, "[^\n]*\n")) do
wiersze = wiersze + 1
linia = mw.ustring.match(zawartosc, "[^\n]*\n")
zawartosc = mw.ustring.gsub(zawartosc, p._escapePattern(linia), "", 1)
linia = mw.ustring.gsub(linia, "\n", "")
tabela = tabela .. "|-\n"
i = 0
while (i<kolumny and mw.ustring.match(linia, "![^!]*")) do
element = mw.ustring.match(linia, "![^!]*")
linia = mw.ustring.gsub(linia, p._escapePattern(element), "", 1)
element = mw.ustring.gsub(element, "!%s*", "")
i = i+1
local liczba
liczba = mw.ustring.match(element, "^%d+") or ""
element = mw.ustring.gsub(element, p._escapePattern(liczba), "", 1)
suma[i] = suma[i] + (tonumber(liczba) or 0)
element = liczba .. element
if tonumber(liczba) == nil then
pokazsuma[i] = 0
end
if element ~= "" then
if format[i] == "()" then
element = "(" .. element .. ")"
end
end
if (wywolanie.args['kol'..i]) then
tabela = tabela .. "| " .. wywolanie.args['kol'..i] .. " | " .. element .. "\n"
else
tabela = tabela .. "| " .. element .. "\n"
end
end
while (i<kolumny) do
i = i+1
pokazsuma[i] = 0
end
if linia ~= "" then
tabela = tabela .. "|-\n! colspan=\"" .. kolumny .. "\" style=\"background:pink;\" | " .. mw.ustring.gsub(linia, "%n", "") .. "\n"
end
end
if zawartosc ~= "" then
tabela = tabela .. "|-\n! colspan=\"" .. kolumny .. "\" style=\"background:red;\" | " .. mw.ustring.gsub(zawartosc, "%n", "") .. "\n"
end
end
if wywolanie.args['podsumowanie'] then
i = 0
tabela = tabela .. "|- " .. wierszpodsumowanie .. "\n"
local podsumowanie = "!" .. wywolanie.args['podsumowanie']
local pokazsumy = 1
if wiersze < 2 then
pokazsumy = 0
end
local sumy = ""
while (i<kolumny and mw.ustring.match(podsumowanie, "![^!]*")) do
element = mw.ustring.match(podsumowanie, "![^!]*")
podsumowanie = mw.ustring.gsub(podsumowanie, p._escapePattern(element), "", 1)
element = mw.ustring.gsub(element, "!%s*", "")
i = i+1
if element == "+" then
if pokazsuma[i]>0 then
sumy = sumy .. "| style=\"text-align:right;\" | " .. suma[i] .. "\n"
else
sumy = sumy .. "| \n"
pokazsumy = 0;
end
else
sumy = sumy .. "| style=\"text-align:right;\" | " .. element .. "\n"
end
end
if pokazsumy>0 then
tabela = tabela .. sumy
end
if podsumowanie ~= "" then
tabela = tabela .. "|-\n! colspan=\"" .. kolumny .. "\" style=\"background:red;\" | " .. podsumowanie .. "\n"
end
end
return tabela
end
-- kopia z [[Moduł:String]]
function p._escapePattern( pattern_str )
return mw.ustring.gsub( pattern_str, "([%(%)%.%%%+%-%*%?%[%^%$%]])", "%%%1" );
end
function p.usun_grafiki(frame)
local text = frame.args[1]
local cat = frame.args[2] or ""
local suffix = ""
if text then
local function fileDetector(input)
local file = string.match(input, "%[%[[Pp]lik%s*:%s*.-%]%]")
or string.match(input, "%[%[[Gg]rafika%s*:%s*.-%]%]")
or string.match(input, "%[%[[Ff]ile%s*:%s*.-%]%]")
or string.match(input, "%[%[[Ii]mage%s*:%s*.-%]%]")
if file then
suffix = cat
return ""
else
return false
end
end
local result, _ = string.gsub(text, "% %[%b[]%]", fileDetector)
result, _ = string.gsub(result, "%[%b[]%]% ", fileDetector)
result, _ = string.gsub(result, "%[%b[]%]%s*", fileDetector)
return result .. suffix
end
end
return p