Editing Module:Sandbox/RexxS/Sources

--[[
Module to test a template for reliable sources
See:
https://en.wikipedia.org/wiki/User_talk:Adam_Harangoz%C3%B3/template
https://en.wikipedia.org/wiki/User:Adam_Harangoz%C3%B3/template_specs
https://en.wikipedia.org/wiki/User:Adam_Harangoz%C3%B3/template_properties
--]]

local p = {}

-- This piece of html implements a collapsible container. Check the classes exist on your wiki.
local collapsediv = '<div class="mw-collapsible mw-collapsed mw-content-{{#switch:{{CONTENTLANG}}|ar|arc|arz|azb|bcc|ckb|bqi|dv|fa|fa-af|glk|ha|he|kk-arab|kk-cn|ks|ku-arab|mzn|nqo|pnb|prd|ps|sd|ug|ur|ydd|yi=rtl|ltr}} plainlinks plainlinksneverexpand noarchive" style="width:100%; overflow:auto;" data-expandtext="{{int:Collapsible-expand}}" data-collapsetext="{{int:Collapsible-collapse}}">'

-- All results appear as internal links (to avoid archive links)
local illook = '<div class="mw-content-{{#switch:{{CONTENTLANG}}|ar|arc|arz|azb|bcc|ckb|bqi|dv|fa|fa-af|glk|ha|he|kk-arab|kk-cn|ks|ku-arab|mzn|nqo|pnb|prd|ps|sd|ug|ur|ydd|yi=rtl|ltr}} plainlinks plainlinksneverexpand noarchive">'

local sources = mw.loadData("Module:Sandbox/RexxS/Sources/data")

local function findLang(langcode)
	local langobj
	langcode = mw.text.trim(langcode or "")
	if mw.language.isKnownLanguageTag(langcode) then
		langobj = mw.language.new( langcode )
	else
		langcode = mw.getCurrentFrame():preprocess( '{{int:lang}}' )
		if mw.language.isKnownLanguageTag(langcode) then
			langobj = mw.language.new( langcode )
		else
			langobj = mw.language.getContentLanguage()
		end
	end
	return langobj
end

function p.testlist(frame)
	local out = "" -- output text
	for langcode, langdata in pairs(sources) do
		-- just the language codes
		out = out.."\n=== "..langcode.." ==="
		for idx, src in ipairs(langdata) do
			out = out.."\n"..src[1].."; WD="..src[2].."; loc="..src[3].."<br>\n"
		end
		out = out.."<br>\n"
	end
	return out
end

--[[
Parameters:
qid
lang
--]]
function p.demo(frame)
	local args = frame.args

	local qid = args.qid or ""
	if qid == "" then qid = mw.wikibase.getEntityIdForCurrentPage() end

	local langcode = findLang(args.lang).code

	local out1 = {}
	for idx1, src in ipairs(sources[langcode]) do
		local statements = mw.wikibase.getBestStatements(qid, src[2])
		for idx2, valtbl in ipairs(statements) do
			if valtbl.mainsnak.datatype == "external-id" and valtbl.mainsnak.snaktype == "value" then
				local idurl = valtbl.mainsnak.datavalue.value:gsub("%%", "%%%%")
				out1[#out1 + 1] = "[" .. src[3]:gsub("$1", idurl) .. " " .. src[1] .. "]"
			end
		end
	end

	local locallang = ""
	if #out1 > 0 then
		locallang = illook .. frame:expandTemplate{title = "hlist", args = out1} .. "</div>"
	end

	local out2 = {}
	for srclangcode, langdata in pairs(sources) do
		if srclangcode ~= langcode then
			for idx1, src in ipairs(langdata) do
				local statements = mw.wikibase.getBestStatements(qid, src[2])
				for idx2, valtbl in ipairs(statements) do
					if valtbl.mainsnak.datatype == "external-id" and valtbl.mainsnak.snaktype == "value" then
						local idurl = valtbl.mainsnak.datavalue.value:gsub("%%", "%%%%")
						out2[#out2 + 1] = "[" .. src[3]:gsub("$1", idurl) .. " " .. src[1] .. "]"
					end
				end
			end
		end
	end

	local otherlang = ""
	if #out2 > 0 then
		if #out1 > 0 then
			otherlang = collapsediv .. frame:expandTemplate{title = "hlist", args = out2} .. "</div>"
		else
			otherlang = illook .. frame:expandTemplate{title = "hlist", args = out2} .. "</div>"
		end
	end

	return locallang .. otherlang
end

return p