Module:Article list - Revision history

Legoktm: Replace Module:No globals with require( "strict" )

2022-10-21T21:03:41Z

Replace Module:No globals with require( "strict" )

← Previous revision		Revision as of 21:03, 21 October 2022
Line 1:		Line 1:
			require('strict')

	local p = {};		local p = {};
	require('Module:No globals')

	local function makelink(link)		local function makelink(link)

MSGJ: +prefix

2022-07-22T13:13:03Z

+prefix

← Previous revision		Revision as of 13:13, 22 July 2022
Line 101:		Line 101:
	local pargs = frame:getParent().args		local pargs = frame:getParent().args
	local input = args[1] or pargs[1]		local input = args[1] or pargs[1]
			local prefix = args.prefix or pargs.prefix
			if prefix == nil then
			prefix = "Article list\|"
			end
	if input == nil then		if input == nil then
	return nil		return nil
Line 118:		Line 122:
	end		end
	end		end
	return "{{~~Article list\|~~"..table.concat(qidlist,", ").."}}"		return "{{" .. prefix .. table.concat(qidlist,", ").."}}"
	end		end

Izno: put the warnings back inside the notes, since the warnings are list items

2022-03-09T21:45:25Z

put the warnings back inside the notes, since the warnings are list items

← Previous revision		Revision as of 21:45, 9 March 2022
Line 90:		Line 90:
	end		end
	end		end
	local output = '<ul>'..table.concat(links2)~~..'</ul>'~~		local output = '<ul>'..table.concat(links2)
	if mw.title.getCurrentTitle():inNamespace(10) then		if mw.title.getCurrentTitle():inNamespace(10) then
	output = output..notes		output = output..notes
	end		end
	return output		return output ..'</ul>'
	end		end

Izno: narrow function API to used functions, remove dependency on hlist, which should be the responsibility of the using templates (or ad hoc uses with {{tl|flatlist}}), fix an HTML document error generated by wrapping
in

2022-03-09T21:41:48Z

narrow function API to used functions, remove dependency on hlist, which should be the responsibility of the using templates (or ad hoc uses with {{tl|flatlist}}), fix an HTML document error generated by wrapping <li> in <span>

← Previous revision		Revision as of 21:41, 9 March 2022
Line 1:		Line 1:
	local p = {};		local p = {};
	require('Module:No globals')		require('Module:No globals')

		⚫	local function makelink(link)
		⚫	return "<li>[[" .. link.target .. "\|" .. link.label .. "]]</li>"
		⚫	end

		⚫	local function warning(note)
		⚫	return "<li>[[File:Achtung-orange.svg\|20px]] "..note.."</li>"
		⚫	end

		⚫	local function removeword(link,removelist)
		⚫	for i,remove in ipairs(removelist) do
		⚫	local char1 = string.sub(remove,1,1)
		⚫	local regex = "%f[%w][" .. string.upper(char1) .. string.lower(char1) .. "]" .. string.sub(remove,2) .. "*%f[%W]"
		⚫	link = link:gsub(regex,"")
		⚫	end
		⚫	link = link:gsub("^%s*","") -- strip spaces from start
		⚫	link = link:gsub("%s*$","") -- strip spaces from end
		⚫	link = link:gsub("^(%l)", mw.ustring.upper) -- capitalise first letter
		⚫	return link
		⚫	end

	function p.getlinks(frame)		function p.getlinks(frame)
Line 26:		Line 46:
	newlink.target = target		newlink.target = target
	if label then -- make piped link using English label to avoid unnecessary disambiguation terms		if label then -- make piped link using English label to avoid unnecessary disambiguation terms
	newlink.label = p.removeword(label,removelist) -- remove common words from label		newlink.label = removeword(label,removelist) -- remove common words from label
	else -- there is no label so we are using target as the label		else -- there is no label so we are using target as the label
	newlink.label = p.removeword(target,removelist) -- remove common words from target		newlink.label = removeword(target,removelist) -- remove common words from target
	end		end
	table.insert(links,newlink)		table.insert(links,newlink)
Line 35:		Line 55:
	if redlinks == true then		if redlinks == true then
	if mw.title.new(label).exists then -- [[label]] is already a page linked to a different item		if mw.title.new(label).exists then -- [[label]] is already a page linked to a different item
	notes = notes..p.warning("Cannot show link to [["..label.."]] because it is not linked to [[d:Special:EntityPage/"..qid.."\|"..qid.."]]")		notes = notes..warning("Cannot show link to [["..label.."]] because it is not linked to [[d:Special:EntityPage/"..qid.."\|"..qid.."]]")
	else -- we can create a redlink to [[label]]		else -- we can create a redlink to [[label]]
	local newlink = {}		local newlink = {}
	newlink.target = label		newlink.target = label
	newlink.label = p.removeword(label,removelist)		newlink.label = removeword(label,removelist)
	table.insert(links,newlink)		table.insert(links,newlink)
	end		end
	else -- add warning on template that there is no sitelink		else -- add warning on template that there is no sitelink
	notes = notes..p.warning("No sitelink for [["..label.."]]")		notes = notes..warning("No sitelink for [["..label.."]]")
	end		end
	else -- no target and no English label		else -- no target and no English label
	if mw.wikibase.entityExists(qid) then		if mw.wikibase.entityExists(qid) then
	if redlinks == true then -- add warning on template that no redlink can be generated without label		if redlinks == true then -- add warning on template that no redlink can be generated without label
	notes = notes..p.warning("Cannot show link to [[d:Special:EntityPage/"..qid.."\|"..qid.."]] because no label is defined")		notes = notes..warning("Cannot show link to [[d:Special:EntityPage/"..qid.."\|"..qid.."]] because no label is defined")
	else -- add warning on template that there is no sitelink available		else -- add warning on template that there is no sitelink available
	notes = notes..p.warning("No sitelink for [[d:Special:EntityPage/"..qid.."\|"..qid.."]]")		notes = notes..warning("No sitelink for [[d:Special:EntityPage/"..qid.."\|"..qid.."]]")
	end		end
	else -- add warning on template that qid is invalid		else -- add warning on template that qid is invalid
	notes = notes..p.warning("Invalid identifier "..qid)		notes = notes..warning("Invalid identifier "..qid)
	end		end
	end		end
Line 67:		Line 87:
	end		end
	for i,link in ipairs(links) do		for i,link in ipairs(links) do
	links2[i]=p.makelink(link)		links2[i]=makelink(link)
	end		end
	end		end
	local output = '<~~span class="hlist"~~>'..table.concat(links2)		local output = '<ul>'..table.concat(links2)..'</ul>'
	if mw.title.getCurrentTitle():inNamespace(10) then		if mw.title.getCurrentTitle():inNamespace(10) then
	output = output..notes		output = output..notes
	end		end
	output = output..'</span>'
	return output		return output
⚫	end

⚫	function p.removeword(link,removelist)
⚫	for i,remove in ipairs(removelist) do
⚫	local char1 = string.sub(remove,1,1)
⚫	local regex = "%f[%w][" .. string.upper(char1) .. string.lower(char1) .. "]" .. string.sub(remove,2) .. "*%f[%W]"
⚫	link = link:gsub(regex,"")
⚫	end
⚫	link = link:gsub("^%s*","") -- strip spaces from start
⚫	link = link:gsub("%s*$","") -- strip spaces from end
⚫	link = link:gsub("^(%l)", mw.ustring.upper) -- capitalise first letter
⚫	return link
⚫	end

⚫	function p.makelink(link)
⚫	return "<li>[[" .. link.target .. "\|" .. link.label .. "]]</li>"
⚫	end

⚫	function p.warning(note)
⚫	return "<li>[[File:Achtung-orange.svg\|20px]] "..note.."</li>"
	end		end

MSGJ: fix for spacing and capitalisation

2022-03-03T22:45:46Z

fix for spacing and capitalisation

← Previous revision		Revision as of 22:45, 3 March 2022
Line 6:		Line 6:
	local pargs = frame:getParent().args		local pargs = frame:getParent().args
	local qids = args[1] or pargs[1]		local qids = args[1] or pargs[1]
	local sort = true		local sort = true -- sort entries unless sort=no
	if args.sort=='no' or pargs.sort=='no' then		if args.sort=='no' or pargs.sort=='no' then
	sort = false		sort = false
	end		end
	local redlinks = false		local redlinks = false -- do not show redlinks unless redlinks=yes
	if args.redlinks=='yes' or pargs.redlinks=='yes' then		if args.redlinks=='yes' or pargs.redlinks=='yes' then
	redlinks = true		redlinks = true
	end		end
	local removes = args.remove or pargs.remove or ""		local removes = args.remove or pargs.remove or ""
	local removelist = mw.text.split(removes,"%s,%s")		local removelist = mw.text.split(removes,"%s,%s") -- split string into table at commas
	local links = {}		local links = {} -- for constructing the links
			local notes = "" -- for warning messages on the template
	local links2 = {}
	local notes = ""
	if qids then		if qids then
	for qid in qids:gmatch("Q%d+") do		for qid in qids:gmatch("Q%d+") do
	local target = mw.wikibase.sitelink(qid)		local target = mw.wikibase.sitelink(qid)
	local label = mw.wikibase.getLabel(qid)		local label = mw.wikibase.getLabel(qid)
	if target then		if target then -- sitelink to enwiki exists
	local newlink = {}		local newlink = {}
	newlink.target = target		newlink.target = target
			if label then -- make piped link using English label to avoid unnecessary disambiguation terms
	if label then
	newlink.label = p.removeword(label,removelist)		newlink.label = p.removeword(label,removelist) -- remove common words from label
			else -- there is no label so we are using target as the label
	else
	newlink.label = p.removeword(target,removelist)		newlink.label = p.removeword(target,removelist) -- remove common words from target
	end		end
	table.insert(links,newlink)		table.insert(links,newlink)
			else -- no sitelink to enwiki exists yet
	else
	if label then		if label then -- English label exists
	if redlinks == true then		if redlinks == true then
	if mw.title.new(label).exists then		if mw.title.new(label).exists then -- [[label]] is already a page linked to a different item
	notes = notes..p.warning("Cannot show link to [["..label.."]] because it is not linked to [[d:Special:EntityPage/"..qid.."\|"..qid.."]]")		notes = notes..p.warning("Cannot show link to [["..label.."]] because it is not linked to [[d:Special:EntityPage/"..qid.."\|"..qid.."]]")
			else -- we can create a redlink to [[label]]
	else
	local newlink = {}		local newlink = {}
	newlink.target = label		newlink.target = label
Line 43:		Line 42:
	table.insert(links,newlink)		table.insert(links,newlink)
	end		end
			else -- add warning on template that there is no sitelink
	else
	notes = notes..p.warning("No sitelink for [["..label.."]]")		notes = notes..p.warning("No sitelink for [["..label.."]]")
	end		end
			else -- no target and no English label
	else
	if mw.wikibase.entityExists(qid) then		if mw.wikibase.entityExists(qid) then
	if redlinks == true then		if redlinks == true then -- add warning on template that no redlink can be generated without label
	notes = notes..p.warning("Cannot show link to [[d:Special:EntityPage/"..qid.."\|"..qid.."]] because no label is defined")		notes = notes..p.warning("Cannot show link to [[d:Special:EntityPage/"..qid.."\|"..qid.."]] because no label is defined")
			else -- add warning on template that there is no sitelink available
	else
	notes = notes..p.warning("No sitelink for [[d:Special:EntityPage/"..qid.."\|"..qid.."]]")		notes = notes..p.warning("No sitelink for [[d:Special:EntityPage/"..qid.."\|"..qid.."]]")
	end		end
			else -- add warning on template that qid is invalid
	else
	notes = notes..p.warning("Invalid identifier "..qid)		notes = notes..p.warning("Invalid identifier "..qid)
	end		end
Line 62:		Line 61:
	return "Error: no parameter"		return "Error: no parameter"
	end		end
			local links2 = {} -- will contain wikilinks sorted alphabetically
	if #links>0 then		if #links>0 then
	if sort then		if sort then
Line 80:		Line 80:
	function p.removeword(link,removelist)		function p.removeword(link,removelist)
	for i,remove in ipairs(removelist) do		for i,remove in ipairs(removelist) do
	local char1=string.sub(remove,1,1)		local char1 = string.sub(remove,1,1)
	local regex="%f[%w][" .. string.upper(char1) .. string.lower(char1) .. "]" .. string.sub(remove,2) .. "*%f[%W]"		local regex = "%f[%w][" .. string.upper(char1) .. string.lower(char1) .. "]" .. string.sub(remove,2) .. "*%f[%W]"
	link=link:gsub(regex,"")		link = link:gsub(regex,"")
	end		end
	link = link:gsub("^(%l)", ~~mw.ustring.upper~~)		link = link:gsub("^%s*","") -- strip spaces from start
			link = link:gsub("%s*$","") -- strip spaces from end
			link = link:gsub("^(%l)", mw.ustring.upper) -- capitalise first letter
	return link		return link
	end		end

MSGJ: +links

2022-03-01T12:54:53Z

+links

← Previous revision		Revision as of 12:54, 1 March 2022
Line 36:		Line 36:
	if redlinks == true then		if redlinks == true then
	if mw.title.new(label).exists then		if mw.title.new(label).exists then
	notes = notes..p.warning("Cannot show link to [["..label.."]] because it is not linked to ~~this item~~")		notes = notes..p.warning("Cannot show link to [["..label.."]] because it is not linked to [[d:Special:EntityPage/"..qid.."\|"..qid.."]]")
	else		else
	local newlink = {}		local newlink = {}
Line 44:		Line 44:
	end		end
	else		else
	notes = notes..p.warning("No sitelink for "..label)		notes = notes..p.warning("No sitelink for [["..label.."]]")
	end		end
	else		else

MSGJ: support for redlinks

2022-02-28T22:46:19Z

support for redlinks

← Previous revision		Revision as of 22:46, 28 February 2022
Line 6:		Line 6:
	local pargs = frame:getParent().args		local pargs = frame:getParent().args
	local qids = args[1] or pargs[1]		local qids = args[1] or pargs[1]
	local sort=true		local sort = true
	if args.sort=='no' or pargs.sort=='no' then		if args.sort=='no' or pargs.sort=='no' then
	sort=false		sort = false
			end
			local redlinks = false
			if args.redlinks=='yes' or pargs.redlinks=='yes' then
			redlinks = true
	end		end
	local removes = args.remove or pargs.remove or ""		local removes = args.remove or pargs.remove or ""
Line 30:		Line 34:
	else		else
	if label then		if label then
			if redlinks == true then
⚫	notes = notes..p.warning("No sitelink for "..label)
			if mw.title.new(label).exists then
			notes = notes..p.warning("Cannot show link to [["..label.."]] because it is not linked to this item")
			else
			local newlink = {}
			newlink.target = label
			newlink.label = p.removeword(label,removelist)
			table.insert(links,newlink)
			end
			else
		⚫	notes = notes..p.warning("No sitelink for "..label)
			end
	else		else
	if mw.wikibase.entityExists(qid) then		if mw.wikibase.entityExists(qid) then
			if redlinks == true then
⚫	notes = notes..p.warning("No sitelink for "..qid)
			notes = notes..p.warning("Cannot show link to [[d:Special:EntityPage/"..qid.."\|"..qid.."]] because no label is defined")
			else
		⚫	notes = notes..p.warning("No sitelink for [[d:Special:EntityPage/"..qid.."\|"..qid.."]]")
			end
	else		else
	notes = notes..p.warning("Invalid identifier "..qid)		notes = notes..p.warning("Invalid identifier "..qid)

MSGJ: add warnings on template if qid is invalid or sitelink does not exist

2022-02-28T15:28:53Z

add warnings on template if qid is invalid or sitelink does not exist

@@ Line 13: / Line 13: @@
 	local removelist = mw.text.split(removes,"%s*,%s*")
 	local links = {}
 	if qids then
 		for qid in qids:gmatch("Q%d+") do
-			local link = p.getlink(qid,removelist)
+			local target = mw.wikibase.sitelink(qid)
-			if link ~= nil then
+			if target then
 			end
 		end
@@ Line 25: / Line 45: @@
 	if #links>0 then
 		if sort then
-			table.sort(links,function (link1,link2) return link1[2]<link2[2] end)
+			table.sort(links,function (link1,link2) return link1.label<link2.label end)
 		end
 		for i,link in ipairs(links) do
 			links2[i]=p.makelink(link)
 		end
 	end
 	end
 end
@@ Line 62: / Line 70: @@
 function p.makelink(link)
-	return "<li>[[" .. link[1] .. "|" .. link[2] .. "]]</li>"
+	return "<li>[[" .. link.target .. "|" .. link.label .. "]]</li>"
 end

MSGJ: better parameter handling

2022-02-26T11:10:15Z

better parameter handling

← Previous revision		Revision as of 11:10, 26 February 2022
Line 3:		Line 3:

	function p.getlinks(frame)		function p.getlinks(frame)
	local ~~pframe~~ = frame~~:getParent()~~		local args = frame.args
	local ~~qids~~ = frame.args~~[1] or pframe.args[1]~~		local pargs = frame:getParent().args
			local qids = args[1] or pargs[1]
	local sort=true		local sort=true
	if ~~frame.~~args.sort=='no' then		if args.sort=='no' or pargs.sort=='no' then
	sort=false		sort=false
	end		end
	local removes = ~~frame.~~args.remove or ""		local removes = args.remove or pargs.remove or ""
	local removelist = mw.text.split(removes,"%s,%s")		local removelist = mw.text.split(removes,"%s,%s")
	local links = {}		local links = {}
Line 30:		Line 31:
	links2[i]=p.makelink(link)		links2[i]=p.makelink(link)
	end		end
	return table.concat(links2~~,"\n"~~)		return table.concat(links2)
	end		end
	end		end
Line 61:		Line 62:

	function p.makelink(link)		function p.makelink(link)
	return "* [[" .. link[1] .. "\|" .. link[2] .. "]]"		return "<li>[[" .. link[1] .. "\|" .. link[2] .. "]]</li>"
	end		end

	function p.convert(frame)		function p.convert(frame)
	local ~~pframe~~ = frame~~:getParent()~~		local args = frame.args
	local ~~input~~ = frame.args~~[1] or pframe.args[1]~~		local pargs = frame:getParent().args
			local input = args[1] or pargs[1]
	if input == nil then		if input == nil then
	return nil		return nil
	end		end
	local resolveEntity = require( "Module:ResolveEntityId" )		local resolveEntity = require( "Module:ResolveEntityId" )
	local articlelist = mw.text.split(~~frame.args[1]~~,"%%s")		local articlelist = mw.text.split(input,"%%s")
	local qidlist = {}		local qidlist = {}
	for i,article in ipairs(articlelist) do		for i,article in ipairs(articlelist) do

MusikBot II: Protected "Module:Article list": High-risk template or module: 305 transclusions (more info) ([Edit=Require autoconfirmed or confirmed access] (indefinite))

2022-02-24T18:00:05Z

Protected "Module:Article list": High-risk template or module: 305 transclusions (more info) ([Edit=Require autoconfirmed or confirmed access] (indefinite))

← Previous revision	Revision as of 18:00, 24 February 2022
(No difference)