求真百科歡迎當事人提供第一手真實資料,洗刷冤屈,終結網路霸凌。

「模块:Message box」修訂間的差異檢視原始碼檢視歷史

事實揭露 揭密真相
前往: 導覽搜尋
mediawiki1>MSGJ
(code requested by User:Danski454 to fix demospace feature)
(导入1个版本)
 
(未顯示由 2 位使用者於中間所作的 5 次修訂)
行 1: 行 1:
-- This is a meta-module for producing message box templates, including
+
-- This is a meta-module for producing message box templates, including {{mbox}}, {{ambox}}, {{imbox}}, {{tmbox}}, {{ombox}}, {{cmbox}} and {{fmbox}}.
-- {{mbox}}, {{ambox}}, {{imbox}}, {{tmbox}}, {{ombox}}, {{cmbox}} and {{fmbox}}.
 
  
-- Load necessary modules.
+
-- Require necessary modules.
require('Module:No globals')
+
local getArgs = require('Module:Arguments').getArgs
local getArgs
+
local categoryHandler = require('Module:Category handler').main
 
local yesno = require('Module:Yesno')
 
local yesno = require('Module:Yesno')
 +
 +
-- Load the configuration page.
 +
local cfgTables = mw.loadData('Module:Message box/configuration')
  
 
-- Get a language object for formatDate and ucfirst.
 
-- Get a language object for formatDate and ucfirst.
 
local lang = mw.language.getContentLanguage()
 
local lang = mw.language.getContentLanguage()
  
-- Define constants
+
-- Set aliases for often-used functions to reduce table lookups.
local CONFIG_MODULE = 'Module:Message box/configuration'
+
local format = mw.ustring.format
local DEMOSPACES = {talk = 'tmbox', image = 'imbox', file = 'imbox', category = 'cmbox', article = 'ambox', main = 'ambox'}
+
local tinsert = table.insert
 +
local tconcat = table.concat
 +
local trim = mw.text.trim
  
 
--------------------------------------------------------------------------------
 
--------------------------------------------------------------------------------
行 18: 行 22:
 
--------------------------------------------------------------------------------
 
--------------------------------------------------------------------------------
  
local function getTitleObject(...)
+
local function getTitleObject(page, ...)
-- Get the title object, passing the function through pcall
+
if type(page) == 'string' then
-- in case we are over the expensive function count limit.
+
-- Get the title object, passing the function through pcall  
local success, title = pcall(mw.title.new, ...)
+
-- in case we are over the expensive function count limit.
if success then
+
local success, title = pcall(mw.title.new, page, ...)
return title
+
if success then
 +
return title
 +
end
 
end
 
end
 
end
 
end
行 38: 行 44:
 
local ret = {}
 
local ret = {}
 
for k in pairs(vals) do
 
for k in pairs(vals) do
table.insert(ret, k)
+
tinsert(ret, k)
 
end
 
end
 
table.sort(ret)
 
table.sort(ret)
行 49: 行 55:
 
local num = mw.ustring.match(tostring(k), '^' .. prefix .. '([1-9]%d*)$')
 
local num = mw.ustring.match(tostring(k), '^' .. prefix .. '([1-9]%d*)$')
 
if num then
 
if num then
table.insert(nums, tonumber(num))
+
tinsert(nums, tonumber(num))
 
end
 
end
 
end
 
end
行 60: 行 66:
 
--------------------------------------------------------------------------------
 
--------------------------------------------------------------------------------
  
local MessageBox = {}
+
local box = {}
MessageBox.__index = MessageBox
+
box.__index = box
  
function MessageBox.new(boxType, args, cfg)
+
function box.new()
args = args or {}
 
 
local obj = {}
 
local obj = {}
 +
setmetatable(obj, box)
 +
return obj
 +
end
  
-- Set the title object and the namespace.
+
function box.getNamespaceId(ns)
obj.title = getTitleObject(args.page) or mw.title.getCurrentTitle()
+
if not ns then return end
 +
if type(ns) == 'string' then
 +
ns = lang:ucfirst(mw.ustring.lower(ns))
 +
if ns == 'Main' then
 +
ns = 0
 +
end
 +
end
 +
local nsTable = mw.site.namespaces[ns]
 +
if nsTable then
 +
return nsTable.id
 +
end
 +
end
  
-- Set the config for our box type.
+
function box.getMboxType(nsid)
obj.cfg = cfg[boxType]
+
-- Gets the mbox type from a namespace number.
if not obj.cfg then
+
if nsid == 0 then
local ns = obj.title.namespace
+
return 'ambox' -- main namespace
-- boxType is "mbox" or invalid input
+
elseif nsid == 6 then
if args.demospace and args.demospace ~= '' then
+
return 'imbox' -- file namespace
-- implement demospace parameter of mbox
+
elseif nsid == 14 then
local demospace = string.lower(args.demospace)
+
return 'cmbox' -- category namespace
if DEMOSPACES[demospace] then
+
else
-- use template from DEMOSPACES
+
local nsTable = mw.site.namespaces[nsid]
obj.cfg = cfg[DEMOSPACES[demospace]]
+
if nsTable and nsTable.isTalk then
elseif string.find( demospace, 'talk' ) then
+
return 'tmbox' -- any talk namespace
-- demo as a talk page
 
obj.cfg = cfg.tmbox
 
else
 
-- default to ombox
 
obj.cfg = cfg.ombox
 
end
 
elseif ns == 0 then
 
obj.cfg = cfg.ambox -- main namespace
 
elseif ns == 6 then
 
obj.cfg = cfg.imbox -- file namespace
 
elseif ns == 14 then
 
obj.cfg = cfg.cmbox -- category namespace
 
 
else
 
else
local nsTable = mw.site.namespaces[ns]
+
return 'ombox' -- other namespaces or invalid input
if nsTable and nsTable.isTalk then
 
obj.cfg = cfg.tmbox -- any talk namespace
 
else
 
obj.cfg = cfg.ombox -- other namespaces or invalid input
 
end
 
 
end
 
end
 
end
 
end
 +
end
  
-- Set the arguments, and remove all blank arguments except for the ones
+
function box:addCat(ns, cat, sort)
-- listed in cfg.allowBlankParams.
+
if type(cat) ~= 'string' then return end
do
+
local nsVals = {'main', 'template', 'all'}
local newArgs = {}
+
local tname
for k, v in pairs(args) do
+
for i, val in ipairs(nsVals) do
if v ~= '' then
+
if ns == val then
newArgs[k] = v
+
tname = ns .. 'Cats'
end
 
 
end
 
end
for i, param in ipairs(obj.cfg.allowBlankParams or {}) do
+
end
newArgs[param] = args[param]
+
if not tname then
 +
for i, val in ipairs(nsVals) do
 +
nsVals[i] = format('"%s"', val)
 
end
 
end
obj.args = newArgs
+
error('無效的ns參數傳送到box:addCat;有效的數值為' .. mw.text.listToText(nsVals, '、', '或'))
 
end
 
end
 +
self[tname] = self[tname] or {}
 +
if type(sort) == 'string' then
 +
tinsert(self[tname], format('[[Category:%s|%s]]', cat, sort))
 +
else
 +
tinsert(self[tname], format('[[Category:%s]]', cat))
 +
end
 +
end
  
-- Define internal data structure.
+
function box:addClass(class)
obj.categories = {}
+
if type(class) ~= 'string' then return end
obj.classes = {}
+
self.classes = self.classes or {}
-- For lazy loading of [[Module:Category handler]].
+
tinsert(self.classes, class)
obj.hasCategories = false
+
end
  
return setmetatable(obj, MessageBox)
+
function box:setTitle(args)
 +
-- Get the title object and the namespace.
 +
self.pageTitle = getTitleObject(args.page ~= '' and args.page)
 +
self.title = self.pageTitle or mw.title.getCurrentTitle()
 +
self.demospace = args.demospace ~= '' and args.demospace or nil
 +
self.nsid = box.getNamespaceId(self.demospace) or self.title.namespace
 
end
 
end
  
function MessageBox:addCat(ns, cat, sort)
+
function box:getConfig(boxType)
if not cat then
+
-- Get the box config data from the data page.
return nil
+
if boxType == 'mbox' then
 +
boxType = box.getMboxType(self.nsid)
 
end
 
end
if sort then
+
local cfg = cfgTables[boxType]
cat = string.format('[[Category:%s|%s]]', cat, sort)
+
if not cfg then
else
+
local boxTypes = {}
cat = string.format('[[Category:%s]]', cat)
+
for k, v in pairs(dataTables) do
 +
tinsert(boxTypes, format('"%s"', k))
 +
end
 +
tinsert(boxTypes, '"mbox"')
 +
error(format(' 無效的訊息框類型「%s」;有效的類型為%s', tostring(boxType), mw.text.listToText(boxTypes)), 2)
 
end
 
end
self.hasCategories = true
+
return cfg
self.categories[ns] = self.categories[ns] or {}
 
table.insert(self.categories[ns], cat)
 
 
end
 
end
  
function MessageBox:addClass(class)
+
function box:removeBlankArgs(cfg, args)
if not class then
+
-- Only allow blank arguments for the parameter names listed in cfg.allowBlankParams.
return nil
+
local newArgs = {}
 +
for k, v in pairs(args) do
 +
if v ~= '' then
 +
newArgs[k] = v
 +
end
 +
end
 +
for i, param in ipairs(cfg.allowBlankParams or {}) do
 +
newArgs[param] = args[param]
 
end
 
end
table.insert(self.classes, class)
+
return newArgs
 
end
 
end
  
function MessageBox:setParameters()
+
function box:setBoxParameters(cfg, args)
local args = self.args
 
local cfg = self.cfg
 
 
 
 
-- Get type data.
 
-- Get type data.
 
self.type = args.type
 
self.type = args.type
 
local typeData = cfg.types[self.type]
 
local typeData = cfg.types[self.type]
self.invalidTypeError = cfg.showInvalidTypeError
+
self.invalidTypeError = cfg.showInvalidTypeError and self.type and not typeData and true or false
and self.type
 
and not typeData
 
 
typeData = typeData or cfg.types[cfg.default]
 
typeData = typeData or cfg.types[cfg.default]
 
self.typeClass = typeData.class
 
self.typeClass = typeData.class
行 164: 行 185:
  
 
-- Find if the box has been wrongly substituted.
 
-- Find if the box has been wrongly substituted.
self.isSubstituted = cfg.substCheck and args.subst == 'SUBST'
+
if cfg.substCheck and args.subst == 'SUBST' then
 +
self.isSubstituted = true
 +
end
  
 
-- Find whether we are using a small message box.
 
-- Find whether we are using a small message box.
self.isSmall = cfg.allowSmall and (
+
if cfg.allowSmall and (
 
cfg.smallParam and args.small == cfg.smallParam
 
cfg.smallParam and args.small == cfg.smallParam
 
or not cfg.smallParam and yesno(args.small)
 
or not cfg.smallParam and yesno(args.small)
 
)
 
)
 +
then
 +
self.isSmall = true
 +
else
 +
self.isSmall = false
 +
end
  
 
-- Add attributes, classes and styles.
 
-- Add attributes, classes and styles.
self.id = args.id
+
if cfg.allowId then
self.name = args.name
+
self.id = args.id
if self.name then
+
self.name = args.name
self:addClass('box-' .. string.gsub(self.name,' ','_'))
+
if self.name then
end
+
self:addClass('box-' .. string.gsub(self.name,' ','_'))
if yesno(args.plainlinks) ~= false then
+
end
self:addClass('plainlinks')
 
 
end
 
end
 +
self:addClass(cfg.usePlainlinksParam and yesno(args.plainlinks or true) and 'plainlinks')
 
for _, class in ipairs(cfg.classes or {}) do
 
for _, class in ipairs(cfg.classes or {}) do
 
self:addClass(class)
 
self:addClass(class)
行 186: 行 214:
 
if self.isSmall then
 
if self.isSmall then
 
self:addClass(cfg.smallClass or 'mbox-small')
 
self:addClass(cfg.smallClass or 'mbox-small')
 +
end
 +
if yesno(args.hidden) then
 +
self:addClass('infobox editsection')
 
end
 
end
 
self:addClass(self.typeClass)
 
self:addClass(self.typeClass)
 
self:addClass(args.class)
 
self:addClass(args.class)
 
self.style = args.style
 
self.style = args.style
self.attrs = args.attrs
 
  
 
-- Set text style.
 
-- Set text style.
 
self.textstyle = args.textstyle
 
self.textstyle = args.textstyle
  
-- Find if we are on the template page or not. This functionality is only
+
-- Find if we are on the template page or not. This functionality is only used if useCollapsibleTextFields is set,
-- used if useCollapsibleTextFields is set, or if both cfg.templateCategory
+
-- or if both cfg.templateCategory and cfg.templateCategoryRequireName are set.
-- and cfg.templateCategoryRequireName are set.
 
 
self.useCollapsibleTextFields = cfg.useCollapsibleTextFields
 
self.useCollapsibleTextFields = cfg.useCollapsibleTextFields
if self.useCollapsibleTextFields
+
if self.useCollapsibleTextFields or cfg.templateCategory and cfg.templateCategoryRequireName then
or cfg.templateCategory
+
self.name = args.name
and cfg.templateCategoryRequireName
 
then
 
 
if self.name then
 
if self.name then
local templateName = mw.ustring.match(
+
local templateName = mw.ustring.match(self.name, '^[tT][eE][mM][pP][lL][aA][tT][eE][%s_]*:[%s_]*(.*)$') or self.name
self.name,
 
'^[tT][eE][mM][pP][lL][aA][tT][eE][%s_]*:[%s_]*(.*)$'
 
) or self.name
 
 
templateName = 'Template:' .. templateName
 
templateName = 'Template:' .. templateName
 
self.templateTitle = getTitleObject(templateName)
 
self.templateTitle = getTitleObject(templateName)
 
end
 
end
self.isTemplatePage = self.templateTitle
+
self.isTemplatePage = self.templateTitle and mw.title.equals(self.title, self.templateTitle) or false
and mw.title.equals(self.title, self.templateTitle)
 
 
end
 
end
+
 
-- Process data for collapsible text fields. At the moment these are only
+
-- Process data for collapsible text fields. At the moment these are only used in {{ambox}}.
-- used in {{ambox}}.
 
 
if self.useCollapsibleTextFields then
 
if self.useCollapsibleTextFields then
 
-- Get the self.issue value.
 
-- Get the self.issue value.
行 224: 行 246:
 
local sect
 
local sect
 
if args.sect == '' then
 
if args.sect == '' then
sect = 'This ' .. (cfg.sectionDefault or 'page')
+
sect = ' ' .. (cfg.sectionDefault or ' 頁面')
 
elseif type(args.sect) == 'string' then
 
elseif type(args.sect) == 'string' then
sect = 'This ' .. args.sect
+
sect = ' ' .. args.sect
 
end
 
end
 
local issue = args.issue
 
local issue = args.issue
行 233: 行 255:
 
text = type(text) == 'string' and text or nil
 
text = type(text) == 'string' and text or nil
 
local issues = {}
 
local issues = {}
table.insert(issues, sect)
+
tinsert(issues, sect)
table.insert(issues, issue)
+
tinsert(issues, issue)
table.insert(issues, text)
+
tinsert(issues, text)
self.issue = table.concat(issues, ' ')
+
self.issue = tconcat(issues)
 
end
 
end
  
 
-- Get the self.talk value.
 
-- Get the self.talk value.
 
local talk = args.talk
 
local talk = args.talk
-- Show talk links on the template page or template subpages if the talk
+
if talk == '' -- Show talk links on the template page or template subpages if the talk parameter is blank.
-- parameter is blank.
+
and self.templateTitle  
if talk == ''
+
and (mw.title.equals(self.templateTitle, self.title) or self.title:isSubpageOf(self.templateTitle))
and self.templateTitle
 
and (
 
mw.title.equals(self.templateTitle, self.title)
 
or self.title:isSubpageOf(self.templateTitle)
 
)
 
 
then
 
then
 
talk = '#'
 
talk = '#'
行 255: 行 272:
 
end
 
end
 
if talk then
 
if talk then
-- If the talk value is a talk page, make a link to that page. Else
+
-- If the talk value is a talk page, make a link to that page. Else assume that it's a section heading,
-- assume that it's a section heading, and make a link to the talk
+
-- and make a link to the talk page of the current page with that section heading.
-- page of the current page with that section heading.
 
 
local talkTitle = getTitleObject(talk)
 
local talkTitle = getTitleObject(talk)
 
local talkArgIsTalkPage = true
 
local talkArgIsTalkPage = true
 
if not talkTitle or not talkTitle.isTalkPage then
 
if not talkTitle or not talkTitle.isTalkPage then
 
talkArgIsTalkPage = false
 
talkArgIsTalkPage = false
talkTitle = getTitleObject(
+
talkTitle = getTitleObject(self.title.text, mw.site.namespaces[self.title.namespace].talk.id)
self.title.text,
 
mw.site.namespaces[self.title.namespace].talk.id
 
)
 
 
end
 
end
 
if talkTitle and talkTitle.exists then
 
if talkTitle and talkTitle.exists then
local talkText = 'Relevant discussion may be found on'
+
local talkText = ' 相關討論可見於'
 
if talkArgIsTalkPage then
 
if talkArgIsTalkPage then
talkText = string.format(
+
talkText = format('%s[[%s|%s]].', talkText, talk, talkTitle.prefixedText)
'%s [[%s|%s]].',
 
talkText,
 
talk,
 
talkTitle.prefixedText
 
)
 
 
else
 
else
talkText = string.format(
+
talkText = format('%s[[%s#%s| 討論頁]].', talkText, talkTitle.prefixedText, talk)
'%s the [[%s#%s|talk page]].',
 
talkText,
 
talkTitle.prefixedText,
 
talk
 
)
 
 
end
 
end
 
self.talk = talkText
 
self.talk = talkText
行 289: 行 292:
  
 
-- Get other values.
 
-- Get other values.
self.fix = args.fix ~= '' and args.fix or nil
 
 
local date
 
local date
 
if args.date and args.date ~= '' then
 
if args.date and args.date ~= '' then
 
date = args.date
 
date = args.date
elseif args.date == '' and self.isTemplatePage then
+
elseif args.time == '' and self.isTemplatePage then
date = lang:formatDate('F Y')
+
date = lang:formatDate('Y 年n月j日')
 +
elseif args.time and args.time ~= '' then
 +
date = lang:formatDate('Y年n月j日', args.time)
 +
end
 +
if date then
 +
local ok, tempdate = pcall(lang.formatDate, lang, 'Y年n月j日', date) -- 正規化日期
 +
if ok then
 +
date = tempdate
 +
end
 
end
 
end
 
if date then
 
if date then
 
self.date = string.format(" <small class='date-container'>''(<span class='date'>%s</span>)''</small>", date)
 
self.date = string.format(" <small class='date-container'>''(<span class='date'>%s</span>)''</small>", date)
 +
end
 +
if args.fix and args.fix ~= '' then
 +
self.fix = format("<br /><small>%s</small>", args.fix)
 +
else
 +
self.fix = ''
 
end
 
end
 
self.info = args.info
 
self.info = args.info
if yesno(args.removalnotice) then
 
self.removalNotice = cfg.removalNotice
 
end
 
 
end
 
end
  
-- Set the non-collapsible text field. At the moment this is used by all box
+
-- Set the non-collapsible text field. At the moment this is used by all box types other than ambox,
-- types other than ambox, and also by ambox when small=yes.
+
-- and also by ambox when small=yes.
 
if self.isSmall then
 
if self.isSmall then
 
self.text = args.smalltext or args.text
 
self.text = args.smalltext or args.text
行 317: 行 329:
  
 
-- General image settings.
 
-- General image settings.
self.imageCellDiv = not self.isSmall and cfg.imageCellDiv
+
self.imageCellDiv = not self.isSmall and cfg.imageCellDiv and true or false
 
self.imageEmptyCell = cfg.imageEmptyCell
 
self.imageEmptyCell = cfg.imageEmptyCell
 
if cfg.imageEmptyCellStyle then
 
if cfg.imageEmptyCellStyle then
行 330: 行 342:
 
self.imageLeft = imageLeft
 
self.imageLeft = imageLeft
 
if not imageLeft then
 
if not imageLeft then
local imageSize = self.isSmall
+
local imageSize = self.isSmall and (cfg.imageSmallSize or '30x30px') or '40x40px'
and (cfg.imageSmallSize or '30x30px')
+
self.imageLeft = format('[[File:%s|%s|link=|alt=]]', self.typeImage or 'Imbox notice.png', imageSize)
or '40x40px'
 
self.imageLeft = string.format('[[File:%s|%s|link=|alt=]]', self.typeImage
 
or 'Imbox notice.png', imageSize)
 
 
end
 
end
 
end
 
end
行 343: 行 352:
 
self.imageRight = imageRight
 
self.imageRight = imageRight
 
end
 
end
end
 
  
function MessageBox:setMainspaceCategories()
+
-- Add mainspace categories. At the moment these are only used in {{ambox}}.
local args = self.args
+
if cfg.allowMainspaceCategories then
local cfg = self.cfg
+
if args.cat then
 
+
args.cat1 = args.cat
if not cfg.allowMainspaceCategories then
+
end
return nil
+
self.catNums = getArgNums(args, 'cat')
end
+
if args.category then
 
+
args.category1 = args.category
local nums = {}
+
end
for _, prefix in ipairs{'cat', 'category', 'all'} do
+
self.categoryNums = getArgNums(args, 'category')
args[prefix .. '1'] = args[prefix]
+
if args.all then
nums = union(nums, getArgNums(args, prefix))
+
args.all1 = args.all
end
+
end
 
+
self.allNums = getArgNums(args, 'all')
-- The following is roughly equivalent to the old {{Ambox/category}}.
+
self.categoryParamNums = union(self.catNums, self.categoryNums)
local date = args.date
+
self.categoryParamNums = union(self.categoryParamNums, self.allNums)
date = type(date) == 'string' and date
+
-- The following is roughly equivalent to the old {{Ambox/category}}.
local preposition = 'from'
+
local date
for _, num in ipairs(nums) do
+
local sortDay
local mainCat = args['cat' .. tostring(num)]
+
local dayName = {
or args['category' .. tostring(num)]
+
[1] = '㏠',
local allCat = args['all' .. tostring(num)]
+
[2] = '㏡',
mainCat = type(mainCat) == 'string' and mainCat
+
[3] = '㏢',
allCat = type(allCat) == 'string' and allCat
+
[4] = '㏣',
if mainCat and date and date ~= '' then
+
[5] = '㏤',
local catTitle = string.format('%s %s %s', mainCat, preposition, date)
+
[6] = '㏥',
self:addCat(0, catTitle)
+
[7] = '㏦',
catTitle = getTitleObject('Category:' .. catTitle)
+
[8] = '㏧',
if not catTitle or not catTitle.exists then
+
[9] = '㏨',
self:addCat(0, 'Articles with invalid date parameter in template')
+
[10] = '㏩',
 +
[11] = '㏪',
 +
[12] = '㏫',
 +
[13] = '㏬',
 +
[14] = '㏭',
 +
[15] = ' ',
 +
[16] = ' ',
 +
[17] = '㏰',
 +
[18] = '㏱',
 +
[19] = ' ',
 +
[20] = '㏳',
 +
[21] = ' ',
 +
[22] = '㏵',
 +
[23] = '㏶',
 +
[24] = ' ',
 +
[25] = '㏸',
 +
[26] = '㏹',
 +
[27] = '㏺',
 +
[28] = ' ',
 +
[29] = '㏼',
 +
[30] = '㏽',
 +
[31] = ' '
 +
}
 +
if args.date and args.date ~= '' then
 +
date = args.date
 +
local ok, tempdate = pcall(lang.formatDate, lang, 'Y年n月', date) -- 正規化日期
 +
if ok then
 +
date = tempdate
 
end
 
end
elseif mainCat and (not date or date == '') then
+
elseif args.time and args.time ~= '' then
self:addCat(0, mainCat)
+
date = lang:formatDate('Y年n月', args.time)
 +
sortDay = lang:formatDate('j', args.time)
 +
sortDay = tonumber(sortDay)
 +
sortDay = dayName[sortDay]
 
end
 
end
if allCat then
+
date = type(date) == 'string' and date
self:addCat(0, allCat)
+
local preposition = '自'
 +
for _, num in ipairs(self.categoryParamNums) do
 +
local mainCat = args['cat' .. tostring(num)] or args['category' .. tostring(num)]
 +
local allCat = args['all' .. tostring(num)]
 +
mainCat = type(mainCat) == 'string' and mainCat
 +
allCat = type(allCat) == 'string' and allCat
 +
if mainCat and date and date ~= '' then
 +
local catTitle = format('%s%s%s', preposition, date, mainCat)
 +
if sortDay then
 +
self:addCat('main', catTitle, sortDay)
 +
else
 +
self:addCat('main', catTitle)
 +
end
 +
catTitle = getTitleObject('Category:' .. catTitle)
 +
if not catTitle or not catTitle.exists then
 +
self:addCat('main', '模板中使用无效日期参数的条目')
 +
end
 +
elseif mainCat and (not date or date == '') then
 +
self:addCat('main', mainCat)
 +
end
 +
if allCat then
 +
self:addCat('main', allCat)
 +
end
 
end
 
end
 
end
 
end
end
 
 
function MessageBox:setTemplateCategories()
 
local args = self.args
 
local cfg = self.cfg
 
  
-- Add template categories.
+
-- Add template-namespace categories.
 
if cfg.templateCategory then
 
if cfg.templateCategory then
 
if cfg.templateCategoryRequireName then
 
if cfg.templateCategoryRequireName then
 
if self.isTemplatePage then
 
if self.isTemplatePage then
self:addCat(10, cfg.templateCategory)
+
self:addCat('template', cfg.templateCategory)
 
end
 
end
 
elseif not self.title.isSubpage then
 
elseif not self.title.isSubpage then
self:addCat(10, cfg.templateCategory)
+
self:addCat('template', cfg.templateCategory)
 
end
 
end
 
end
 
end
  
-- Add template error categories.
+
-- Add template error category.
 
if cfg.templateErrorCategory then
 
if cfg.templateErrorCategory then
 
local templateErrorCategory = cfg.templateErrorCategory
 
local templateErrorCategory = cfg.templateErrorCategory
行 423: 行 478:
 
end
 
end
 
end
 
end
self:addCat(10, templateCat, templateSort)
+
self:addCat('template', templateCat, templateSort)
 
end
 
end
end
 
  
function MessageBox:setAllNamespaceCategories()
+
-- Categories for all namespaces.
-- Set categories for all namespaces.
 
 
if self.invalidTypeError then
 
if self.invalidTypeError then
local allSort = (self.title.namespace == 0 and 'Main:' or '') .. self.title.prefixedText
+
local allSort = (self.nsid == 0 and 'Main:' or '') .. self.title.prefixedText
self:addCat('all', 'Wikipedia message box parameter needs fixing', allSort)
+
self:addCat('all', ' 需要修复的信息框', allSort)
 
end
 
end
 
if self.isSubstituted then
 
if self.isSubstituted then
self:addCat('all', 'Pages with incorrectly substituted templates')
+
self:addCat('all', ' 錯誤使用替換引用的頁面')
end
 
end
 
 
 
function MessageBox:setCategories()
 
if self.title.namespace == 0 then
 
self:setMainspaceCategories()
 
elseif self.title.namespace == 10 then
 
self:setTemplateCategories()
 
 
end
 
end
self:setAllNamespaceCategories()
 
end
 
  
function MessageBox:renderCategories()
+
-- Convert category tables to strings and pass them through [[Module:Category handler]].
if not self.hasCategories then
+
self.categories = categoryHandler{
-- No categories added, no need to pass them to Category handler so,
+
main = tconcat(self.mainCats or {}),
-- if it was invoked, it would return the empty string.
+
template = tconcat(self.templateCats or {}),
-- So we shortcut and return the empty string.
+
all = tconcat(self.allCats or {}),
return ""
+
nocat = args.nocat,
end
+
demospace = self.demospace,
-- Convert category tables to strings and pass them through
+
page = self.pageTitle and self.pageTitle.prefixedText or nil
-- [[Module:Category handler]].
 
return require('Module:Category handler')._main{
 
main = table.concat(self.categories[0] or {}),
 
template = table.concat(self.categories[10] or {}),
 
all = table.concat(self.categories.all or {}),
 
nocat = self.args.nocat,
 
page = self.args.page
 
 
}
 
}
 
end
 
end
  
function MessageBox:export()
+
function box:export()
 
local root = mw.html.create()
 
local root = mw.html.create()
  
 
-- Add the subst check error.
 
-- Add the subst check error.
 
if self.isSubstituted and self.name then
 
if self.isSubstituted and self.name then
root:tag('b')
+
root
:addClass('error')
+
:tag('b')
:wikitext(string.format(
+
:addClass('error')
'Template <code>%s[[Template:%s|%s]]%s</code> has been incorrectly substituted.',
+
:wikitext(format(
mw.text.nowiki('{{'), self.name, self.name, mw.text.nowiki('}}')
+
' 模板<code>%s[[Template:%s|%s]]%s</code> 被錯誤地替代。',
))
+
mw.text.nowiki('{{'), self.name, self.name, mw.text.nowiki('}}')
 +
))
 
end
 
end
  
 
-- Create the box table.
 
-- Create the box table.
 
local boxTable = root:tag('table')
 
local boxTable = root:tag('table')
boxTable:attr('id', self.id or nil)
+
boxTable
 +
:attr('id', self.id)
 
for i, class in ipairs(self.classes or {}) do
 
for i, class in ipairs(self.classes or {}) do
boxTable:addClass(class or nil)
+
boxTable
 +
:addClass(class)
 
end
 
end
 
boxTable
 
boxTable
:cssText(self.style or nil)
+
:cssText(self.style)
 
:attr('role', 'presentation')
 
:attr('role', 'presentation')
 
if self.attrs then
 
boxTable:attr(self.attrs)
 
end
 
  
 
-- Add the left-hand image.
 
-- Add the left-hand image.
行 497: 行 532:
 
local imageLeftCell = row:tag('td'):addClass('mbox-image')
 
local imageLeftCell = row:tag('td'):addClass('mbox-image')
 
if self.imageCellDiv then
 
if self.imageCellDiv then
-- If we are using a div, redefine imageLeftCell so that the image
+
-- If we are using a div, redefine imageLeftCell so that the image is inside it.
-- is inside it. Divs use style="width: 52px;", which limits the
+
-- Divs use style="width: 52px;", which limits the image width to 52px. If any
-- image width to 52px. If any images in a div are wider than that,
+
-- images in a div are wider than that, they may overlap with the text or cause
-- they may overlap with the text or cause other display problems.
+
-- other display problems.
imageLeftCell = imageLeftCell:tag('div'):css('width', '52px')
+
imageLeftCell = imageLeftCell:tag('div'):css('width', '52px')  
 
end
 
end
imageLeftCell:wikitext(self.imageLeft or nil)
+
imageLeftCell
 +
:wikitext(self.imageLeft)
 
elseif self.imageEmptyCell then
 
elseif self.imageEmptyCell then
-- Some message boxes define an empty cell if no image is specified, and
+
-- Some message boxes define an empty cell if no image is specified, and some don't.
-- some don't. The old template code in templates where empty cells are
+
-- The old template code in templates where empty cells are specified gives the following hint:
-- specified gives the following hint: "No image. Cell with some width
+
-- "No image. Cell with some width or padding necessary for text cell to have 100% width."
-- or padding necessary for text cell to have 100% width."
 
 
row:tag('td')
 
row:tag('td')
:addClass('mbox-empty-cell')
+
:addClass('mbox-empty-cell')  
:cssText(self.imageEmptyCellStyle or nil)
+
:cssText(self.imageEmptyCellStyle)
 
end
 
end
  
行 517: 行 552:
 
local textCell = row:tag('td'):addClass('mbox-text')
 
local textCell = row:tag('td'):addClass('mbox-text')
 
if self.useCollapsibleTextFields then
 
if self.useCollapsibleTextFields then
-- The message box uses advanced text parameters that allow things to be
+
-- The message box uses advanced text parameters that allow things to be collapsible. At the
-- collapsible. At the moment, only ambox uses this.
+
-- moment, only ambox uses this.
textCell:cssText(self.textstyle or nil)
+
textCell
local textCellDiv = textCell:tag('div')
+
:cssText(self.textstyle)
textCellDiv
+
local textCellSpan = textCell:tag('span')
 +
textCellSpan
 
:addClass('mbox-text-span')
 
:addClass('mbox-text-span')
:wikitext(self.issue or nil)
+
:wikitext(self.issue)
if (self.talk or self.fix) and not self.isSmall then
+
if not self.isSmall then
textCellDiv:tag('span')
+
textCellSpan
:addClass('hide-when-compact')
+
:tag('span')
:wikitext(self.talk and (' ' .. self.talk) or nil)
+
:addClass('hide-when-compact')
:wikitext(self.fix and (' ' .. self.fix) or nil)
+
:wikitext(self.talk and self.talk)
 
end
 
end
textCellDiv:wikitext(self.date and (' ' .. self.date) or nil)
+
textCellSpan
if self.info and not self.isSmall then
+
:wikitext(self.date and self.date)
textCellDiv
+
if not self.isSmall and self.fix ~= '' then
 +
textCellSpan
 
:tag('span')
 
:tag('span')
:addClass('hide-when-compact')
+
:addClass('hide-when-compact')
:wikitext(self.info and (' ' .. self.info) or nil)
+
:wikitext(self.fix and self.fix)
 
end
 
end
if self.removalNotice then
+
if not self.isSmall then
textCellDiv:tag('small')
+
textCellSpan
 +
:tag('span')
 
:addClass('hide-when-compact')
 
:addClass('hide-when-compact')
:tag('i')
+
:wikitext(self.info and self.info)
:wikitext(string.format(" (%s)", self.removalNotice))
 
 
end
 
end
 
else
 
else
 
-- Default text formatting - anything goes.
 
-- Default text formatting - anything goes.
 
textCell
 
textCell
:cssText(self.textstyle or nil)
+
:cssText(self.textstyle)
:wikitext(self.text or nil)
+
:wikitext(self.text)
 
end
 
end
  
行 554: 行 591:
 
local imageRightCell = row:tag('td'):addClass('mbox-imageright')
 
local imageRightCell = row:tag('td'):addClass('mbox-imageright')
 
if self.imageCellDiv then
 
if self.imageCellDiv then
-- If we are using a div, redefine imageRightCell so that the image
+
imageRightCell = imageRightCell:tag('div'):css('width', '52px') -- If we are using a div, redefine imageRightCell so that the image is inside it.
-- is inside it.
 
imageRightCell = imageRightCell:tag('div'):css('width', '52px')
 
 
end
 
end
 
imageRightCell
 
imageRightCell
:wikitext(self.imageRight or nil)
+
:wikitext(self.imageRight)
 
end
 
end
  
行 568: 行 603:
 
:attr('colspan', self.imageRight and '3' or '2')
 
:attr('colspan', self.imageRight and '3' or '2')
 
:addClass('mbox-text')
 
:addClass('mbox-text')
:cssText(self.textstyle or nil)
+
:cssText(self.textstyle)
:wikitext(self.below or nil)
+
:wikitext(self.below)
 
end
 
end
  
 
-- Add error message for invalid type parameters.
 
-- Add error message for invalid type parameters.
 
if self.invalidTypeError then
 
if self.invalidTypeError then
root:tag('div')
+
root
:css('text-align', 'center')
+
:tag('div')
:wikitext(string.format(
+
:css('text-align', 'center')
'This message box is using an invalid "type=%s" parameter and needs fixing.',
+
:wikitext(format(' 此訊息框使用無效的「type=%s 」參數,需要修復。', self.type or ''))
self.type or ''
 
))
 
 
end
 
end
  
 
-- Add categories.
 
-- Add categories.
root:wikitext(self:renderCategories() or nil)
+
root
 +
:wikitext(self.categories)
  
 
return tostring(root)
 
return tostring(root)
 
end
 
end
  
--------------------------------------------------------------------------------
+
local function main(boxType, args)
-- Exports
+
local outputBox = box.new()
--------------------------------------------------------------------------------
+
outputBox:setTitle(args)
 +
local cfg = outputBox:getConfig(boxType)
 +
args = outputBox:removeBlankArgs(cfg, args)
 +
outputBox:setBoxParameters(cfg, args)
 +
return outputBox:export()
 +
end
  
local p, mt = {}, {}
+
local function makeWrapper(boxType)
 
+
return function (frame)
function p._exportClasses()
+
local args = getArgs(frame, {trim = false, removeBlanks = false})
-- For testing.
+
return main(boxType, args)
return {
+
end
MessageBox = MessageBox
 
}
 
 
end
 
end
  
function p.main(boxType, args, cfgTables)
+
local p = {
local box = MessageBox.new(boxType, args, cfgTables or mw.loadData(CONFIG_MODULE))
+
main = main,
box:setParameters()
+
mbox = makeWrapper('mbox')
box:setCategories()
+
}
return box:export()
 
end
 
  
function mt.__index(t, k)
+
for boxType in pairs(cfgTables) do
return function (frame)
+
p[boxType] = makeWrapper(boxType)
if not getArgs then
 
getArgs = require('Module:Arguments').getArgs
 
end
 
return t.main(k, getArgs(frame, {trim = false, removeBlanks = false}))
 
end
 
 
end
 
end
  
return setmetatable(p, mt)
+
return p

於 2019年9月1日 (日) 16:22 的最新修訂

This is a meta-module that implements the message box templates {{mbox}}, {{ambox}}, {{cmbox}}, {{fmbox}}, {{imbox}}, {{ombox}}, and {{tmbox}}. It is intended to be used from Lua modules, and should not be used directly from wiki pages. If you want to use this module's functionality from a wiki page, please use the individual message box templates instead.

Usage

To use this module from another Lua module, first you need to load it.

local messageBox = require('Module:Message box')

To create a message box, use the main function. It takes two parameters: the first is the box type (as a string), and the second is a table containing the message box parameters.

local box = messageBox.main( boxType, {
    param1 = param1,
    param2 = param2,
    -- More parameters...
})

There are seven available box types:

Box type Template Purpose
mbox {{mbox}} For message boxes to be used in multiple namespaces
ambox {{ambox}} For article message boxes
cmbox {{cmbox}} For category message boxes
fmbox {{fmbox}} For interface message boxes
imbox {{imbox}} For file namespace message boxes
tmbox {{tmbox}} For talk page message boxes
ombox {{ombox}} For message boxes in other namespaces

See the template page of each box type for the available parameters.

Usage from #invoke

As well as the main function, this module has separate functions for each box type. They are accessed using the code {{#invoke:Message box|mbox|...}}, {{#invoke:Message box|ambox|...}}, etc. These will work when called from other modules, but they access code used to process arguments passed from #invoke, and so calling them will be less efficient than calling main.

Technical details

The module uses the same basic code for each of the templates listed above; the differences between each of them are configured using the data at Module:Message box/configuration. Here are the various configuration options and what they mean:

  • types - a table containing data used by the type parameter of the message box. The table keys are the values that can be passed to the type parameter, and the table values are tables containing the class and the image used by that type.
  • default - the type to use if no value was passed to the type parameter, or if an invalid value was specified.
  • showInvalidTypeError - whether to show an error if the value passed to the type parameter was invalid.
  • allowBlankParams - usually blank values are stripped from parameters passed to the module. However, whitespace is preserved for the parameters included in the allowBlankParams table.
  • allowSmall - whether a small version of the message box can be produced with "small=yes".
  • smallParam - a custom name for the small parameter. For example, if set to "left" you can produce a small message box using "small=left".
  • smallClass - the class to use for small message boxes.
  • substCheck - whether to perform a subst check or not.
  • classes - an array of classes to use with the message box.
  • imageEmptyCell - whether to use an empty <td>...</td> cell if there is no image set. This is used to preserve spacing for message boxes with a width of less than 100% of the screen.
  • imageEmptyCellStyle - whether empty image cells should be styled.
  • imageCheckBlank - whether "image=blank" results in no image being displayed.
  • imageSmallSize - usually, images used in small message boxes are set to 30x30px. This sets a custom size.
  • imageCellDiv - whether to enclose the image in a div enforcing a maximum image size.
  • useCollapsibleTextFields - whether to use text fields that can be collapsed, i.e. "issue", "fix", "talk", etc. Currently only used in ambox.
  • imageRightNone - whether imageright=none results in no image being displayed on the right-hand side of the message box.
  • sectionDefault - the default name for the "section" parameter. Depends on useCollapsibleTextFields.
  • allowMainspaceCategories - allow categorisation in the main namespace.
  • templateCategory - the name of a category to be placed on the template page.
  • templateCategoryRequireName - whether the name parameter is required to display the template category.
  • templateErrorCategory - the name of the error category to be used on the template page.
  • templateErrorParamsToCheck - an array of parameter names to check. If any are absent, the templateErrorCategory is applied to the template page.

-- This is a meta-module for producing message box templates, including {{mbox}}, {{ambox}}, {{imbox}}, {{tmbox}}, {{ombox}}, {{cmbox}} and {{fmbox}}.

-- Require necessary modules.
local getArgs = require('Module:Arguments').getArgs
local categoryHandler = require('Module:Category handler').main
local yesno = require('Module:Yesno')

-- Load the configuration page.
local cfgTables = mw.loadData('Module:Message box/configuration')

-- Get a language object for formatDate and ucfirst.
local lang = mw.language.getContentLanguage()

-- Set aliases for often-used functions to reduce table lookups.
local format = mw.ustring.format
local tinsert = table.insert
local tconcat = table.concat
local trim = mw.text.trim

--------------------------------------------------------------------------------
-- Helper functions
--------------------------------------------------------------------------------

local function getTitleObject(page, ...)
	if type(page) == 'string' then
		-- Get the title object, passing the function through pcall 
		-- in case we are over the expensive function count limit.
		local success, title = pcall(mw.title.new, page, ...)
		if success then
			return title
		end
	end
end

local function union(t1, t2)
	-- Returns the union of two arrays.
	local vals = {}
	for i, v in ipairs(t1) do
		vals[v] = true
	end
	for i, v in ipairs(t2) do
		vals[v] = true
	end
	local ret = {}
	for k in pairs(vals) do
		tinsert(ret, k)
	end
	table.sort(ret)
	return ret
end

local function getArgNums(args, prefix)
	local nums = {}
	for k, v in pairs(args) do
		local num = mw.ustring.match(tostring(k), '^' .. prefix .. '([1-9]%d*)$')
		if num then
			tinsert(nums, tonumber(num))
		end
	end
	table.sort(nums)
	return nums
end

--------------------------------------------------------------------------------
-- Box class definition
--------------------------------------------------------------------------------

local box = {}
box.__index = box

function box.new()
	local obj = {}
	setmetatable(obj, box)
	return obj
end

function box.getNamespaceId(ns)
	if not ns then return end
	if type(ns) == 'string' then
		ns = lang:ucfirst(mw.ustring.lower(ns))
		if ns == 'Main' then
			ns = 0
		end
	end
	local nsTable = mw.site.namespaces[ns]
	if nsTable then
		return nsTable.id
	end
end

function box.getMboxType(nsid)
	-- Gets the mbox type from a namespace number.
	if nsid == 0 then
		return 'ambox' -- main namespace
	elseif nsid == 6 then
		return 'imbox' -- file namespace
	elseif nsid == 14 then
		return 'cmbox' -- category namespace
	else
		local nsTable = mw.site.namespaces[nsid]
		if nsTable and nsTable.isTalk then
			return 'tmbox' -- any talk namespace
		else
			return 'ombox' -- other namespaces or invalid input
		end
	end
end

function box:addCat(ns, cat, sort)
	if type(cat) ~= 'string' then return end
	local nsVals = {'main', 'template', 'all'}
	local tname
	for i, val in ipairs(nsVals) do
		if ns == val then
			tname = ns .. 'Cats'
		end
	end
	if not tname then
		for i, val in ipairs(nsVals) do
			nsVals[i] = format('"%s"', val)
		end
		error('無效的ns參數傳送到box:addCat;有效的數值為' .. mw.text.listToText(nsVals, '、', '或'))
	end
	self[tname] = self[tname] or {}
	if type(sort) == 'string' then
		tinsert(self[tname], format('[[Category:%s|%s]]', cat, sort))
	else
		tinsert(self[tname], format('[[Category:%s]]', cat))
	end
end

function box:addClass(class)
	if type(class) ~= 'string' then return end
	self.classes = self.classes or {}
	tinsert(self.classes, class)
end

function box:setTitle(args)
	-- Get the title object and the namespace.
	self.pageTitle = getTitleObject(args.page ~= '' and args.page)
	self.title = self.pageTitle or mw.title.getCurrentTitle()
	self.demospace = args.demospace ~= '' and args.demospace or nil
	self.nsid = box.getNamespaceId(self.demospace) or self.title.namespace
end

function box:getConfig(boxType)
	-- Get the box config data from the data page.
	if boxType == 'mbox' then
		boxType = box.getMboxType(self.nsid)
	end
	local cfg = cfgTables[boxType]
	if not cfg then
		local boxTypes = {}
		for k, v in pairs(dataTables) do
			tinsert(boxTypes, format('"%s"', k))
		end
		tinsert(boxTypes, '"mbox"')
		error(format('無效的訊息框類型「%s」;有效的類型為%s', tostring(boxType), mw.text.listToText(boxTypes)), 2)
	end
	return cfg
end

function box:removeBlankArgs(cfg, args)
	-- Only allow blank arguments for the parameter names listed in cfg.allowBlankParams.
	local newArgs = {}
	for k, v in pairs(args) do
		if v ~= '' then
			newArgs[k] = v
		end
	end
	for i, param in ipairs(cfg.allowBlankParams or {}) do
		newArgs[param] = args[param]
	end
	return newArgs
end

function box:setBoxParameters(cfg, args)
	-- Get type data.
	self.type = args.type
	local typeData = cfg.types[self.type]
	self.invalidTypeError = cfg.showInvalidTypeError and self.type and not typeData and true or false
	typeData = typeData or cfg.types[cfg.default]
	self.typeClass = typeData.class
	self.typeImage = typeData.image

	-- Find if the box has been wrongly substituted.
	if cfg.substCheck and args.subst == 'SUBST' then
		self.isSubstituted = true
	end

	-- Find whether we are using a small message box.
	if cfg.allowSmall and (
		cfg.smallParam and args.small == cfg.smallParam
		or not cfg.smallParam and yesno(args.small)
	)
	then
		self.isSmall = true
	else
		self.isSmall = false
	end

	-- Add attributes, classes and styles.
	if cfg.allowId then
		self.id = args.id
		self.name = args.name
		if self.name then
			self:addClass('box-' .. string.gsub(self.name,' ','_'))
		end
	end
	self:addClass(cfg.usePlainlinksParam and yesno(args.plainlinks or true) and 'plainlinks')
	for _, class in ipairs(cfg.classes or {}) do
		self:addClass(class)
	end
	if self.isSmall then
		self:addClass(cfg.smallClass or 'mbox-small')
	end
	if yesno(args.hidden) then
		self:addClass('infobox editsection')
	end
	self:addClass(self.typeClass)
	self:addClass(args.class)
	self.style = args.style

	-- Set text style.
	self.textstyle = args.textstyle

	-- Find if we are on the template page or not. This functionality is only used if useCollapsibleTextFields is set,
	-- or if both cfg.templateCategory and cfg.templateCategoryRequireName are set.
	self.useCollapsibleTextFields = cfg.useCollapsibleTextFields
	if self.useCollapsibleTextFields or cfg.templateCategory and cfg.templateCategoryRequireName then
		self.name = args.name
		if self.name then
			local templateName = mw.ustring.match(self.name, '^[tT][eE][mM][pP][lL][aA][tT][eE][%s_]*:[%s_]*(.*)$') or self.name
			templateName = 'Template:' .. templateName
			self.templateTitle = getTitleObject(templateName)
		end
		self.isTemplatePage = self.templateTitle and mw.title.equals(self.title, self.templateTitle) or false
	end

	-- Process data for collapsible text fields. At the moment these are only used in {{ambox}}.
	if self.useCollapsibleTextFields then
		-- Get the self.issue value.
		if self.isSmall and args.smalltext then
			self.issue = args.smalltext
		else
			local sect
			if args.sect == '' then
				sect = '此' .. (cfg.sectionDefault or '頁面')
			elseif type(args.sect) == 'string' then
				sect = '此' .. args.sect
			end
			local issue = args.issue
			issue = type(issue) == 'string' and issue ~= '' and issue or nil
			local text = args.text
			text = type(text) == 'string' and text or nil
			local issues = {}
			tinsert(issues, sect)
			tinsert(issues, issue)
			tinsert(issues, text)
			self.issue = tconcat(issues)
		end

		-- Get the self.talk value.
		local talk = args.talk
		if talk == '' -- Show talk links on the template page or template subpages if the talk parameter is blank.
			and self.templateTitle 
			and (mw.title.equals(self.templateTitle, self.title) or self.title:isSubpageOf(self.templateTitle))
		then
			talk = '#'
		elseif talk == '' then
			talk = nil
		end
		if talk then
			-- If the talk value is a talk page, make a link to that page. Else assume that it's a section heading,
			-- and make a link to the talk page of the current page with that section heading.
			local talkTitle = getTitleObject(talk)
			local talkArgIsTalkPage = true
			if not talkTitle or not talkTitle.isTalkPage then
				talkArgIsTalkPage = false
				talkTitle = getTitleObject(self.title.text, mw.site.namespaces[self.title.namespace].talk.id)
			end
			if talkTitle and talkTitle.exists then
				local talkText = '相關討論可見於'
				if talkArgIsTalkPage then
					talkText = format('%s[[%s|%s]].', talkText, talk, talkTitle.prefixedText)
				else
					talkText = format('%s[[%s#%s|討論頁]].', talkText, talkTitle.prefixedText, talk)
				end
				self.talk = talkText
			end
		end

		-- Get other values.
		local date
		if args.date and args.date ~= '' then
			date = args.date
		elseif args.time == '' and self.isTemplatePage then
			date = lang:formatDate('Y年n月j日')
		elseif args.time and args.time ~= '' then
			date = lang:formatDate('Y年n月j日', args.time)
		end
		if date then
			local ok, tempdate = pcall(lang.formatDate, lang, 'Y年n月j日', date) -- 正規化日期
			if ok then
				date = tempdate
			end
		end
		if date then
			self.date = string.format(" <small class='date-container'>''(<span class='date'>%s</span>)''</small>", date)
		end
		if args.fix and args.fix ~= '' then
			self.fix = format("<br /><small>%s</small>", args.fix)
		else
			self.fix = ''
		end
		self.info = args.info
	end

	-- Set the non-collapsible text field. At the moment this is used by all box types other than ambox,
	-- and also by ambox when small=yes.
	if self.isSmall then
		self.text = args.smalltext or args.text
	else
		self.text = args.text
	end

	-- Set the below row.
	self.below = cfg.below and args.below

	-- General image settings.
	self.imageCellDiv = not self.isSmall and cfg.imageCellDiv and true or false
	self.imageEmptyCell = cfg.imageEmptyCell
	if cfg.imageEmptyCellStyle then
		self.imageEmptyCellStyle = 'border:none;padding:0px;width:1px'
	end

	-- Left image settings.
	local imageLeft = self.isSmall and args.smallimage or args.image
	if cfg.imageCheckBlank and imageLeft ~= 'blank' and imageLeft ~= 'none'
		or not cfg.imageCheckBlank and imageLeft ~= 'none'
	then
		self.imageLeft = imageLeft
		if not imageLeft then
			local imageSize = self.isSmall and (cfg.imageSmallSize or '30x30px') or '40x40px'
			self.imageLeft = format('[[File:%s|%s|link=|alt=]]', self.typeImage or 'Imbox notice.png', imageSize)
		end
	end

	-- Right image settings.
	local imageRight = self.isSmall and args.smallimageright or args.imageright
	if not (cfg.imageRightNone and imageRight == 'none') then
		self.imageRight = imageRight
	end

	-- Add mainspace categories. At the moment these are only used in {{ambox}}.
	if cfg.allowMainspaceCategories then
		if args.cat then
			args.cat1 = args.cat
		end
		self.catNums = getArgNums(args, 'cat')
		if args.category then
			args.category1 = args.category
		end
		self.categoryNums = getArgNums(args, 'category')
		if args.all then
			args.all1 = args.all
		end
		self.allNums = getArgNums(args, 'all')
		self.categoryParamNums = union(self.catNums, self.categoryNums)
		self.categoryParamNums = union(self.categoryParamNums, self.allNums)
		-- The following is roughly equivalent to the old {{Ambox/category}}.
		local date
		local sortDay
		local dayName = {
			[1] = '㏠',
			[2] = '㏡',
			[3] = '㏢',
			[4] = '㏣',
			[5] = '㏤',
			[6] = '㏥',
			[7] = '㏦',
			[8] = '㏧',
			[9] = '㏨',
			[10] = '㏩',
			[11] = '㏪',
			[12] = '㏫',
			[13] = '㏬',
			[14] = '㏭',
			[15] = '㏮',
			[16] = '㏯',
			[17] = '㏰',
			[18] = '㏱',
			[19] = '㏲',
			[20] = '㏳',
			[21] = '㏴',
			[22] = '㏵',
			[23] = '㏶',
			[24] = '㏷',
			[25] = '㏸',
			[26] = '㏹',
			[27] = '㏺',
			[28] = '㏻',
			[29] = '㏼',
			[30] = '㏽',
			[31] = '㏾'
		}
		if args.date and args.date ~= '' then
			date = args.date
			local ok, tempdate = pcall(lang.formatDate, lang, 'Y年n月', date) -- 正規化日期
			if ok then
				date = tempdate
			end
		elseif args.time and args.time ~= '' then
			date = lang:formatDate('Y年n月', args.time)
			sortDay = lang:formatDate('j', args.time)
			sortDay = tonumber(sortDay)
			sortDay = dayName[sortDay]
		end
		date = type(date) == 'string' and date
		local preposition = '自'
		for _, num in ipairs(self.categoryParamNums) do
			local mainCat = args['cat' .. tostring(num)] or args['category' .. tostring(num)]
			local allCat = args['all' .. tostring(num)]
			mainCat = type(mainCat) == 'string' and mainCat
			allCat = type(allCat) == 'string' and allCat
			if mainCat and date and date ~= '' then
				local catTitle = format('%s%s%s', preposition, date, mainCat)
				if sortDay then
					self:addCat('main', catTitle, sortDay)
				else
					self:addCat('main', catTitle)
				end
				catTitle = getTitleObject('Category:' .. catTitle)
				if not catTitle or not catTitle.exists then
					self:addCat('main', '模板中使用无效日期参数的条目')
				end
			elseif mainCat and (not date or date == '') then
				self:addCat('main', mainCat)
			end
			if allCat then
				self:addCat('main', allCat)
			end
		end
	end

	-- Add template-namespace categories.
	if cfg.templateCategory then
		if cfg.templateCategoryRequireName then
			if self.isTemplatePage then
				self:addCat('template', cfg.templateCategory)
			end
		elseif not self.title.isSubpage then
			self:addCat('template', cfg.templateCategory)
		end
	end

	-- Add template error category.
	if cfg.templateErrorCategory then
		local templateErrorCategory = cfg.templateErrorCategory
		local templateCat, templateSort
		if not self.name and not self.title.isSubpage then
			templateCat = templateErrorCategory
		elseif self.isTemplatePage then
			local paramsToCheck = cfg.templateErrorParamsToCheck or {}
			local count = 0
			for i, param in ipairs(paramsToCheck) do
				if not args[param] then
					count = count + 1
				end
			end
			if count > 0 then
				templateCat = templateErrorCategory
				templateSort = tostring(count)
			end
			if self.categoryNums and #self.categoryNums > 0 then
				templateCat = templateErrorCategory
				templateSort = 'C'
			end
		end
		self:addCat('template', templateCat, templateSort)
	end

	-- Categories for all namespaces.
	if self.invalidTypeError then
		local allSort = (self.nsid == 0 and 'Main:' or '') .. self.title.prefixedText
		self:addCat('all', '需要修复的信息框', allSort)
	end
	if self.isSubstituted then
		self:addCat('all', '錯誤使用替換引用的頁面')
	end

	-- Convert category tables to strings and pass them through [[Module:Category handler]].
	self.categories = categoryHandler{
		main = tconcat(self.mainCats or {}),
		template = tconcat(self.templateCats or {}),
		all = tconcat(self.allCats or {}),
		nocat = args.nocat,
		demospace = self.demospace,
		page = self.pageTitle and self.pageTitle.prefixedText or nil
	}
end

function box:export()
	local root = mw.html.create()

	-- Add the subst check error.
	if self.isSubstituted and self.name then
		root
			:tag('b')
				:addClass('error')
				:wikitext(format(
					'模板<code>%s[[Template:%s|%s]]%s</code>被錯誤地替代。',
					mw.text.nowiki('{{'), self.name, self.name, mw.text.nowiki('}}')
				))
	end

	-- Create the box table.
	local boxTable = root:tag('table')
	boxTable
		:attr('id', self.id)
	for i, class in ipairs(self.classes or {}) do
		boxTable
			:addClass(class)
	end
	boxTable
		:cssText(self.style)
		:attr('role', 'presentation')

	-- Add the left-hand image.
	local row = boxTable:tag('tr')
	if self.imageLeft then
		local imageLeftCell = row:tag('td'):addClass('mbox-image')
		if self.imageCellDiv then
			-- If we are using a div, redefine imageLeftCell so that the image is inside it.
			-- Divs use style="width: 52px;", which limits the image width to 52px. If any
			-- images in a div are wider than that, they may overlap with the text or cause
			-- other display problems.
			imageLeftCell = imageLeftCell:tag('div'):css('width', '52px') 
		end
		imageLeftCell
			:wikitext(self.imageLeft)
	elseif self.imageEmptyCell then
		-- Some message boxes define an empty cell if no image is specified, and some don't.
		-- The old template code in templates where empty cells are specified gives the following hint:
		-- "No image. Cell with some width or padding necessary for text cell to have 100% width."
		row:tag('td')
			:addClass('mbox-empty-cell') 
			:cssText(self.imageEmptyCellStyle)
	end

	-- Add the text.
	local textCell = row:tag('td'):addClass('mbox-text')
	if self.useCollapsibleTextFields then
		-- The message box uses advanced text parameters that allow things to be collapsible. At the
		-- moment, only ambox uses this.
		textCell
			:cssText(self.textstyle)
		local textCellSpan = textCell:tag('span')
		textCellSpan
			:addClass('mbox-text-span')
			:wikitext(self.issue)
		if not self.isSmall then
			textCellSpan
				:tag('span')
					:addClass('hide-when-compact')
					:wikitext(self.talk and self.talk)
		end
		textCellSpan
			:wikitext(self.date and self.date)
		if not self.isSmall and self.fix ~= '' then
			textCellSpan
				:tag('span')
					:addClass('hide-when-compact')
					:wikitext(self.fix and self.fix)
		end
		if not self.isSmall then
			textCellSpan
				:tag('span')
				:addClass('hide-when-compact')
				:wikitext(self.info and self.info)
		end
	else
		-- Default text formatting - anything goes.
		textCell
			:cssText(self.textstyle)
			:wikitext(self.text)
	end

	-- Add the right-hand image.
	if self.imageRight then
		local imageRightCell = row:tag('td'):addClass('mbox-imageright')
		if self.imageCellDiv then
			imageRightCell = imageRightCell:tag('div'):css('width', '52px') -- If we are using a div, redefine imageRightCell so that the image is inside it.
		end
		imageRightCell
			:wikitext(self.imageRight)
	end

	-- Add the below row.
	if self.below then
		boxTable:tag('tr')
			:tag('td')
				:attr('colspan', self.imageRight and '3' or '2')
				:addClass('mbox-text')
				:cssText(self.textstyle)
				:wikitext(self.below)
	end

	-- Add error message for invalid type parameters.
	if self.invalidTypeError then
		root
			:tag('div')
				:css('text-align', 'center')
				:wikitext(format('此訊息框使用無效的「type=%s」參數,需要修復。', self.type or ''))
	end

	-- Add categories.
	root
		:wikitext(self.categories)

	return tostring(root)
end

local function main(boxType, args)
	local outputBox = box.new()
	outputBox:setTitle(args)
	local cfg = outputBox:getConfig(boxType)
	args = outputBox:removeBlankArgs(cfg, args)
	outputBox:setBoxParameters(cfg, args)
	return outputBox:export()
end

local function makeWrapper(boxType)
	return function (frame)
		local args = getArgs(frame, {trim = false, removeBlanks = false})
		return main(boxType, args)
	end
end

local p = {
	main = main,
	mbox = makeWrapper('mbox')
}

for boxType in pairs(cfgTables) do
	p[boxType] = makeWrapper(boxType)
end

return p