モジュール:Banner shell

require('strict')
local p = {}
local sandbox -- = '/sandbox' -- 本番環境にデプロイする際は、この定義を必ずコメントアウトすること
local yesno = require('Module:Yesno')

-- バナーシェル全体を生成する共通関数
-- header: ヘッダー行（評価・アイコンなど）
-- content: 中身（各WikiProjectバナー）
-- collapsed: 折りたたみ状態かどうか
-- class: 追加CSSクラス
local shell = function(frame, header, content, collapsed, class)
	-- 必要なTemplateStylesを読み込む
	local styles = frame:extensionTag('templatestyles', '', {src = 'Module:Message box/tmbox.css'})
		.. frame:extensionTag(
			'templatestyles',
			'',
			{src = 'Module:Banner shell' .. (sandbox or '') .. '/styles.css'}
		)

	local content_row
	-- 中身がある場合のみ、折りたたみ可能な行を作成
	if content then
		content_row = mw.html.create('tr')
			:tag('td')
			:attr('colspan', '2')
			:addClass('banner-shell-inner')
			:addClass('outercollapse')
			:wikitext(content)
			:done()
	end

	-- バナー全体を包むテーブル
	local holder = mw.html.create('table')
		:attr('role', 'presentation')
		:addClass('tmbox')
		:addClass('tmbox-notice')
		:addClass('banner-shell')
		:addClass(class) -- 追加クラスを許可
		:addClass(content and 'mw-collapsible' or nil)
		:addClass(collapsed and 'mw-collapsed' or nil)
		:node(header)
		:node(content_row)

	return styles .. tostring(holder)
end

-- {{Banner holder}} テンプレート用のエントリーポイント
p.banner_holder = function(frame)
	local args = require('Module:Arguments').getArgs(
		frame,
		{wrappers = {'Template:Banner holder'}}
	)

	-- 左側に表示される画像
	local image = '[[File:' .. (args.image or 'NewFavicon icon.svg')
		.. '|' .. (args.size or '24') .. 'px'
		.. ((args.image_link or not args.image) and '|link=' .. (args.image_link or '') or '')
		.. '|alt=' .. (args.alt or '') .. ']]'

	local image_cell = mw.html.create('td')
		:addClass('mbox-image')
		:wikitext(image)

	-- テキスト部分（バナーの見出し）
	local text_cell = mw.html.create('td')
		:addClass('mbox-text')
		:addClass('banner-shell-header')
		:tag('span')
			:addClass('nowrap')
			:css('float', 'left')
			:wikitext(string.rep(' ', 10))
			:done()
		:wikitext(args.text or 'Other talk page banners')

	local header = mw.html.create('tr')
		:node(image_cell)
		:node(text_cell)

	return shell(frame, header, args[1], yesno(args.collapsed))
end

-- 同じWikiProjectバナーが重複していないかを検出
-- 重複していた場合は、そのプロジェクト名を返す
local DuplicateBanners = function(text)
	local capture = '<span class="wpb%-project">([^<>]*)</span>'
	local banners = {}
	for project in text:gmatch(capture) do
		if banners[project] == true then
			return project
		end
		banners[project] = true
	end
end

-- {{Banner shell}} 本体
p.banner_shell = function(frame)
	local cfg = mw.loadData('Module:Banner shell/config' .. (sandbox or ''))
	local args = require('Module:Arguments').getArgs(
		frame,
		{wrappers = {cfg.template}}
	)

	-- デモページ指定があればそれを使用、なければ現在のページ
	local title = args.demo_page
		and mw.title.new(args.demo_page)
		or mw.title.getCurrentTitle()

	-- ページ種別（記事、曖昧さ回避、リダイレクト等）を判定
	local pagetype = require('Module:Pagetype')._main{
		page = title.prefixedText,
		dab = cfg.page_types.dab,
		sia = 'set index article',
		soft_redirect = cfg.page_types.soft_redirect,
		nonexistent = cfg.page_types.nonexistent,
		timedtext = cfg.page_types.timedtext,
		defaultns = 'extended'
	}

	local lang = mw.language.getContentLanguage()

	-- クラス（Stub, Start, C, B, GA, FA など）を計算
	local classmask =
		require('Module:WikiProject banner' .. (sandbox or '')).class_mask
	local class = classmask(
		args.class or '',
		title.talkPageTitle,
		false,
		pagetype
	)

	-- デモ表示かどうか
	local demo = not yesno(args.category or true, true) or args.demo_page
	local out = {}

	-- カテゴリを追加するための内部関数
	local addCategory = function(category, sort_key)
		if not demo and title.isTalkPage then
			local category_title = mw.title.new('Category:' .. category)
			table.insert(
				out,
				'[['
					.. category_title.prefixedText
					.. (sort_key and ('|' .. sort_key) or '')
					.. ']]'
			)
		end
	end

	-- デモ表示時はページ種別を article に固定
	if demo and not args.demo_page then
		pagetype = 'article'
	end

	-- BLP（存命人物）関連処理
	local blp = args.blp and args.blp:lower()
	if yesno(blp) or blp == 'activepol' then
		table.insert(out, frame:expandTemplate{
			title = cfg.blp_template.blp,
			args = {activepol = blp == 'activepol' and 'yes'}
		})
	elseif blp == 'other' then
		table.insert(out, frame:expandTemplate{
			title = cfg.blp_template.blpo
		})
	end

	-- Vital articles（重要記事）処理
	local vital
	if yesno(args.vital) then
		-- 記事名の先頭文字を取得
		local page =
			mw.ustring.upper(
				mw.ustring.sub(title.subjectPageTitle.text, 1, 1)
			)
		local codepoint = mw.ustring.codepoint(page, 1, 1)

		-- A–Z 以外は others に分類
		if codepoint < 65 or codepoint > 90 then
			page = 'others'
		end

		local data_page =
			mw.title.new('Wikipedia:Vital articles/data/' .. page .. '.json')

		if data_page.exists then
			local index = title.subjectPageTitle.text
			-- 数値ページの場合は数値に変換（loadJsonData対策）
			index =
				tostring(tonumber(index)) == index
				and tonumber(index)
				or index

			local data =
				mw.loadJsonData(data_page.fullText)[index]

			if data then
				local level = data.level and tostring(data.level)
				if level and data.topic then
					-- レベル別Vital記事へのリンクを生成
					local link =
						'Wikipedia:Vital articles/Level/' .. level

					if level == '4' or level == '5' then
						link = link .. '/' .. data.topic
					end
					if data.sublist then
						link = link .. '/' .. data.sublist
					end
					if data.section then
						link = link .. '#' .. data.section
					end

					-- リンクが存在しない場合は追跡カテゴリを追加
					if not mw.title.new(link).exists then
						addCategory(cfg.vital.attention, 'L')
					end

					vital = cfg.vital.with_level:format(link, level)
				else
					vital = cfg.vital.without_level
				end

				-- Vital記事用カテゴリの付与
				for _, cat in ipairs(cfg.vital.categories) do
					if cat:find('_CLASS') and (class == 'NA' or class == '') then
						addCategory(
							cfg.vital.attention,
							class == 'NA' and 'N' or 'U'
						)
					elseif level == nil then
						addCategory(cfg.vital.attention, 'V')
					elseif data.topic == nil then
						addCategory(cfg.vital.attention, 'T')
					else
						local category = cat
							:gsub('_CLASS', class .. '-Class')
							:gsub('_LEVEL', level)
							:gsub('_TOPIC', data.topic)
						addCategory(category)
					end
				end
				addCategory(cfg.vital.all)
			else
				addCategory(cfg.vital.not_listed)
			end
		end
	end

	-- 評価クラスごとの表示内容
	local text, icon_image, icon_str
	if class == 'NA' then
		icon_image = cfg.icons.type[pagetype] or cfg.icons.default
		icon_str =
			pagetype == 'page'
			and 'Non-article page'
			or lang:ucfirst(pagetype)
		text = {cfg.rating.not_required:format(vital or pagetype)}

	elseif class == '' then
		icon_image = cfg.icons.unassessed
		icon_str = 'Unassessed article'
		text = {cfg.rating.not_yet:format(vital or pagetype)}
		addCategory('All unassessed articles')

	else
		icon_image =
			cfg.icons.quality[class] or cfg.icons.unassessed
		icon_str = class .. '-Class ' .. pagetype
		text = {cfg.rating.rated:format(vital or pagetype, class)}
		frame:preprocess(
			'{{#assessment:Project-independent assessment|' .. class .. '}}'
		)
	end

	-- アイコン画像
	local icon = string.format(
		'[[File:%s|%s|35px|class=noviewer|alt=]]',
		icon_image,
		icon_str
	)

	table.insert(text, ' ' .. cfg.rating.scale)

	-- WikiProjectバナーがある場合
	if args[1] then
		table.insert(text, '<br>' .. cfg.project.interest .. ' ')
		table.insert(
			text,
			yesno(args.collapsed)
				and cfg.project.collapsed
				or cfg.project.uncollapsed
		)

		-- 重複バナー検出
		local duplicate_cat = DuplicateBanners(args[1])
		if duplicate_cat and title.isTalkPage then
			addCategory(cfg.tracking.duplicate, duplicate_cat)
		end

	-- WikiProjectなし・Vitalなし・評価済みの場合
	elseif not yesno(args.vital) and class ~= '' then
		addCategory(
			class
				.. '-Class '
				.. (class == 'NA' and 'pages' or 'articles')
		)
	end

	-- ヘッダー行を作成
	local header = mw.html.create('tr')
		:tag('td')
			:addClass('assess')
			:wikitext(icon)
			:done()
		:tag('td')
			:addClass('banner-shell-header')
			:css('text-align', 'left')
			:css('font-weight', 'normal')
			:wikitext(table.concat(text))
			:done()

	table.insert(
		out,
		shell(frame, header, args[1], yesno(args.collapsed), 'wpbs')
	)

	-- DEFAULTSORT
	if args.listas then
		table.insert(
			out,
			frame:preprocess('{{DEFAULTSORT:' .. args.listas .. '}}')
		)
	end

	-- 追跡カテゴリ（未知パラメータ等）
	if not demo then
		local tracking =
			require('Module:Check for unknown parameters')._check({
				unknown = cfg.tracking.unknown,
				preview = cfg.tracking.preview,
				'1', 'blp', 'category', 'class',
				'collapsed', 'demo_page', 'listas', 'vital'
			}, frame:getParent().args)

		table.insert(out, tracking)

		if args.category and yesno(args.category) ~= false then
			addCategory(cfg.tracking.invalid, 'category')
		end
		if args.collapsed and yesno(args.collapsed) == nil then
			addCategory(cfg.tracking.invalid, 'collapsed')
		end
		if yesno(blp) == nil
			and blp ~= nil
			and blp ~= 'other'
			and blp ~= 'activepol'
		then
			addCategory(cfg.tracking.invalid, 'blp')
		end
		if pagetype == 'article'
			and args.class
			and class == ''
		then
			addCategory(cfg.tracking.invalid, 'Zclass')
		end
	end

	return table.concat(out)
end

return p