Module:Article list/sandbox - Revision history

WOSlinker: use require('strict') instead of require('Module:No globals')

2022-10-21T10:03:57Z

use require('strict') instead of require('Module:No globals')

← Previous revision		Revision as of 10:03, 21 October 2022
Line 1:		Line 1:
	local p = {};		local p = {};
	require('~~Module:No globals~~')		require('strict')

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

Izno: remove dependency on hlist from this template; if it's meant for navboxes the navbox code can and should take care of it

2022-03-09T21:39:26Z

remove dependency on hlist from this template; if it's meant for navboxes the navbox code can and should take care of it

← Previous revision		Revision as of 21:39, 9 March 2022
Line 90:		Line 90:
	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		end

Izno: narrow function API to used functions in the wild

2022-03-09T21:23:17Z

narrow function API to used functions in the wild

← Previous revision		Revision as of 21:23, 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
Line 76:		Line 96:
	output = output..'</span>'		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: add comments to code

2022-03-03T22:44:56Z

add comments to code

← Previous revision		Revision as of 22:44, 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

MSGJ at 22:29, 3 March 2022

2022-03-03T22:29:41Z

← Previous revision		Revision as of 22:29, 3 March 2022
Line 85:		Line 85:
	end		end
	link = link:gsub("^%s*","") -- strip spaces from start		link = link:gsub("^%s*","") -- strip spaces from start
	link = link:gsub("s*$","") -- strip spaces from end		link = link:gsub("%s*$","") -- strip spaces from end
	link = link:gsub("^(%l)", mw.ustring.upper) -- capitalise first letter		link = link:gsub("^(%l)", mw.ustring.upper) -- capitalise first letter
	return link		return link

MSGJ: strip from end

2022-03-03T22:28:29Z

strip from end

← Previous revision		Revision as of 22:28, 3 March 2022
Line 84:		Line 84:
	link = link:gsub(regex,"")		link = link:gsub(regex,"")
	end		end
	link = link:gsub("^%s*","")		link = link:gsub("^%s*","") -- strip spaces from start
	link = link:gsub("~~^(%l)~~", ~~mw.ustring.upper~~)		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: remove spaces from start

2022-03-03T22:24:00Z

remove spaces from start

← Previous revision		Revision as of 22:24, 3 March 2022
Line 84:		Line 84:
	link = link:gsub(regex,"")		link = link:gsub(regex,"")
	end		end
			link = link:gsub("^%s*","")
	link = link:gsub("^(%l)", mw.ustring.upper)		link = link:gsub("^(%l)", mw.ustring.upper)
	return link		return link

MSGJ at 22:21, 3 March 2022

2022-03-03T22:21:54Z

← Previous revision		Revision as of 22:21, 3 March 2022
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("^(%l)", mw.ustring.upper)

MSGJ: +link

2022-03-01T12:53:21Z

+link

← Previous revision		Revision as of 12:53, 1 March 2022
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: +link

2022-03-01T12:52:39Z

+link

← Previous revision		Revision as of 12:52, 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 = {}