Bagration: 1 wersja

2018-05-09T13:44:47Z

1 wersja

Paweł Ziemian: - zbędna funkcja

2018-03-21T21:05:39Z

- zbędna funkcja

Bagration: 1 wersja

2017-10-29T19:56:24Z

1 wersja

Paweł Ziemian: + funkcja 'Przypisy'

2017-10-17T18:11:16Z

+ funkcja 'Przypisy'

Bagration: 1 wersja

2017-06-04T12:54:15Z

1 wersja

Paweł Ziemian: + formatowanie

2016-08-31T19:41:34Z

+ formatowanie

Nowa strona

local m = {}

function m.Plik(frame)
mw.logObject(frame:getParent():getTitle(), "parent:title")
_ = mw.title.new("Module:Łatki/Wywołanie funkcji/Plik").id
if not frame then
return nil
end

local args = frame.args
if not args then
mw.log("brak argumentów")
return nil
end

local file = args[1]
if not file then
mw.log("brak pliku")
return nil
end

local multipleFiles = ""
if string.match(file, "%]%s*%[") then
multipleFiles = "[[Kategoria:Łatki - Kilka plików]]"
end

if string.match(file, "^%s*%[%[") then
mw.log("to jest link: "..file)
return file .. "[[Kategoria:Łatki - Plik]]"..multipleFiles
end

if string.match(file, "^%s*%[") then
mw.log("to jest link zewnętrzny: "..file)
return file .. "[[Kategoria:Łatki - Plik zewnętrzny]]"..multipleFiles
end

local builder = {}
table.insert(builder, "[[Plik:")
for i, v in ipairs(args) do
if i > 1 then
table.insert(builder,"|")
end

table.insert(builder,v)
end

table.insert(builder, "]]")
local result = table.concat(builder, "")
mw.log("wynik: "..result)
return result
end

m.PoliczLinki = function(frame)
mw.logObject(frame:getParent():getTitle(), "parent:title")
_ = mw.title.new("Module:Łatki/Wywołanie funkcji/PoliczLinki").id
local pf = frame:getParent()
local text = frame.args[1] or pf.args[1]
local threshold = tonumber(frame.args["próg"] or pf.args["próg"]) or 1
if text then
text = mw.text.trim(text)
local _, count = mw.ustring.gsub(text, "(%[%[[^%[%]]-%]%])", "%1")
if count >= threshold then
local lang = mw.getContentLanguage()
local number = lang:formatNum(count)
local articles = lang:convertPlural(count, { "artykuł", "artykuły", "artykułów" })
return text .. "<small> ("..number.." "..articles..")</small>"
else
return text
end
end
end

m["Liczba artykułów między"] = function(frame)
mw.logObject(frame:getParent():getTitle(), "parent:title")
_ = mw.title.new("Module:Łatki/Wywołanie funkcji/Liczba artykułów między").id
local pf = frame:getParent()
local start = frame.args[1] or pf.args[1]
if not start then
return
end

local stop = frame.args[2] or pf.args[2]
if not stop then
return
end

local content = mw.title.getCurrentTitle():getContent()
if not content then
return
end

local startPattern = ""
local startPosition = string.find(content, startPattern, 1, true)
if not startPosition then
return
end

startPosition = startPosition + #startPattern

local stopPattern = ""
local stopPosition = string.find(content, stopPattern, startPosition, true)
if not stopPosition then
return
end

stopPosition = stopPosition - 1
if startPosition >= stopPosition then
return
end

local text = string.sub(content, startPosition, stopPosition)
local _, count = mw.ustring.gsub(text, "(%[%[[^%[%]]-%]%])", "%1")
local _, files = mw.ustring.gsub(text, "(%[%[Plik:[^%[%]]-%]%])", "%1")
count = count - files

local threshold = tonumber(frame.args["próg"] or pf.args["próg"]) or 1
if count < threshold then
return
end

local lang = mw.getContentLanguage()
local number = lang:formatNum(count)
local articles = lang:convertPlural(count, { frame.args[4] or pf.args[4] or "artykuł", frame.args[5] or pf.args[6] or "artykuły", frame.args[6] or pf.args[6] or "artykułów" })

local result, _ = string.gsub(frame.args[3] or pf.args[3] or "<small>($1)</small>", "$1", number.." "..articles)
return result
end

m["Numerowanie w tabeli"] = function(frame)
mw.logObject(frame:getParent():getTitle(), "parent:title")
_ = mw.title.new("Module:Łatki/Wywołanie funkcji/Numerowanie w tabeli").id
local counter = 0
local result = {}
local pf = frame:getParent()
local i = 1

table.insert(result, "{")
while true do
local object = pf:getArgument(i)
if object then
object = object:expand()
else
break
end

if object then
table.insert(result, "|")

local length = #object
if length > 0 then
if string.byte(object,1) == 35 then
counter = counter + 1
local counterText = counter..". "
local userText = length > 1 and string.sub(object, 2, length) or ""
object = counterText..userText
end
end

table.insert(result, object)
i = i + 1
else
break
end
end

table.insert(result, "|}")
return table.concat(result, "")
end

m["są interwiki"] = function(frame)
mw.logObject(frame:getParent():getTitle(), "parent:title")
_ = mw.title.new("Module:Łatki/Wywołanie funkcji/są interwiki").id
local count = 0
local entity = mw.wikibase.getEntityObject()
if entity and entity.sitelinks then
for k, v in pairs(entity.sitelinks) do
if k ~= "plwiki" then
count = count + 1
end
end
end

return count > 0 and count or ""
end

function m.contentMatch(frame)
mw.logObject(frame:getParent():getTitle(), "parent:title")
_ = mw.title.new("Module:Łatki/Wywołanie funkcji/contentMatch").id
local content = mw.title.getCurrentTitle():getContent()
if not content then
mw.log("no content")
return
end

local i = 1
while true do
local p = frame.args[i]
if not p or (#p==0) then
mw.log("no pattern "..i)
return
end

local result = mw.ustring.match(content, p)
if result then
mw.log("match "..result)
return result
end

mw.log("no match "..p)
i = i + 1
end
end

function m.contentPureTextSize(frame)
mw.logObject(frame:getParent():getTitle(), "parent:title")
_ = mw.title.new("Module:Łatki/Wywołanie funkcji/contentPureTextSize").id
local content = mw.title.getCurrentTitle():getContent()
if not content then
mw.log("no content")
return 0
end

-- wyrzucamy szablony (i szablony w szablonach)
content = mw.ustring.gsub(content, "%{%{[^%{%}]+%}%}", "");
content = mw.ustring.gsub(content, "%{%{[^%{%}]+%}%}", "");
content = mw.ustring.gsub(content, "%{%{[^%{%}]+%}%}", "");
content = mw.ustring.gsub(content, "%{%{[^%{%}]+%}%}", "");

-- ciąg pusty na jedną spację
content = mw.ustring.gsub(content, "%s+", " ");

-- refy bez treści
content = mw.ustring.gsub(content, "<ref[^<>]*%/>", "");
-- większość refów z treścią
content = mw.ustring.gsub(content, "<ref[^<>]*>[^<>]<%/ref>", "");

return mw.ustring.len(content);
end

function m.Interwiki(frame)
mw.logObject(frame:getParent():getTitle(), "parent:title")
_ = mw.title.new("Module:Łatki/Wywołanie funkcji/Interwiki").id
local qid = frame.args.id
local data = mw.wikibase.getEntityObject(qid)
if not data then
return -- brak danych -> kategoria?
end

local links = {}
local appendLink = function(lang, title)
if not links[lang] then
links[lang] = { title }
else
table.insert(links[lang], title)
end
end

local knownLanguages = mw.loadData("Module:Lang/data")
local extractLinks = function(data)
if data.sitelinks then
for k, v in pairs(data.sitelinks) do
local lang = string.sub(k, 1, -5)
local project = string.sub(k, -4)
if (project == "wiki") and knownLanguages[lang] then
appendLink(lang, v.title)
end
end
end
end

extractLinks(data)
if data.claims and data.claims.P460 then
for _, v in ipairs(data.claims.P460) do
if v.mainsnak.snaktype == "value" then
local seeid = "Q"..tostring(v.mainsnak.datavalue.value["numeric-id"])
local seedata = mw.wikibase.getEntityObject(seeid)
if seedata then
extractLinks(seedata)
end
end
end
end

local result = {}
local content = mw.title.getCurrentTitle():getContent()
for k, v in pairs(links) do
local pattern = "%[%["..mw.ustring.gsub( k, "([%(%)%.%%%+%-%*%?%[%^%$%]])", "%%%1" )..":[^%[%]|]+%]%]"
local interwiki = mw.ustring.match(content, pattern)
if not interwiki and not data.sitelinks[k.."wiki"] then
table.insert(result, "[[")
table.insert(result, k)
table.insert(result, ":")
table.insert(result, v[1])
table.insert(result, "]]")
end
end

return table.concat(result, "")
end

function m.Z(frame)
mw.logObject(frame:getParent():getTitle(), "parent:title")
_ = mw.title.new("Module:Łatki/Wywołanie funkcji/Z").id
local ze = {
"^%s*[Mm][Nn][Ii][Ee]$",
"^%s*[Mm][Nn][Ii][Ee]%s",
"^%s*[Mm][Nn][Ąą]$",
"^%s*[Mm][Nn][Ąą]%s",
"^%s*[Ss][Oo][Bb][Ąą]$",
"^%s*[Ss][Oo][Bb][Ąą]%s",
"^%s*[Ss][Zz][BbCcĆćDdFfGgHhJjKkLlŁłMmNnŃńPpRrSsŚśTtWwZzŹźŻż]",
"^%s*[Ss][BbCcĆćDdFfGgHhJjKkLlŁłMmNnŃńPpRrSsŚśTtWwŹźŻż]",
"^%s*[ŹźZz][BbCcĆćDdFfGgHhJjKkLlŁłMmNnŃńPpRrSsŚśTtWwZzŹźŻż]",
}

local text = frame.args[1]
if text then
for _, regex in ipairs(ze) do
if mw.ustring.match(text, regex) then
return "ze"
end
end
end

return "z"
end

function m.TEMPLATENAME(frame)
mw.logObject(frame:getParent():getTitle(), "parent:title")
_ = mw.title.new("Module:Łatki/Wywołanie funkcji/TEMPLATENAME").id
local templateTitle = mw.title.new(frame:getParent():getTitle())
return (templateTitle and (templateTitle.namespace == 10)) and templateTitle.text or nil
end

function m.SUBST(frame)
mw.logObject(frame:getParent():getTitle(), "parent:title")
_ = mw.title.new("Module:Łatki/Wywołanie funkcji/SUBST").id
local title = mw.title.getCurrentTitle()
mw.logObject(title.text, "title.text")
local prefixedTitleName = mw.ustring.match(title.prefixedText, "^(.-)/opis")
or mw.ustring.match(title.prefixedText, "^(.-)/test")
or mw.ustring.match(title.prefixedText, "^(.-)/brudnopis")
or title.prefixedText
if mw.isSubsting() or (prefixedTitleName == frame:getParent():getTitle()) or (frame:getParent().args["usprawiedliwienie na brak 'subst:'"] == "przykład wywołania szablonu przez transkluzję poza stronami testowymi") then
return frame.args[1]
end

mw.log("Brak 'subst:' w wywołaniu '"..frame:getParent():getTitle().."'")
return "[[Kategoria:Brak 'subst:' w wywołaniu szablonu]]"
end

function m.Format(frame)
mw.logObject(frame:getParent():getTitle(), "parent:title")
_ = mw.title.new("Module:Łatki/Wywołanie funkcji/Format").id
local templateTitle = mw.title.new(frame:getParent():getTitle())

local params = {}
local i = 1
while i do
local arg = frame.args[i]
if arg then
table.insert(params, arg)
i = i + 1
else
i = false
end
end

if #params > 0 then
return mw.ustring.format(unpack(params))
end
end

return m

← poprzednia wersja		Wersja z 18:11, 17 paź 2017
Linia 372:		Linia 372:
	end		end

		+	function m.Przypisy(frame)
		+	mw.logObject(frame:getParent():getTitle(), "parent:title")
		+	_ = mw.title.new("Module:Łatki/Wywołanie funkcji/Przypisy").id
		+	local group = frame:getParent().args[""]
		+	local refs = {}
		+	for k, v in pairs(frame:getParent().args) do
		+	if k == "" then
		+	-- group
		+	elseif type(k) == "string" then
		+	refs[k] = v
		+	end
		+	end
		+
		+	local contents = {}
		+	for k, v in pairs(refs) do
		+	local ref = frame:extensionTag('ref', v, {name=k, group=group})
		+	table.insert(contents, ref)
		+	end
		+
		+	return frame:extensionTag('references', table.concat(contents), {group=group})
		+	end
		+
		+	function m.SimpleDuplicates(frame)
		+	local result = {}
		+	local wikitext = mw.title.getCurrentTitle():getContent()
		+	if not wikitext then
		+	-- no page
		+	return
		+	end
		+
		+	while true do
		+	local templateIterator = mw.ustring.gmatch(wikitext, "{{[^{}]+}}")
		+	while true do
		+	local template = templateIterator()
		+	if not template then
		+	-- no more templates
		+	break
		+	end
		+
		+	mw.log(template)
		+	local parameters = {}
		+	local patch, _ = mw.ustring.gsub(template, "(%[%[[^%[%]\|]+)\|([^%[%]\|]-%]%])", "%1<nowiki>&x7C;</nowiki>%2")
		+	local chunks = mw.text.split(patch, "\|")
		+	local i = 2 -- skip first item which is template name
		+	local auto = 0
		+	local emited = false
		+	while i <= #chunks do
		+	local chunk = chunks[i]
		+	local name, value = mw.ustring.match(chunk, "%s(.-)%s=(.*)")
		+	if not name then
		+	auto = auto + 1
		+	name = tostring(auto)
		+	value = chunk
		+	end
		+
		+	value = mw.ustring.gsub(value, "<nowiki>&x7C;</nowiki>", "\|")
		+
		+	if not parameters[name] then
		+	parameters[name] = { value }
		+	else
		+	-- duplicated parameter
		+	if not emited then
		+	emited = {}
		+	table.insert(emited, "<tt>"..mw.text.nowiki(template).."</tt>")
		+	end
		+
		+	if #parameters[name] == 1 then
		+	table.insert(emited, name..": "..mw.text.nowiki(parameters[name][1]))
		+	end
		+
		+	table.insert(parameters[name], value)
		+	table.insert(emited, name..": "..mw.text.nowiki(value))
		+	end
		+
		+	i = i + 1
		+	end
		+
		+	if emited then
		+	table.insert(result, table.concat(emited, "<br /> → "))
		+	end
		+	end
		+
		+	local count = false
		+	wikitext, count = mw.ustring.gsub(wikitext, "{{[^{}]+}}", "€")
		+	if count == 0 then
		+	break
		+	end
		+	end
		+
		+	if #result > 0 then
		+	return "<ul><li>"..table.concat(result, "</li><li>").."</li></ul>"
		+	end
		+	end

	return m		return m

← poprzednia wersja	Wersja z 13:44, 9 maj 2018
(Brak różnic)

@@ Linia 370: / Linia 370: @@
 		return mw.ustring.format(unpack(params))
 	end
 end

← poprzednia wersja	Wersja z 19:56, 29 paź 2017
(Brak różnic)

← poprzednia wersja	Wersja z 12:54, 4 cze 2017
(Brak różnic)

Moduł:Łatki - Historia wersji

Bagration: 1 wersja

Paweł Ziemian: - zbędna funkcja

Bagration: 1 wersja

Paweł Ziemian: + funkcja 'Przypisy'

Bagration: 1 wersja

Paweł Ziemian: + formatowanie