require('strict')
local getArgs = require('モジュール:Arguments').getArgs
local yesno = require('モジュール:Yesno')
local lang_mapping = mw.loadData('モジュール:Wikipedia言語名/lang mapping')
local TEMPLATESTYLES = 'モジュール:サンドボックス/本日晴天/仮リンク/styles.css'
--------------------------------------------------------------------------------
-- BaseIllクラス（抽象クラス）
-- 日本語版記事の表示やカテゴリの出力などを実装
-- コンストラクタとmakeOtherLangLink()は派生クラスで実装する必要がある
--------------------------------------------------------------------------------
local BaseIll = {}
BaseIll.__index = BaseIll
function BaseIll:_init(args)
-- 必須引数が指定されていない場合はエラーメッセージを表示する
if args[1] and args[2] and args[3] then
else
error('第1引数から第3引数までは必須です。')
end
self.args = args
self.title = mw.title.new(args[1])
self.link = args[1]
self.label = args.label
self.preserve = yesno(args.preserve, true)
self.preserveRedirect = self.preserve or yesno(args.redirect, true)
self.jafix = args.jafix
if self.jafix == '1' then
self.jafix = '日本語版記事名を検討する必要があります。'
end
self.fixme = args.FIXME
if self.fixme == '1' then
self.fixme = 'このリンクは修正が必要です。'
end
end
function BaseIll:setTitleStatus()
if not self.title.exists then
-- alt引数 alt1からalt4まで対応
for i = 1, 4 do
local altX = self.args['alt' .. i]
if not altX then
break
end
local altXTitle = mw.title.new(altX)
if altXTitle.exists then
self.label = self.link
self.title = altXTitle
self.link = altX
break
end
end
end
if self.title.exists then
if self.fixme then
-- FIXME引数指定
self.titleStatus = 'fixme'
elseif self.preserveRedirect and self.title.isRedirect then
-- リダイレクトかつ、他言語版強制表示
self.titleStatus = 'redirect'
elseif self.preserve then
-- 他言語版強制表示
self.titleStatus = 'preserve'
else
self.titleStatus = 'resolved'
end
else
self.titleStatus = 'unresolved'
end
end
function BaseIll:export()
local args = self.args
local label = self.label
local link = self.link
local result = mw.html.create()
:wikitext(
mw.getCurrentFrame():extensionTag('templatestyles', '', { src = TEMPLATESTYLES }),
'<span class="ill ill-',
self.titleStatus,
'">'
)
if label and mw.title.equals(mw.title.new(label), self.title) then
link = label
label = nil
end
-- 日本語版の記事名を表示
if yesno(self.args.nolink) and not self.title.exists then
result:wikitext(mw.text.tag('span', { title = link }, label or link))
else
result:wikitext('[[', link)
if label then
result:wikitext('|', label)
end
result:wikitext(']]')
end
if yesno(args.br, true) then
result:wikitext('<br />')
end
result:wikitext(self:makeOtherLangLink())
-- 訳語疑問点タグ
if self.jafix then
result:wikitext(
'<sup class="noprint Inline-Template nowrap">[<span title="',
self.jafix,
'">訳語疑問点</span>]</sup>'
)
end
-- 要リンク修正タグ
if self.fixme then
result:wikitext('<sup class="noprint Inline-Template nowrap">[[[:Category:',
'FIXME引数が指定された仮リンクを含むページ|<span title="',
self.fixme,
'">要リンク修正</span>]</sup>'
)
end
result:wikitext('</span>')
if args.this and not mw.title.equals(mw.title.new(args.this), mw.title.getCurrentTitle()) then
-- args.thisが使われており、かつ現在のページ名がargs.thisの値と等しくない場合は
-- カテゴリを付与しない
else
result:node(self:exportCategories())
end
return tostring(result)
end
function BaseIll:exportCategories()
local sortkey
local namespace = mw.title.getCurrentTitle().namespace
if namespace % 2 == 0 then -- ノートページ以外
if namespace <= 18 then
sortkey = tostring(namespace / 2)
else
sortkey = "9" .. namespace
end
else -- ノートページ
if namespace < 10 then
sortkey = "話00" .. namespace
elseif namespace < 100 then
sortkey = "話0" .. namespace
else
sortkey = "話" .. namespace
end
end
local categories = mw.html.create()
-- カテゴリの出力
if self.title.exists then
-- 日本語版が記事・リダイレクト問わず存在する場合
-- preserve引数、redirect引数の有無は関係しない
if namespace == 0 then
categories:wikitext('[[Category:解消済み仮リンクを含む記事]]')
else
categories:wikitext('[[Category:解消済み仮リンクを含むページ|', sortkey, ']]')
end
end
if self.link ~= self.args[1] then
-- alt1などの値が日本語版のリンクとして用いられた場合
categories:wikitext('[[Category:代替記事名にリンクしている仮リンクを含むページ|', sortkey, ']]')
end
if self.preserve then
categories:wikitext('[[Category:preserve引数が指定された仮リンクを含むページ|', sortkey, ']]')
end
if self.preserveRedirect then
categories:wikitext('[[Category:redirect引数が指定された仮リンクを含むページ|', sortkey, ']]')
end
if self.jafix then
categories:wikitext('[[Category:訳語に疑問点のある記事|仮リンク]]')
end
if self.fixme then
categories:wikitext('[[Category:FIXME引数が指定された仮リンクを含むページ|', sortkey, ']]')
end
return categories
end
--------------------------------------------------------------------------------
-- Illクラス（BaseIllを継承）
-- {{仮リンク}}用
-- 他言語版記事へのリンクを生成する部分を実装
--------------------------------------------------------------------------------
local Ill = setmetatable({}, { __index = BaseIll })
Ill.__index = Ill
function Ill.new(frame)
local obj = setmetatable({}, Ill)
obj:_init(getArgs(frame, { wrappers = '利用者:本日晴天/sandbox/Template:仮リンク', readOnly = true }))
return obj
end
function Ill._otherLangLink(langCode, pageName)
-- ウィキデータの場合は「wikidata」、それ以外の場合は言語名+「版」とする
if langCode == 'wikidata' or langCode == 'Wikidata' then
return '[[:d:' .. pageName .. '|wikidata]]'
end
-- 言語名を取得
local langDisp = lang_mapping.long[langCode]
if not langDisp then
error('不明な言語コード"' .. langCode .. '"が指定されました。')
end
return string.format('[[:%s:%s|%s版]]', langCode, pageName, langDisp)
end
function Ill:makeOtherLangLink()
local args = self.args
local t = {}
local i = 2
while args[i] and args[i + 1] do
table.insert(t, Ill._otherLangLink(args[i], args[i + 1]))
i = i + 2
end
return '<span class="noprint ill-otherlang nowrap">（'
.. table.concat(t, '、')
.. (args.add or '')
.. '）</span>'
end
--------------------------------------------------------------------------------
-- IllVipnクラス（BaseIllを継承）
-- {{日本語版にない記事リンク}}用
-- 他言語版記事へのリンクを生成する部分を実装
--------------------------------------------------------------------------------
local IllVipn = setmetatable({}, { __index = BaseIll })
IllVipn.__index = IllVipn
function IllVipn.new(frame)
local obj = setmetatable({}, IllVipn)
obj:_init(getArgs(frame, { wrappers = '利用者:本日晴天/sandbox/Template:日本語版にない記事リンク', readOnly = true }))
return obj
end
function IllVipn:makeOtherLangLink()
local args = self.args
local langCode = args[2]
local pageName = args[3]
-- 言語名を取得
local langPage = lang_mapping.long[langCode]
if not langPage then
error('不明な言語コード"' .. langCode .. '"が指定されました。')
end
-- 言語短縮名を取得
local langShort
if (args.short == 'on') or yesno(args.short) then
langShort = lang_mapping.short[langCode]
end
-- 言語名を表示
local langLink
if yesno(args.links) == false then
langLink = langShort or langPage
elseif langShort then
langLink = '[[' .. langPage .. '|' .. langShort .. ']]'
else
langLink = '[[' .. langPage .. ']]'
end
return string.format(
'<span class="ill-otherlang-vipn">（%s: <span lang="%s">[[:%s:%s|%s]]</span>%s）</span>',
langLink,
langCode,
langCode,
pageName,
args.interwikilabel or pageName,
args.add or ''
)
end
--------------------------------------------------------------------------------
-- モジュールの出力
-- ill()は{{仮リンク}}用、ill_vipn()は{{日本語版にない記事リンク}}用
--------------------------------------------------------------------------------
local function ill(frame)
local obj = Ill.new(frame)
obj:setTitleStatus()
return obj:export()
end
local function illVipn(frame)
local obj = IllVipn.new(frame)
obj:setTitleStatus()
return obj:export()
end
return {
ill = ill,
ill_vipn = illVipn
}
モジュールの解説[作成]