Модул:Wikidata/Interproject

Модуль возвращает ссылку на братские проекты согласно информации из Викиданных:

• если есть русская ссылка, возвращается она
• если есть ссылка на родном языке писателя (см. передаваемый аргумент), то используется она. Поддерживаются multiple значения для языка
• если ничего из этого нет, используется случайная ссылка

Истифода

{{#invoke:Wikidata/Interproject|getWikisourceLink}}

{{#invoke:Wikidata/Interproject|getWikiquoteLink}}

---

local p = {}

function p.getWikibooksLink( context )
	return p.getSisterProjectLink( 'b', 'wikibooks', context )
end

function p.getWikiquoteLink( context )
	return p.getSisterProjectLink( 'q', 'wikiquote', context )
end

function p.getWikisourceLink( context )
	return p.getSisterProjectLink( 's', 'wikisource', context )
end

function p.getWikipediaLink( context )
	return p.getSisterProjectLink( 'w', 'wiki', context )
end

function p.getWiktionaryLink( context )
	return p.getSisterProjectLink( 'wikt', 'wiktionary', context )
end

function p.getSisterProjectLink( projectInterwikiPrefix, projectName, context )
	-- проброс параметра from откуда угодно
	local entityId = nil
	local p_context = context
	while p_context do
		if p_context.args and p_context.args.from and p_context.args.from ~= '' then
			entityId = p_context.args.from
		else
			entityId = mw.wikibase.getEntityIdForCurrentPage()
		end
		p_context = p_context:getParent()
	end

	-- По умолчанию старается достать ссылку на русском, иначе - на родном (P103)
	local wbStatus, sitelink = pcall( mw.wikibase.getSitelink, entityId, 'tg' .. projectName )
	if wbStatus and sitelink then
		return projectInterwikiPrefix .. ':' .. sitelink
	end

	local wbStatus, langClaims = pcall( mw.wikibase.getBestStatements, entityId, 'P103' )
	if wbStatus ~= true or not langClaims then
		return ''
	end
	
	local codes = mw.loadData( 'Module:Wikidata:Dictionary/P424' )
	for _, claim in ipairs( langClaims ) do
		if claim.mainsnak and
			claim.mainsnak.datavalue and
			claim.mainsnak.datavalue.value and
			claim.mainsnak.datavalue.value.id
		then
			local codesById = codes[ claim.mainsnak.datavalue.value.id ]
			if codesById then
				for _, code in ipairs( codesById ) do
					wbStatus, sitelink = pcall( mw.wikibase.getSitelink, entityId, code .. projectName )
					if wbStatus and sitelink then
						return projectInterwikiPrefix .. ':' .. code .. ':' .. sitelink
					end
				end
			end
		end
	end

	return ''
end

return p