モジュール:Wikidata label - 版の履歴

WikiSysop: 1版をインポートしました

2023-05-08T00:09:07Z

1版をインポートしました

← 古い版		2023年5月8日 (月) 09:09時点における版
(相違点なし)

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

2022-10-30T13:19:50Z

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

← 古い版		2022年10月30日 (日) 22:19時点における版
17行目:		17行目:
	]]		]]

	require('~~Module:No globals~~') -- used for debugging purposes as it detects cases of unintended global variables		require('strict') -- used for debugging purposes as it detects cases of unintended global variables

	--=============================================		--=============================================
125行目:		125行目:
	-- INPUTS:		-- INPUTS:
	-- * label - label string		-- * label - label string
	-- * capitalization - capitalization to be applied: allowed values are "lc",		-- * capitalization - capitalization to be applied: allowed values are "tc", "lc",
	-- "uc", "lcfirst", and "ucfirst". Any other value will return original string		-- "uc", "lcfirst", and "ucfirst". Any other value will return original string
	-- * lang - language of the label		-- * lang - language of the label
135行目:		135行目:
	return label		return label
	elseif capitalization == 'uc' then		elseif capitalization == 'uc' then
	return mw.~~ustring~~.~~upper~~(label)		return mw.language.new(lang):uc(label)
			elseif capitalization == 'lc' then
			return mw.language.new(lang):lc(label)
			elseif capitalization == 'tc' then -- title case
			local new_label = {}
			for _, word in ipairs(mw.text.split(label, ' ')) do
			table.insert(new_label, mw.language.new(lang):ucfirst(word))
			end
			return table.concat(new_label, ' ')
	elseif capitalization == 'ucfirst' then		elseif capitalization == 'ucfirst' then
	return mw.language.new(lang):ucfirst(label)		return mw.language.new(lang):ucfirst(label)
	~~elseif capitalization == 'lc' then~~
	~~return mw.ustring.lower(label)~~
	elseif capitalization == 'lcfirst' then		elseif capitalization == 'lcfirst' then
	return mw.language.new(lang):lcfirst(label)		return mw.language.new(lang):lcfirst(label)
251行目:		257行目:
	]]		]]
	function p._getLabel(item, lang, link_type, capitalization, show_id)		function p._getLabel(item, lang, link_type, capitalization, show_id)
	local entity, s, link, label, language		local entity, s, link, label, language, desc

	-- clean up the input parameters		-- clean up the input parameters
285行目:		291行目:
	if label then break end -- label found and we are done		if label then break end -- label found and we are done
	end		end
			end
			if label then -- wikitext-escape the label if we have one
			label = mw.text.nowiki(label)
	end		end
	if not label then -- no labels found, so just show the q-id		if not label then -- no labels found, so just show the q-id
298行目:		307行目:
	end		end
	label = apply_capitalization(label, capitalization, lang)		label = apply_capitalization(label, capitalization, lang)

			-- look for description
			if entity and entity.descriptions and lang then
			for _, language in ipairs(langList) do
			if entity.descriptions[language] then
			desc = entity.descriptions[language].value
			break
			end
			end
			else
			desc = mw.wikibase.getDescription(item)
			end
			if desc and link_type ~= '-' then -- wikitext-escape the description if we have one
			desc = mw.text.nowiki(desc) -- add description as hover text
			label = '<span title="' .. desc .. '">' .. label .. '</span>'
			end

	-- return the results		-- return the results
424行目:		449行目:
	2: language (optional; default {{int:lang}})		2: language (optional; default {{int:lang}})
	3: link_style: "wikipedia" (default), "Wikidata", "Commons", or "-" (no link)		3: link_style: "wikipedia" (default), "Wikidata", "Commons", or "-" (no link)
	4: capitalization - can be "uc", "lc", "ucfirst", "lcfirst"		4: capitalization - can be "uc", "lc", "tc", "ucfirst", "lcfirst"

	Error Handling:		Error Handling:

WikiSysop: 1版をインポートしました

2020-07-25T12:24:14Z

1版をインポートしました

← 古い版		2020年7月25日 (土) 21:24時点における版
(相違点なし)

bsd>Jarekt: restore old style links to wikidata items d:Qxxx instead of d:Special:EntityPage/Qxxx

2020-05-27T02:26:33Z

restore old style links to wikidata items d:Qxxx instead of d:Special:EntityPage/Qxxx

差分を表示

Nijcadmin: 1版をインポートしました

2020-01-29T04:27:50Z

1版をインポートしました

← 古い版		2020年1月29日 (水) 13:27時点における版
(相違点なし)

bsd>Jarekt: fix https://phabricator.wikimedia.org/T240563

2019-12-12T19:03:14Z

fix https://phabricator.wikimedia.org/T240563

新規ページ

--[[
__ __ _ _ __ ___ _ _ _ _ _ _ _
| \/ | ___ __| |_ _| | ___ \ \ / (_) | _(_) __| | __ _| |_ __ _ | | __ _| |__ ___| |
| |\/| |/ _ \ / _` | | | | |/ _ (_) \ /\ / /| | |/ / |/ _` |/ _` | __/ _` | | |/ _` | '_ \ / _ \ |
| | | | (_) | (_| | |_| | | __/_ \ V V / | | <| | (_| | (_| | || (_| | | | (_| | |_) | __/ |
|_| |_|\___/ \__,_|\__,_|_|\___(_) \_/\_/ |_|_|\_\_|\__,_|\__,_|\__\__,_| |_|\__,_|_.__/ \___|_|

This module is intended to be the engine behind "Template:Label".
Thic module was copied from Commons please ask for changes there.

Please do not modify this code without applying the changes first at "Module:Wikidata label/sandbox" and testing
at "Module:Wikidata label/testcases".

Authors and maintainers:
* User:Jarekt - original version

Dependencies:
* Module:Yesno - used only if "show_id" parameter present
]]

-- use different sitelink call depending if you already have an entity or not
local function getSitelink(item, entity, lang)
if entity and entity.getSitelink then -- if we have entity than use it
return entity:getSitelink(lang .. 'wiki')
else -- if no entity than use different function
return mw.wikibase.sitelink( item, lang .. 'wiki' )
end
end

local p = {}

--[[
_getLabel

This function returns a label translated to desired language, created based on wikidata

Inputs:
1: item - wikidata's item's q-code or entity class
2: lang - desired language of the label
3: link_type - link style. Possible values: "wikipedia", "Wikidata", "Commons", or "-" (no link)
4: capitalization - can be "uc" (upper case), "lc" (lower case), "ucfirst" (upper case for the first letter),
"lcfirst" (lower case for the first letter)

Error Handling:
Bad q-code will result in displayed error
]]
function p._getLabel(item, lang, link_type, capitalization, show_id)
local entity, s, link, label, language

-- clean up the input parameters
if type(item)~='string' then -- "item" is not a q-code
entity = item -- "item" must be the entity
item = entity.id -- look-up q-code
elseif tonumber(item) then -- if it is just the number than add "Q" in front
item = 'Q'..item
end
item = string.gsub( string.upper(item), 'PROPERTY:P', 'P') -- make all the properties the same and capitalize

-- build language fallback list
lang = string.lower(lang) or 'en'
local langList = mw.language.getFallbacksFor(lang)
table.insert(langList, 1, lang)

-- get label (visible part of the link)
for _, language in ipairs(langList) do -- loop over language fallback list looking for label in the specific language
if entity then
label = entity:getLabel(language)
else
label = mw.wikibase.getLabelByLang(item, language)
end
if label then break end -- label found and we are done
end
if not label then -- no labels found, so just show the q-code
label = item
elseif show_id then -- add id
local yesno = require('Module:Yesno')
show_id = yesno(show_id,false)
if show_id then
local id = mw.getCurrentFrame():preprocess( "{{int:parentheses|" .. item .."}}")
local wordsep = mw.message.new( "Word-separator" ):inLanguage(lang):plain()
label = label .. wordsep .. "<small>" .. id .. "</small>"
end
end

-- change capitalization of the label
if capitalization=='ucfirst' then
label = mw.language.new(lang):ucfirst(label)
elseif capitalization=='lcfirst' then
label = mw.language.new(lang):lcfirst(label)
elseif capitalization=='uc' then
label = mw.language.new(lang):uc(label)
elseif capitalization=='lc' then
label = mw.language.new(lang):lc(label)
end

-- create URL part of the link
link_type = string.lower(link_type or '')
local dLink = 'd:'..item; -- create fallback wikidata link
local item_type = string.sub(item, 1, 1) -- item's first letter:Q, P or M
if item_type == 'P' then
dLink = 'd:Property:'.. item
elseif item_type == 'M' then
dLink = 'Special:Redirect/page/' .. string.sub(item, 2)
end
if link_type=='-' then -- allow different link formats
link = '' -- no link
elseif link_type=='wikidata' or item_type=='M' then
link = dLink -- link to wikibase page
elseif link_type=='wikidata talk' and item_type=='P' then
link = 'd:Property talk:'.. item -- link to wikidata property talk page
elseif link_type=='wikidata talk' then
link = 'd:Talk:'..item -- link to wikidata talk page
elseif link_type=='commons' or link_type=='commonscat' then
-- For link_type=='commons' we try the following links (in that order):
-- 1) sitelink to commons
-- 2) "Commons Category" P373 property
-- 3) "Commons Gallery" P935 property
-- Since most pages have a sitelink to commons we never have to call expensive mw.wikibase.getEntity
-- For link_type=='commonscat' we try to maximize chances of commons link beeing a category, so we
-- try the following links (in that order):
-- 1) sitelink to commons, which is kept if it points to a category
-- 2) "Commons Category" P373 property
-- 3) sitelink to commons (which does not point to a category)
-- 4) "Commons Gallery" P935 property
-- Since most pages have a sitelink to commons we never have to call expensive mw.wikibase.getEntity
local sLink = getSitelink(item, entity, 'commons') -- look for sitelink to commons
if sLink then
sLink = 'c:'..sLink
if (link_type=='commons') or (link_type=='commonscat' and string.find( sLink, 'Category:')) then
link = sLink
end
end
if not link then -- try linking to P373 category
-- this is potentially memory expensive operation
entity = entity or mw.wikibase.getEntity(item);
assert(entity, "Item ID " .. item .. " is not valid")
s = entity:getBestStatements( 'P373' )
if s[1] and s[1].mainsnak.datavalue.value then
link = 'c:Category:' .. s[1].mainsnak.datavalue.value
end
end
link = link or sLink
if not link then -- try linking to P935 gallery
-- there is no need for mw.wikibase.getEntity(item) call since at this point it was already loded
s = entity:getBestStatements( 'P935' )
if s[1] and s[1].mainsnak.datavalue.value then
link = s[1].mainsnak.datavalue.value
end
end
end
if not link then-- apply default "Wikipedia" link type
for _, language in ipairs(langList) do
local sitelink = getSitelink(item, entity, language)
if sitelink then
link = mw.ustring.format('w:%s:%s', language, sitelink)
break
end
end
end
link = link or dLink -- no wiki sitelink, so link to wikidata

-- return the results
if link~='' then
return mw.ustring.format('[[%s|%s]]', link, label) -- return link
else
return label -- return just a label
end
end

--[[
getLabel

This function returns a label translated to desired language, created based on wikidata

Usage:
{{#invoke:Wikidata label|getLabel|item=Q...|lang=..|link_style=..|capitalization=..}}

Parameters
1: wikidata's item's q-code (required)
2: language (optional; default {{int:lang}} )
3: link_style: "wikipedia" (default), "Wikidata", "Commons", or "-" (no link)
4: capitalization - can be "uc", "lc", "ucfirst", "lcfirst"

Error Handling:
Bad q-code will result in displayed error
]]
function p.getLabel(frame)
local args = frame.args
if not (args.lang and mw.language.isSupportedLanguage(args.lang)) then
args.lang = frame:callParserFunction( "int", "lang" ) -- get user's chosen language
end
if (not args.link) or (mw.text.trim(args.link) == "") then
args.link = "wikipedia"
end
if (not args.capitalization) or (mw.text.trim(args.capitalization) == "") then
args.capitalization = "none"
end
args.item = mw.text.trim(args.item or '')
return p._getLabel(args.item, args.lang, args.link, args.capitalization, args.show_id)
end

--[[
_sitelinks

This function returns a table of sitelinks for a single project organized by language

Inputs:
1: item - wikidata's item's q-code or entity class
2: project - "wikipedia", "wikisource", "wikiquote", "wikibooks", "wikinews", "wikiversity",
"wikivoyage", "wiktionary", "commons", "mediawiki", "wikispecies", "wikidata", etc.

Output:
Table with language fields
]]
function p._sitelinks( item, project )
local entity, sitelink
-- get entity
if type(item)=='string' then -- "item" is a q-code
entity = mw.wikibase.getEntity(item);
else
entity = item -- "item" is the entity
item = entity.id -- look-up q-code
end

-- get project code
local LUT = {wikipedia='wiki', commons='commonswiki', mediawiki='mediawikiwiki', wikispecies='specieswiki', wikidata='wikidatawiki'}
project = string.lower(project)
if LUT[project] then -- correct the project name
project=LUT[project]
end
local n = string.len(project);
local s ={}
if entity and entity.sitelinks then -- See if entity exists, and that it has sitelinks
for _, sitelink in pairs(entity.sitelinks) do -- loop over all sitelinks
local site = sitelink.site
local lang = mw.ustring.sub( site, 1, mw.ustring.len(site) - n ) -- language part of the siteID
local proj = mw.ustring.sub( site, mw.ustring.len(site) - n + 1 ) -- project part of the siteID
if proj == project then -- proj matches desired "project"
s[lang] = sitelink.title
end
end
end
return s
end

--[[
sitelinks

This function returns a comma separated list of sitelinks for a single project organized by language
Its main purpose is to help with testing of _sitelinks function.

Usage:
{{#invoke:Wikidata label|sitelinks|item=Q...|project=..}}

Inputs:
1: item - wikidata's item's q-code or entity class
2: project - "wikipedia" (or "wiki"), "wikisource", "wikiquote", "wikibooks", "wikinews", "wikiversity", "wikivoyage", "wiktionary", etc.

Output:
comma separated list
]]
function p.sitelinks(frame)
local sitelinks = p._sitelinks(frame.args.item, frame.args.project)
local s = {}
for i, j in pairs(sitelinks) do
table.insert(s, i .. ':' .. j)
end
return table.concat(s, ', ')
end

--[[
_aliases

This function returns a table of aliases for a single language

Inputs:
1: item - wikidata's item's q-code or entity class
2: lang - language code, like 'en' or 'de'

Output:
Table of aliases
]]
function p._aliases( item, lang )
local entity
if type(item)=='string' then -- "item" is a q-code
entity = mw.wikibase.getEntity(item);
else
entity = item -- "item" is the entity
item = entity.id -- look-up q-code
end
local s = {}
if entity and entity.aliases then -- See if there is an entity and that is has aliases
if entity.aliases[lang] then -- See if it has English Aliases
for i, j in pairs(entity.aliases[lang]) do -- Make a loop around the English aliases
table.insert(s, j.value) -- Create a table of English aliases
end
end
end
return s
end

--[[
aliases

This function returns a comma separated list of aliases for a single language
Its main purpose is to help with testing of _aliases function.

Usage:
{{#invoke:Wikidata label|aliases|item=Q...|lang=..}}

Inputs:
1: item - wikidata's item's q-code or entity class
2: lang - language code, like 'en' or 'de'

Output:
Comma separated list of aliases
]]
function p.aliases(frame)
return table.concat(p._aliases(frame.args.item, frame.args.lang), ', ')
end

return p

モジュール:Wikidata label - 版の履歴

WikiSysop: 1版 をインポートしました

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

WikiSysop: 1版 をインポートしました

bsd>Jarekt: restore old style links to wikidata items d:Qxxx instead of d:Special:EntityPage/Qxxx

Nijcadmin: 1版 をインポートしました

bsd>Jarekt: fix https://phabricator.wikimedia.org/T240563

WikiSysop: 1版をインポートしました

WikiSysop: 1版をインポートしました

Nijcadmin: 1版をインポートしました