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

2020-01-29T04:27:48Z

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

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

bsd>Jarekt: another small issue

2019-12-10T03:53:14Z

another small issue

新規ページ

--[[
__ __ _ _ _____ _ _ _
| \/ | ___ __| |_ _| | ___ |_ _(_) |_| | ___
| |\/| |/ _ \ / _` | | | | |/ _ (_)| | | | __| |/ _ \
| | | | (_) | (_| | |_| | | __/_ | | | | |_| | __/
|_| |_|\___/ \__,_|\__,_|_|\___(_)|_| |_|\__|_|\___|

This module is intended to be the engine behind "Template:Title"

Authors and maintainers:
* User:Jarekt - original version
]]

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

-- ==================================================
-- === Internal functions ===========================
-- ==================================================
local function langSwitch_(list,userLang)
local langList = mw.language.getFallbacksFor(userLang)
table.insert(langList,1,userLang)
for _,language in ipairs(langList) do
if list[language] then
return list[language], language
end
end
return nil, nil
end

-- ====================================================================
local function langWrapper(text, textLang, userLang)
-- code equivalent to https://commons.wikimedia.org/wiki/Template:Description
local dir = mw.language.new( textLang ):isRTL() and 'rtl' or 'ltr'
local str = string.format('<span class="language %s"><b>%s:</b></span>', textLang, mw.language.fetchLanguageName( userLang, textLang ))
return string.format('<div class="description mw-content-%s" dir="%s" lang="%s">%s %s</div>', dir, dir, textLang, str, text)
end

-- ====================================================================
local function style(str, textLang)
-- based on [[Template:Title/style]]
if not str or #str==0 then
return nil
end
str = mw.text.trim(str)
local LUT = {ar='%s',he='%s' ,et='„%s“' ,ja='『%s』' ,mk='„%s“' ,ru='«%s»' ,zh='《%s》', ['zh-hans']='《%s》', en='<i>%s</i>'}
--str = mw.language:ucfirst(str)
local form, lang = langSwitch_(LUT, textLang)
str = mw.ustring.format( form, str)
local dir = mw.language.new( lang ):isRTL() and 'rtl' or 'ltr'
str = string.format('<span dir="%s" lang="%s">%s</span>', dir, lang, str)
return str
end

-- ===========================================================================
-- === get wikidata item ID (qid) based on P6243 stored in SDC ===
-- ===========================================================================
local function qid_from_SDC()
local page = mw.title.getCurrentTitle()
local mid = "M" .. page.id -- same as {{PAGEID}}
local entity = mw.wikibase.getEntity(mid)
if entity and entity.statements and entity.statements.P6243 then
local statement = entity.statements.P6243[1]
return statement.mainsnak.datavalue.value.id
end
return nil
end

-- ====================================================================
local function harvest_wikidata(entity, userLang)
local data = {} -- structure similar to "args" but filled with wikidata data
data.userLang = userLang
if not entity then
return data
end

-- get title (from 3 properties and label)
local property = {P1476 = 'title', P1448='official_name', P1705='native_label'}
for prop, field in pairs( property ) do
local titleList = {}
for _, statement in pairs( entity:getBestStatements(field)) do
if (statement.mainsnak.snaktype == "value") then
local val = statement.mainsnak.datavalue.value
titleList[val.language] = val.text -- look for multiple values each with a language code
data.title, data.lang = val.text, val.language
end
end
if #titleList>1 then
title, language = langSwitch_(titleList, userLang)
if title then
data.title, data.lang = title, language
end
end
if data.title then
break
end
end

-- get labels in all the langguages
if entity.labels then
for language, val in pairs(entity.labels) do -- loop over all labels
if language~=data.lang then
data[language] = val.value
end
end
end

return data
end

-- ==================================================
-- === External functions ===========================
-- ==================================================
local p = {}

-- ===========================================================================
-- === Version of the function to be called from other LUA codes
-- ===========================================================================
function p.title_(args)
local line1, line2, Title, text, lang
local qsTable = {}
local qsCommand = '<div style="display: none;">label QS:L%s,"%s"</div>' -- text of invisible tag brodcasted by the template which allows creation of QuickStatements command used to add this info to Wikidata

if args.lang and args.title then -- == Case 1: original language to be displayed ==
args.lang = string.lower(args.lang)
line1 = style(args.title, args.lang)
if args.lang==args.userLang then -- user's language = title's language
if args[args.lang] then -- the second line can be a modernization for example
line2 = '<br/>' .. style(args[args.lang], args.userLang)
end
Title = mw.ustring.format( '<span style="font-weight:bold">%s%s</span>', line1, line2 or '')
else -- user's language != title's language
-- line 1 original language
local langName = mw.language.fetchLanguageName( args.lang, args.userLang )
local colon = mw.message.new( "colon" ):inLanguage(args.userLang ):plain()
local wordsep = mw.message.new( "Word-separator" ):inLanguage(args.userLang ):plain()
line1 = langName .. colon .. wordsep .. line1
if args.transliteration then -- the second line can be a modernization for example
line1 = line1 .. ' - ' .. args.transliteration
end
line1 = mw.ustring.format( '<span style="font-size:0.9em">%s</span>', line1)

-- line 2 translation
if args.translation then -- the second line can be a modernization for example
line2 = args.translation
else
text, lang = langSwitch_(args, args.userLang)
line2 = style(text, lang)
end
if line2 then
line2 = mw.ustring.format( '<br/><span style="font-weight:bold">%s</span>', line2)
end
Title = line1 .. (line2 or '')
end
if not args.title_ then -- make sure title did not originated on wikidata
table.insert( qsTable, string.format('<div style="display: none;">title QS:P1476,%s:"%s"</div>', args.lang, args.title) )
table.insert( qsTable, string.format(qsCommand, args.lang, args.title) )
end
else -- == Case 2: original language not relevant ==
if args.title then
Title = args.title
else
text, lang = langSwitch_(args, args.userLang)
Title = style(text, lang)
end
if Title then
Title = mw.ustring.format( '<span style="font-weight:bold">%s</span>', Title)
end
end
Title = Title or ''
if args.comment then
Title = mw.ustring.format( '%s<br /><span style="font-size:0.9em">%s<br /></span>', title, args.comment)
end

-- add text of invisible tag brodcasted by the template which allows creation of QuickStatements command used to add this info to Wikidata
for lang, text in pairs( args ) do
if mw.language.isSupportedLanguage(lang) and not args[lang..'_'] then -- lang has tobe a valid language and the statement is not from wikidata
table.insert( qsTable, string.format(qsCommand, lang, text) )
end
end

return Title .. table.concat( qsTable, '\n')
end

function p.wikidata_title(entity, userLang)
return p.title_(harvest_wikidata(entity, userLang))
end

-- ===========================================================================
-- === Versions of the function to be called from template namespace
-- ===========================================================================
function p.title(frame)
local args = {}
for name, value in pairs( frame:getParent().args ) do
if value ~= '' then -- nuke empty strings
args[string.lower(name)] = value
end
end
for name, value in pairs( frame.args ) do
if value ~= '' then -- nuke empty strings
args[string.lower(name)] = value
end
end

if not (args.userLang and mw.language.isSupportedLanguage(args.userLang)) then
args.userLang = frame:callParserFunction( "int", "lang" ) -- get user's chosen language
end

-- merge wikidata with local variables
local qid = args.wikidata or qid_from_SDC() -- get wikidata item ID based on P6243 stored in SDC
local entity = mw.wikibase.getEntity(qid)
if entity then
local data = harvest_wikidata(entity, args.userLang)
if not args.title and data.title and not args.lang and data.lang then
args.title = data.title -- get title from wikidata
args.lang = data.lang
args.title_ = 'from wikidata'
end
for lang, text in pairs( data ) do
if mw.language.isSupportedLanguage(lang) and not args[lang] then
args[lang] = data[lang]
args[lang..'_'] = 'from wikidata'
end
end
end
return p.title_(args)
end

return p

モジュール:Title - 版の履歴

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

bsd>Jarekt: another small issue

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