Changes
bring in changes from sandbox
-- {{mbox}}, {{ambox}}, {{imbox}}, {{tmbox}}, {{ombox}}, {{cmbox}} and {{fmbox}}.
-- Require Load necessary modules.local getArgs = require('Module:ArgumentsNo globals').getArgslocal htmlBuilder = require('Module:HtmlBuilder')getArgslocal categoryHandler = require('Module:Category handler').main_main
local yesno = require('Module:Yesno')
-- Get a language object for formatDate and ucfirst.
local lang = mw.language.getContentLanguage()
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
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 ret = {}
for k in pairs(vals) do
end
table.sort(ret)
local num = mw.ustring.match(tostring(k), '^' .. prefix .. '([1-9]%d*)$')
if num then
end
end
--------------------------------------------------------------------------------
local box MessageBox = {}boxMessageBox.__index = boxMessageBox
function boxMessageBox.new(boxType, args, cfg) args = args or {}
local obj = {}
else
end
end
end
end
end
end
function boxMessageBox:setTitleaddCat(argsns, cat, sort) -- 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.namespaceend function box:getConfig(boxType) -- Get the box config data from the data page. if boxType == 'mbox' not cat then boxType = box.getMboxType(self.nsid)return nil
end
end
end
function boxMessageBox:removeBlankArgsaddClass(cfg, argsclass) -- Only allow blank arguments for the parameter names listed in -- cfg.allowBlankParams. local newArgs = {} for k, v in pairs(args) do if v ~= '' not class then newArgs[k] = v end end for i, param in ipairs(cfg.allowBlankParams or {}) do newArgs[param] = args[param]return nil
end
end
function boxMessageBox:setBoxParameterssetParameters() local args = self.args local cfg = self.cfg, args)
-- Get type data.
self.type = args.type
and self.type
and not typeData
typeData = typeData or cfg.types[cfg.default]
self.typeClass = typeData.class
-- Find if the box has been wrongly substituted.
-- Find whether we are using a small message box.
cfg.smallParam and args.small == cfg.smallParam
or not cfg.smallParam and yesno(args.small)
)
-- Add attributes, classes and styles.
self.isTemplatePage = self.templateTitle
and mw.title.equals(self.title, self.templateTitle)
end
text = type(text) == 'string' and text or nil
local issues = {}
end
-- parameter is blank.
if talk == ''
and self.templateTitle
and (
mw.title.equals(self.templateTitle, self.title)
local talkText = 'Relevant discussion may be found on'
if talkArgIsTalkPage then
talkText = string.format(
'%s [[%s|%s]].',
talkText,
)
else
talkText = string.format(
'%s the [[%s#%s|talk page]].',
talkText,
end
if date then
self.date = string.format(" <small>''(%s)''</small>", date)
end
self.info = args.info
-- General image settings.
self.imageCellDiv = not self.isSmall and cfg.imageCellDiv and true or false
self.imageEmptyCell = cfg.imageEmptyCell
if cfg.imageEmptyCellStyle then
and (cfg.imageSmallSize or '30x30px')
or '40x40px'
self.imageLeft = string.format('[[File:%s|%s|link=|alt=]]', self.typeImage
or 'Imbox notice.png', imageSize)
end
if not (cfg.imageRightNone and imageRight == 'none') then
self.imageRight = imageRight
end
end
function MessageBox:setMainspaceCategories()
local args = self.args
local cfg = self.cfg
if not cfg.allowMainspaceCategories then
return nil
end
local nums = {} for _, prefix in ipairs{'cat', 'category', 'all'} do args[prefix .. '1'] = args[prefix] nums = union(nums, getArgNums(args, prefix)) end -- Add mainspace categories. At The following is roughly equivalent to the moment these are only used in old {{amboxAmbox/category}}. if cfglocal date = args.allowMainspaceCategories thendate date = type(date) == 'string' and date local preposition = 'from' for _, num in ipairs(nums) do if local mainCat = args['cat' ..cat thentostring(num)] or args['category' .cat1 . 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 = string.catformat('%s %s %s', mainCat, preposition, date) self:addCat(0, catTitle) catTitle = getTitleObject('Category:' .. catTitle) if not catTitle or not catTitle.exists then self:addCat(0, 'Articles with invalid date parameter in template') end elseif mainCat and (not date or date == '') then self:addCat(0, mainCat)
end
end
end
end
function MessageBox:setTemplateCategories()
local args = self.args
local cfg = self.cfg
-- Add template-namespace categories.
if cfg.templateCategory then
if cfg.templateCategoryRequireName then
if self.isTemplatePage then
self:addCat('template'10, cfg.templateCategory)
end
elseif not self.title.isSubpage then
self:addCat('template'10, cfg.templateCategory)
end
end
-- Add template error categorycategories.
if cfg.templateErrorCategory then
local templateErrorCategory = cfg.templateErrorCategory
end
end
self:addCat('template'10, templateCat, templateSort)
end
end
function MessageBox:setAllNamespaceCategories() -- Categories Set categories for all namespaces.
if self.invalidTypeError then
local allSort = (self.nsid title.namespace == 0 and 'Main:' or '') .. self.title.prefixedText
self:addCat('all', 'Wikipedia message box parameter needs fixing', allSort)
end
self:addCat('all', 'Pages with incorrectly substituted templates')
end
end
function MessageBox:setCategories()
if self.title.namespace == 0 then
self:setMainspaceCategories()
elseif self.title.namespace == 10 then
self:setTemplateCategories()
end
self:setAllNamespaceCategories()
end
function MessageBox:renderCategories()
-- Convert category tables to strings and pass them through
-- [[Module:Category handler]].
}
end
function boxMessageBox:export() local root = htmlBuildermw.html.create()
-- Add the subst check error.
if self.isSubstituted and self.name then
root .:tag('b') . :addClass('error') . :wikitext(string.format( 'Template <code>%s[[Template:%s|%s]]%s</code> has been incorrectly substituted.', mw.text.nowiki('{{'), self.name, self.name, mw.text.nowiki('}}') ))
end
-- Create the box table.
local boxTable = root.:tag('table') boxTable .:attr('id', self.idor nil)
for i, class in ipairs(self.classes or {}) do
boxTable .:addClass(classor nil)
end
boxTable
end
-- 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
-- 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.imageLeftor nil)
elseif self.imageEmptyCell then
-- Some message boxes define an empty cell if no image is specified, and
-- 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.imageEmptyCellStyleor nil)
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.textstyleor nil) local textCellSpan = textCell.:tag('span')
textCellSpan
if not self.isSmall then
textCellSpan .:tag('span') . :addClass('hide-when-compact') . :wikitext(self.talk and (' ' .. self.talk) or nil) . :wikitext(self.fix and (' ' .. self.fix) or nil)
end
textCellSpan .:wikitext(self.date and (' ' .. self.date) or nil)
if not self.isSmall then
textCellSpan
end
else
-- Default text formatting - anything goes.
textCell
end
-- Add the right-hand image.
if self.imageRight then
local imageRightCell = row.:tag('td').:addClass('mbox-imageright')
if self.imageCellDiv then
-- If we are using a div, redefine imageRightCell so that the image
-- is inside it.
imageRightCell = imageRightCell.:tag('div').:css('width', '52px')
end
imageRightCell
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.textstyleor nil) .:wikitext(self.belowor nil)
end
-- Add error message for invalid type parameters.
if self.invalidTypeError then
root .:tag('div') . :css('text-align', 'center') . :wikitext(string.format( 'This message box is using an invalid "type=%s" parameter and needs fixing.', self.type or '' ))
end
-- Add categories.
root .:wikitext(self.categories:renderCategories() or nil)
return tostring(root)
end
---------------------------------------------------------------------------------- Exports-------------------------------------------------------------------------------- local p, mt = {}, {} function mainp._exportClasses(boxType, args) local outputBox -- For testing. return { MessageBox = box.new()MessageBox outputBox:setTitle}end function p.main(boxType, args, cfgTables) local cfg box = outputBox:getConfigMessageBox.new(boxType, args, cfgTables or mw.loadData('Module:Message box/configuration')) args = outputBoxbox:removeBlankArgssetParameters(cfg, args) outputBoxbox:setBoxParameterssetCategories(cfg, args) return outputBoxbox:export()
end
return function (frame)
end
end