Module:JCW

local p = {}
local mArguments = require('Module:Arguments')
local TableTools = require('Module:TableTools')

function p.selected (frame)
	local n = mArguments.getArgs(frame, {parentOnly = true})
	local note = n.note
	local source = n.source or 'Unknown'
	
	if mw.title.getCurrentTitle().fullText == 'User:JL-Bot/Publishers.cfg' or 'User:JL-Bot/Maintenance.cfg' then
		source = nil
	end
	--local abbrev = {BLJ = '[https://beallslist.weebly.com/standalone-journals.html BLJ]', BLJU='[https://beallslist.weebly.com/standalone-journals.html BLJU]', BLP='[https://beallslist.weebly.com/ BLP]', BLPU='[https://beallslist.weebly.com/ BLPU]', SPJJ = '[https://predatoryjournals.com/journals/ SPJJ]', SPJP = '[https://predatoryjournals.com/publishers/ SPJP]', DOAJ='[https://blog.doaj.org/2014/08/28/some-journals-say-they-are-in-doaj-when-they-are-not/ Lying about DOAJ]', QW ='[https://www.quackwatch.org/04ConsumerEducation/nonrecperiodicals.html QW]',	DEPS ='[[WP:DEPS|DEPS]]', URF ='[[#Unreliable fields|URF]]'}
	local abbrev = {Bohannon = 'Bohannon', BLJ = 'BLJ', BLJU= 'BLJU', BLP = 'BLP', BLPU = 'BLPU', SPJJ ='SPJJ', SPJP ='SPJP', DOAJ = 'DOAJ', QW='QW', DEPS ='DEPS', URF = 'URF', Unknown = 'Unknown'}
	source = abbrev[source] or source
	local sourcenote = ''
	if note and source then
		sourcenote = string.format('&nbsp;(%s) &#91;%s&#93;', source, note)
	end
	if source and not note then
		sourcenote = string.format('&nbsp;(%s)', source)
	end
	if note and not source then
		sourcenote = string.format('&nbsp;&#91;%s&#93;', note)
	end
	text = string.format ('* [[:%s]]%s', n[1] or '', sourcenote or '')
	n[1] = nil --make next loop only target arguments >=2
	for i, j in ipairs(TableTools.compressSparseArray(n)) do
		text = text..string.format("\n** [[:%s]]", j)
	end
	
	local j = 1;
	local imprint = n['imprint' .. j]
	while imprint do
		text = text..string.format(" / [[%s]]", imprint)
		j = j + 1
		imprint = n['imprint'..j]		
	end
	local k
	local parent = n['parent' .. k]
	while parent do
		text = text..string.format(" / [[%s]]", parent)
		k = k + 1
		parent = n['parent'..j]
	end
	
	n.doi1 = n.doi or n.doi1													-- assume that |doi= is an alias of |doi1=; TODO: add redundant parameter err msg?
	local i = 1;																-- an indexer variable
	local doi = n['doi'	.. i]													-- get initial value from |doi= or |doi1=

	local search = 'https://en.wikipedia.org/w/index.php?sort=relevance&title=Special%3ASearch&profile=advanced&fulltext=1&advancedSearch-current={}&ns0=1&ns118=1&search=insource%3A'
	local suffix = '%5C%2F%20*%2F'

	while doi do																-- loop through n.doi1, n.doi2, ...; must be sequential; stops at first gap
		text = text..string.format("\n** <code>{{doi|[%s%s%s %s]}}</code>", search, doi:gsub ('10%.', '\/10\\.'), suffix, doi)
		i = i + 1																-- bump the indexer for next parameter
		doi = n['doi'..i]														-- get next |doin= parameter value
	end

	return text
end

function p.exclude (frame)
	local n = mArguments.getArgs(frame, {parentOnly = true})
	local length = TableTools.length(n)
	local text = string.format ('*[[:%s]]', n[1] or '')
	n[1] = nil
	for i, j in ipairs(TableTools.compressSparseArray(n)) do
		if length > 1 then
			text = text..string.format(" ≠ [[:%s]]", j)
		end
	end
	return text
end

function p.pattern (frame)
	local n = mArguments.getArgs(frame, {parentOnly = true})
	local length = TableTools.length(n)
	local text = string.format ('*[[%s]]', n[1] or '')
	n[1] = nil --make next loop only target arguments >=2
	for i, j in ipairs(TableTools.compressSparseArray(n)) do
		 text = text..string.format("\n** <code>%s</code>", j)
		 text = mw.ustring.gsub(text, "%.%*", "<b><font style=color:#006400;>.*</font></b>")
		 text = mw.ustring.gsub(text, "!", "<b><font style=color:#8B0000;>!</font></b>")
		 text = mw.ustring.gsub(text, "'", "&rsquo;")
	end
	return text
end

return p
Usage
