モジュール:Uses TemplateStyles - 版の履歴

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

2022-02-14T07:10:06Z

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

← 古い版	2022年2月14日 (月) 16:10時点における版
(相違点なし)

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

2022-02-13T13:55:33Z

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

← 古い版	2022年2月13日 (日) 22:55時点における版
(相違点なし)

2021年1月2日 (土) 20:30にmediawiki>Ppperyによる

2021-01-02T20:30:11Z

← 古い版		2021年1月3日 (日) 05:30時点における版
4行目:		4行目:
	local mTableTools = require('Module:TableTools')		local mTableTools = require('Module:TableTools')
	local mMessageBox = require('Module:Message box')		local mMessageBox = require('Module:Message box')
			local TNT = require('Module:TNT')

	local p = {}		local p = {}

			local function format(msg, ...)
			return TNT.format('I18n/Uses TemplateStyles', msg, ...)
			end

			local function getConfig()
			return mw.loadData('Module:Uses TemplateStyles/config')
			end

	function p.main(frame)		function p.main(frame)
19行目:		28行目:
	end		end

	function p._main(args)		function p._main(args, cfg)
	local tStyles = mTableTools.compressSparseArray(args)		local tStyles = mTableTools.compressSparseArray(args)
	local box = p.renderBox(tStyles)		local box = p.renderBox(tStyles)
29行目:		38行目:
	local boxArgs = {}		local boxArgs = {}
	if #tStyles < 1 then		if #tStyles < 1 then
	boxArgs.text = '<strong class="error">~~エラー: TemplateStylesが指定されていません~~</strong>'		boxArgs.text = string.format('<strong class="error">%s</strong>', format('error-emptylist'))
	else		else
			local cfg = getConfig()
	local tStylesLinks = {}		local tStylesLinks = {}
	for i, ts in ipairs(tStyles) do		for i, ts in ipairs(tStyles) do
			local link = string.format('[[:%s]]', ts)
	local sandboxLink = nil		local sandboxLink = nil
	local tsTitle = mw.title.new(ts)		local tsTitle = mw.title.new(ts)
	if tsTitle then		if tsTitle and cfg['sandbox_title'] then
	local tsSandboxTitle = mw.title.new(string.format('%s:%s/~~sandbox~~/%s', tsTitle.nsText, tsTitle.baseText, tsTitle.subpageText))		local tsSandboxTitle = mw.title.new(string.format(
			'%s:%s/%s/%s', tsTitle.nsText, tsTitle.baseText, cfg['sandbox_title'], tsTitle.subpageText))
	if tsSandboxTitle and tsSandboxTitle.exists then		if tsSandboxTitle and tsSandboxTitle.exists then
	sandboxLink = ~~string.~~format(' ~~([[~~:~~%s\|サンドボックス]])~~', tsSandboxTitle.prefixedText)		sandboxLink = format('sandboxlink', link, ':' .. tsSandboxTitle.prefixedText)
	end		end
	end		end
	tStylesLinks[i] = ~~string.format('[[:%s]]%s', ts,~~ sandboxLink or ~~'')~~		tStylesLinks[i] = sandboxLink or link
	end		end
	local tStylesList = mList.makeList('bulleted', tStylesLinks)		local tStylesList = mList.makeList('bulleted', tStylesLinks)
	boxArgs.text = ~~'この' ..~~		boxArgs.text = format(
	(mw.title.getCurrentTitle():inNamespaces(828,829) and '~~モジュール~~' or '~~テンプレート~~') ..		mw.title.getCurrentTitle():inNamespaces(828,829) and 'header-module' or 'header-template') ..
	'~~は[[mw:Help:TemplateStyles/ja\|テンプレートスタイル]]を使用しています:~~\n' .. tStylesList		'\n' .. tStylesList
	end		end
	boxArgs.type = 'notice'		boxArgs.type = 'notice'
	boxArgs.small = true		boxArgs.small = true
	boxArgs.image = '[[File:Farm-Fresh css add.svg\|32px\|alt=~~CSS~~]]'		boxArgs.image = string.format('[[File:Farm-Fresh css add.svg\|32px\|alt=%s]]', format('logo-alt'))
	return mMessageBox.main('mbox', boxArgs)		return mMessageBox.main('mbox', boxArgs)
	end		end
58行目:		70行目:
	return ''		return ''
	end		end

			local cfg = getConfig()

	local cats = {}		local cats = {}

	-- Error category		-- Error category
	if #tStyles < 1 then		if #tStyles < 1 and cfg['error_category'] then
	cats[#cats + 1] = '~~テンプレート呼び出しエラーのあるページ/Template:Uses TemplateStyles~~'		cats[#cats + 1] = cfg['error_category']
	end		end

	-- TemplateStyles category		-- TemplateStyles category
	titleObj = titleObj or mw.title.getCurrentTitle()		titleObj = titleObj or mw.title.getCurrentTitle()
	~~local subpageBlacklist = {~~
	~~doc = true,~~
	~~sandbox = true,~~
	~~sandbox2 = true,~~
	~~testcases = true~~
	}
	if (titleObj.namespace == 10 or titleObj.namespace == 828)		if (titleObj.namespace == 10 or titleObj.namespace == 828)
	and not ~~subpageBlacklist~~[titleObj.subpageText]		and not cfg['subpage_blacklist'][titleObj.subpageText]
	then		then
	local category = args.category		local category = args.category or cfg['default_category']
	if ~~not~~ category then		if category then
	~~category~~ = category ~~or 'テンプレートスタイルを利用するテンプレート'~~		cats[#cats + 1] = category
	end		end
	~~cats[#cats + 1] = category~~		if not yesno(args.noprotcat) and (cfg['protection_conflict_category'] or cfg['padlock_pattern']) then
	if not yesno(args.noprotcat) then
	local currentProt = titleObj.protectionLevels["edit"] and titleObj.protectionLevels["edit"][1] or nil		local currentProt = titleObj.protectionLevels["edit"] and titleObj.protectionLevels["edit"][1] or nil
	local addedLevelCat = false		local addedLevelCat = false
89行目:		96行目:
	local tsTitleObj = mw.title.new(ts)		local tsTitleObj = mw.title.new(ts)
	local tsProt = tsTitleObj.protectionLevels["edit"] and tsTitleObj.protectionLevels["edit"][1] or nil		local tsProt = tsTitleObj.protectionLevels["edit"] and tsTitleObj.protectionLevels["edit"][1] or nil
	if tsProt ~= currentProt and not addedLevelCat then		if cfg['protection_conflict_category'] and tsProt ~= currentProt and not addedLevelCat then
	cats[#cats + 1] = ~~"異なる保護レベルがあるテンプレートスタイル使用テンプレート"~~		addedLevelCat = true
			cats[#cats + 1] = cfg['protection_conflict_category']
	end		end
	if tsProt and not addedPadlockCat then		if cfg['padlock_pattern'] and tsProt and not addedPadlockCat then
	local content = tsTitleObj:getContent()		local content = tsTitleObj:getContent()
	if not content:find(~~"{{pp-"~~) then		if not content:find(cfg['padlock_pattern']) then
	cats[#cats + 1] = ~~"保護表示がないテンプレートスタイル使用テンプレート"~~		cats[#cats + 1] = cfg['missing_padlock_category']
	addedPadlockCat = true		addedPadlockCat = true
	end		end

mediawiki>ネイ: エラーカテゴリ変更

2020-03-31T02:42:58Z

エラーカテゴリ変更

新規ページ

-- This module implements the {{Uses TemplateStyles}} template.
local yesno = require('Module:Yesno')
local mList = require('Module:List')
local mTableTools = require('Module:TableTools')
local mMessageBox = require('Module:Message box')

local p = {}

function p.main(frame)
local origArgs = frame:getParent().args
local args = {}
for k, v in pairs(origArgs) do
v = v:match('^%s*(.-)%s*$')
if v ~= '' then
args[k] = v
end
end
return p._main(args)
end

function p._main(args)
local tStyles = mTableTools.compressSparseArray(args)
local box = p.renderBox(tStyles)
local trackingCategories = p.renderTrackingCategories(args, tStyles)
return box .. trackingCategories
end

function p.renderBox(tStyles)
local boxArgs = {}
if #tStyles < 1 then
boxArgs.text = '<strong class="error">エラー: TemplateStylesが指定されていません</strong>'
else
local tStylesLinks = {}
for i, ts in ipairs(tStyles) do
local sandboxLink = nil
local tsTitle = mw.title.new(ts)
if tsTitle then
local tsSandboxTitle = mw.title.new(string.format('%s:%s/sandbox/%s', tsTitle.nsText, tsTitle.baseText, tsTitle.subpageText))
if tsSandboxTitle and tsSandboxTitle.exists then
sandboxLink = string.format(' ([[:%s|サンドボックス]])', tsSandboxTitle.prefixedText)
end
end
tStylesLinks[i] = string.format('[[:%s]]%s', ts, sandboxLink or '')
end
local tStylesList = mList.makeList('bulleted', tStylesLinks)
boxArgs.text = 'この' ..
(mw.title.getCurrentTitle():inNamespaces(828,829) and 'モジュール' or 'テンプレート') ..
'は[[mw:Help:TemplateStyles/ja|テンプレートスタイル]]を使用しています:\n' .. tStylesList
end
boxArgs.type = 'notice'
boxArgs.small = true
boxArgs.image = '[[File:Farm-Fresh css add.svg|32px|alt=CSS]]'
return mMessageBox.main('mbox', boxArgs)
end

function p.renderTrackingCategories(args, tStyles, titleObj)
if yesno(args.nocat) then
return ''
end

local cats = {}

-- Error category
if #tStyles < 1 then
cats[#cats + 1] = 'テンプレート呼び出しエラーのあるページ/Template:Uses TemplateStyles'
end

-- TemplateStyles category
titleObj = titleObj or mw.title.getCurrentTitle()
local subpageBlacklist = {
doc = true,
sandbox = true,
sandbox2 = true,
testcases = true
}
if (titleObj.namespace == 10 or titleObj.namespace == 828)
and not subpageBlacklist[titleObj.subpageText]
then
local category = args.category
if not category then
category = category or 'テンプレートスタイルを利用するテンプレート'
end
cats[#cats + 1] = category
if not yesno(args.noprotcat) then
local currentProt = titleObj.protectionLevels["edit"] and titleObj.protectionLevels["edit"][1] or nil
local addedLevelCat = false
local addedPadlockCat = false
for i, ts in ipairs(tStyles) do
local tsTitleObj = mw.title.new(ts)
local tsProt = tsTitleObj.protectionLevels["edit"] and tsTitleObj.protectionLevels["edit"][1] or nil
if tsProt ~= currentProt and not addedLevelCat then
cats[#cats + 1] = "異なる保護レベルがあるテンプレートスタイル使用テンプレート"
end
if tsProt and not addedPadlockCat then
local content = tsTitleObj:getContent()
if not content:find("{{pp-") then
cats[#cats + 1] = "保護表示がないテンプレートスタイル使用テンプレート"
addedPadlockCat = true
end
end
end
end
end
for i, cat in ipairs(cats) do
cats[i] = string.format('[[Category:%s]]', cat)
end
return table.concat(cats)
end

return p

モジュール:Uses TemplateStyles - 版の履歴

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

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

2021年1月2日 (土) 20:30にmediawiki>Ppperyによる

mediawiki>ネイ: エラーカテゴリ変更

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

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