Module:Message box: Difference between revisions

Jump to navigation Jump to search
m>Mr. Stradivarius
more ambox stuff - still a little broken
MeowyCats2 (talk | contribs)
m 125 revisions imported
 
(121 intermediate revisions by 45 users not shown)
Line 1: Line 1:
-- This is a meta-module for producing message box templates, including {{mbox}}, {{ambox}}, {{imbox}}, {{tmbox}}, {{ombox}}, {{cmbox}} and {{fmbox}}.
require('Module:No globals')
local getArgs
local yesno = require('Module:Yesno')
local lang = mw.language.getContentLanguage()


local htmlBuilder = require('Module:HtmlBuilder')
local CONFIG_MODULE = 'Module:Message box/configuration'
local nsDetect = require('Module:Namespace detect')
local DEMOSPACES = {talk = 'tmbox', image = 'imbox', file = 'imbox', category = 'cmbox', article = 'ambox', main = 'ambox'}
local yesno = require('Module:Yesno')
 
--------------------------------------------------------------------------------
-- Helper functions
--------------------------------------------------------------------------------
 
local function getTitleObject(...)
-- 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, ...)
if success then
return title
end
end


local p = {}
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
table.insert(ret, k)
end
table.sort(ret)
return ret
end


local function getTitleObject(page)
local function getArgNums(args, prefix)
    if type(page) == 'string' then
local nums = {}
        -- Get the title object, passing the function through pcall
for k, v in pairs(args) do
        -- in case we are over the expensive function count limit.
local num = mw.ustring.match(tostring(k), '^' .. prefix .. '([1-9]%d*)$')
        local success
if num then
        success, page = pcall(mw.title.new, page)
table.insert(nums, tonumber(num))
        if not success then
end
            page = nil
end
        end
table.sort(nums)
    end
return nums
    return page or mw.title.getCurrentTitle()
end
end


function p.build(data, args)
--------------------------------------------------------------------------------
    -- Get the title object and the namespace.
-- Box class definition
    local title = mw.title.getCurrentTitle()
--------------------------------------------------------------------------------
    local nsid = title.namespace
   
-- Commenting this out for now - this will require tinkering with Namespace detect to differentiate between
-- invalid titles and pages where the expensive parser function count has been exceeded.
--[[
    local title = nsDetect.getPageObject(args.page)
    local namespace = nsDetect.main{
        page = args.page,
        demospace = args.demospace,
        main = 'main',
        talk = 'talk',
        file = 'file',
        category = 'category',
        other = 'other'
    }
]]


    ------------------------ Process config data ----------------------------
local MessageBox = {}
MessageBox.__index = MessageBox


    -- Type data.
function MessageBox.new(boxType, args, cfg)
    local typeData = data.types[args.type]
args = args or {}
    local invalidType = args.type and not typeData and true or false
local obj = {}
    typeData = typeData or data.types[data.default]


    -- Process data for collapsible text fields
-- Set the title object and the namespace.
    local text, talk, fix, date, info
obj.title = getTitleObject(args.page) or mw.title.getCurrentTitle()
    if data.useCollapsibleTextFields then
        text = args.issue
        talk = args.talk
        fix = args.fix
        date = args.date
        info = args.info
    else
        text = args.text
    end


    -- Find whether we are using a small message box and process our data accordingly.
-- Set the config for our box type.
    local isSmall = data.allowSmall and (args.small == 'yes' or args.small == true) and true or false
obj.cfg = cfg[boxType]
    local smallClass, image, imageRight, imageSize
if not obj.cfg then
    if isSmall then
local ns = obj.title.namespace
        smallClass = data.smallClass or 'mbox-small'
-- boxType is "mbox" or invalid input
        image = args.smallimage or args.image
if args.demospace and args.demospace ~= '' then
        imageRight = args.smallimageright or args.imageright
-- implement demospace parameter of mbox
        text = args.smalltext or text
local demospace = string.lower(args.demospace)
        imageSize = data.imageSmallSize or '30x30px'
if DEMOSPACES[demospace] then
    else
-- use template from DEMOSPACES
        image = args.image
obj.cfg = cfg[DEMOSPACES[demospace]]
        imageRight = args.imageright
elseif string.find( demospace, 'talk' ) then
        imageSize = '40x40px'
-- demo as a talk page
    end
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
local nsTable = mw.site.namespaces[ns]
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


    ------------------------ Get the box structure ----------------------------
-- Set the arguments, and remove all blank arguments except for the ones
-- listed in cfg.allowBlankParams.
do
local newArgs = {}
for k, v in pairs(args) do
if v ~= '' then
newArgs[k] = v
end
end
for i, param in ipairs(obj.cfg.allowBlankParams or {}) do
newArgs[param] = args[param]
end
obj.args = newArgs
end


    local root = htmlBuilder.create() -- Includes error messages and categories added after the box.
-- Define internal data structure.
    local substCheck = root.tag('b').addClass('error')
obj.categories = {}
    local box = root.tag('table')
obj.classes = {}
    local row = box.tag('tr')
-- For lazy loading of [[Module:Category handler]].
    local imageLeftCell = row.tag('td').addClass('mbox-image')
obj.hasCategories = false
    local textCell = row.tag('td').addClass('mbox-text')
    local imageRightCell = row.tag('td').addClass('mbox-imageright')


    ------------------------ Build the box ----------------------------
return setmetatable(obj, MessageBox)
end


    -- Do the subst check.
function MessageBox:addCat(ns, cat, sort)
    if data.substCheck and args.subst == 'SUBST' then
if not cat then
        if type(args.name) == 'string' then
return nil
            substCheck
end
                .wikitext(mw.ustring.format(
if sort then
                    'Template <code>%s%s%s</code> has been incorrectly substituted.',
cat = string.format('[[Category:%s|%s]]', cat, sort)
                    mw.text.nowiki('{{'),
else
                    args.name,
cat = string.format('[[Category:%s]]', cat)
                    mw.text.nowiki('}}')
end
                ))
self.hasCategories = true
        end
self.categories[ns] = self.categories[ns] or {}
        root.wikitext('[[Category:Pages with incorrectly substituted templates]]') -- This puts the category at the *end* of the output, rather than after the subst error message.
table.insert(self.categories[ns], cat)
    end
end


    -- Build the box.
function MessageBox:addClass(class)
    box
if not class then
        .attr('id', args.id)
return nil
    for i, class in ipairs(data.classes) do
end
        box
table.insert(self.classes, class)
            .addClass(class)
end
    end
    box
        .addClass(isSmall and smallClass)
        .addClass(data.classPlainlinksYesno and yesno(args.plainlinks or true) and 'plainlinks')
        .addClass(typeData.class)
        .addClass(args.class)
        .cssText(args.style)
        .attr('role', 'presentation')


    -- Add the left-hand image.
function MessageBox:setParameters()
    local imageCheckBlank = data.imageCheckBlank
local args = self.args
    if image ~= 'none' and not imageCheckBlank or image ~= 'none' and imageCheckBlank and image ~= 'blank' then
local cfg = self.cfg
        if not isSmall and data.imageCellDiv then
            imageLeftCell = imageLeftCell.tag('div').css('width', '52px') -- If we are using a div, redefine imageLeftCell so that the image is inside it.
        end
        imageLeftCell
            .wikitext(image or mw.ustring.format('[[File:%s|%s|link=|alt=]]', typeData.image, imageSize))
    elseif data.imageEmptyCell then
        row.tag('td')
            .addClass('mbox-empty-cell') -- No image. Cell with some width or padding necessary for text cell to have 100% width.
            .cssText(data.imageEmptyCellStyle and 'border:none;padding:0px;width:1px')
    end


    -- Add the text.
-- Get type data.
    if data.useCollapsibleTextFields then
self.type = args.type
        textCell
local typeData = cfg.types[self.type]
            .cssText(args.textstyle)
self.invalidTypeError = cfg.showInvalidTypeError
        local textCellSpan = textCell.tag('span')
and self.type
        textCellSpan
and not typeData
            .addClass('mbox-text-span')
typeData = typeData or cfg.types[cfg.default]
            .wikitext(text)
self.typeClass = typeData.class
        if not isSmall then
self.typeImage = typeData.image
            textCellSpan
                .tag('span')
                    .addClass('hide-when-compact')
                    .wikitext(talk)
                    .wikitext(fix)
                    .done()
        end
        textCellSpan
            .wikitext(date and mw.ustring.format(" <small>''(%s)''</small>", date))
        if not isSmall then
            textCellSpan
                .tag('span')
                    .addClass('hide-when-compact')
                    .wikitext(info and ' ' .. info)
        end
    else
        textCell
            .cssText(args.textstyle)
            .wikitext(text)
    end


    -- Add the right-hand image.
-- Find if the box has been wrongly substituted.
    if imageRight and not (data.imageRightNone and imageRight == 'none') then
self.isSubstituted = cfg.substCheck and args.subst == 'SUBST'
        if not isSmall and data.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(imageRight)
    end


    -- Add the below row.
-- Find whether we are using a small message box.
    if data.below and args.below then
self.isSmall = cfg.allowSmall and (
        box.tag('tr')
cfg.smallParam and args.small == cfg.smallParam
            .tag('td')
or not cfg.smallParam and yesno(args.small)
                .attr('colspan', args.imageright and '3' or '2')
)
                .addClass('mbox-text')
                .cssText(args.textstyle)
                .wikitext(args.below)
    end


    ------------------------ Add error messages and categories ----------------------------
-- Add attributes, classes and styles.
self.id = args.id
self.name = args.name
if self.name then
self:addClass('box-' .. string.gsub(self.name,' ','_'))
end
if yesno(args.plainlinks) ~= false then
self:addClass('plainlinks')
end
for _, class in ipairs(cfg.classes or {}) do
self:addClass(class)
end
if self.isSmall then
self:addClass(cfg.smallClass or 'mbox-small')
end
self:addClass(self.typeClass)
self:addClass(args.class)
self.style = args.style
self.attrs = args.attrs


    -- Add error message and tracking category for invalid type parameters.
-- Set text style.
    if invalidType then
self.textstyle = args.textstyle
        local catsort = (nsid == 0 and 'Main:' or '') .. title.prefixedText
        root
            .tag('div')
                .css('text-align', 'center')
                .wikitext(mw.ustring.format('This message box is using an invalid "type=%s" parameter and needs fixing.', args.type or ''))
                .done()
            .wikitext(mw.ustring.format('[[Category:Wikipedia message box parameter needs fixing|%s]]', catsort))
    end


    -- Categorise template pages.
-- Find if we are on the template page or not. This functionality is only
    if data.category and nsid == 10 and not title.isSubpage and not yesno(args.nocat) then
-- used if useCollapsibleTextFields is set, or if both cfg.templateCategory
            root.wikitext(mw.ustring.format('[[Category:%s]]', data.category))
-- and cfg.templateCategoryRequireName are set.
    end
self.useCollapsibleTextFields = cfg.useCollapsibleTextFields
    return tostring(root)
if self.useCollapsibleTextFields
or cfg.templateCategory
and cfg.templateCategoryRequireName
then
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)
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 = 'This ' .. (cfg.sectionDefault or 'page')
elseif type(args.sect) == 'string' then
sect = 'This ' .. 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 = {}
table.insert(issues, sect)
table.insert(issues, issue)
table.insert(issues, text)
self.issue = table.concat(issues, ' ')
end
 
-- Get the self.talk value.
local talk = args.talk
-- Show talk links on the template page or template subpages if the talk
-- parameter is blank.
if talk == ''
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 self.isSmall then
                    local talkLink = talkArgIsTalkPage and talk or (talkTitle.prefixedText .. '#' .. talk)
                    talkText = string.format('([[%s|talk]])', talkLink)
                else
                    talkText = 'Relevant discussion may be found on'
                    if talkArgIsTalkPage then
                        talkText = string.format(
                            '%s [[%s|%s]].',
                            talkText,
                            talk,
                            talkTitle.prefixedText
                        )
                    else
                        talkText = string.format(
                            '%s the [[%s#%s|talk page]].',
                            talkText,
                            talkTitle.prefixedText,
                            talk
                        )
                    end
                end
self.talk = talkText
end
end
 
-- Get other values.
self.fix = args.fix ~= '' and args.fix or nil
local date
if args.date and args.date ~= '' then
date = args.date
elseif args.date == '' and self.isTemplatePage then
date = lang:formatDate('F Y')
end
if date then
self.date = string.format(" <span class='date-container'><i>(<span class='date'>%s</span>)</i></span>", date)
end
self.info = args.info
if yesno(args.removalnotice) then
self.removalNotice = cfg.removalNotice
end
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
self.imageEmptyCell = cfg.imageEmptyCell
 
-- 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 = string.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
-- set templatestyles
self.base_templatestyles = cfg.templatestyles
self.templatestyles = args.templatestyles
end
end


function p._ambox(args)
function MessageBox:setMainspaceCategories()
    local data = {}
local args = self.args
    data.types = {
local cfg = self.cfg
        speedy = {
 
            class = 'ambox-speedy',
if not cfg.allowMainspaceCategories then
            image = 'Ambox speedy deletion.png'
return nil
        },
end
        delete = {
 
            class = 'ambox-delete',
local nums = {}
            image = 'Ambox deletion.png'
for _, prefix in ipairs{'cat', 'category', 'all'} do
        },
args[prefix .. '1'] = args[prefix]
        content = {
nums = union(nums, getArgNums(args, prefix))
            class = 'ambox-content',
end
            image = 'Ambox content.png'
 
        },
-- The following is roughly equivalent to the old {{Ambox/category}}.
        style = {
local date = args.date
            class = 'ambox-style',
date = type(date) == 'string' and date
            image = 'Edit-clear.svg'
local preposition = 'from'
        },
for _, num in ipairs(nums) do
        move = {
local mainCat = args['cat' .. tostring(num)]
            class = 'ambox-move',
or args['category' .. tostring(num)]
            image = 'Ambox move.png'
local allCat = args['all' .. tostring(num)]
        },
mainCat = type(mainCat) == 'string' and mainCat
        protection = {
allCat = type(allCat) == 'string' and allCat
            class = 'ambox-protection',
if mainCat and date and date ~= '' then
            image = 'Ambox protection.png'
local catTitle = string.format('%s %s %s', mainCat, preposition, date)
        },
self:addCat(0, catTitle)
        notice = {
catTitle = getTitleObject('Category:' .. catTitle)
            class = 'ambox-notice',
if not catTitle or not catTitle.exists then
            image = 'Ambox notice.png'
self:addCat(0, 'Articles with invalid date parameter in template')
        }
end
    }
elseif mainCat and (not date or date == '') then
    data.default = 'notice'
self:addCat(0, mainCat)
    data.allowSmall = true
end
    data.substCheck = true
if allCat then
    data.classes = {'metadata', 'plainlinks', 'ambox'}
self:addCat(0, allCat)
    data.smallClass = 'mbox-small-left'
end
    data.imageEmptyCell = true
end
    data.imageCheckBlank = true
    data.imageSmallSize = '20x20px'
    data.imageCellDiv = true
    data.useCollapsibleTextFields = true
    data.imageRightNone = true
    return p.build(data, args)
end
end


function p._fmbox(args)
function MessageBox:setTemplateCategories()
    local data = {}
local args = self.args
    data.types = {
local cfg = self.cfg
        warning = {
 
            class = 'fmbox-warning',
-- Add template categories.
            image = 'Cmbox deletion.png'
if cfg.templateCategory then
        },
if cfg.templateCategoryRequireName then
        editnotice = {
if self.isTemplatePage then
            class = 'fmbox-editnotice',
self:addCat(10, cfg.templateCategory)
            image = 'Imbox notice.png'
end
        },
elseif not self.title.isSubpage then
        system = {
self:addCat(10, cfg.templateCategory)
            class = 'fmbox-system',
end
            image = 'Imbox notice.png'
end
        }
 
    }
-- Add template error categories.
    data.default = 'system'
if cfg.templateErrorCategory then
    data.classes = { 'plainlinks', 'fmbox' }
local templateErrorCategory = cfg.templateErrorCategory
    data.imageEmptyCell = false
local templateCat, templateSort
    data.imageRightNone = false
if not self.name and not self.title.isSubpage then
    return p.build(data, args)
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(10, templateCat, templateSort)
end
end
end


function p._ombox(args)
function MessageBox:setAllNamespaceCategories()
    local data = {}
-- Set categories for all namespaces.
    data.types = {
if self.invalidTypeError then
        speedy = {
local allSort = (self.title.namespace == 0 and 'Main:' or '') .. self.title.prefixedText
            class = 'ombox-speedy',
self:addCat('all', 'Wikipedia message box parameter needs fixing', allSort)
            image = 'Imbox speedy deletion.png'
end
        },
if self.isSubstituted then
        delete = {
self:addCat('all', 'Pages with incorrectly substituted templates')
            class = 'ombox-delete',
end
            image = 'Imbox deletion.png'
        },
        content = {
            class = 'ombox-content',
            image = 'Imbox content.png'
        },
        style = {
            class = 'ombox-style',
            image = 'Edit-clear.svg'
        },
        move = {
            class = 'ombox-move',
            image = 'Imbox move.png'
        },
        protection = {
            class = 'ombox-protection',
            image = 'Imbox protection.png'
        },
        notice = {
            class = 'ombox-notice',
            image = 'Imbox notice.png'
        }
    }
    data.default = 'notice'
    data.classes = {'plainlinks', 'ombox'}
    data.allowSmall = true
    data.imageEmptyCell = true
    data.imageRightNone = true
    return p.build(data, args)
end
end


function p._imbox(args)
function MessageBox:setCategories()
    local data = {}
if self.title.namespace == 0 then
    data.types = {
self:setMainspaceCategories()
        speedy = {
elseif self.title.namespace == 10 then
            class = 'imbox-speedy',
self:setTemplateCategories()
            image = 'Imbox speedy deletion.png'
end
        },
self:setAllNamespaceCategories()
        delete = {
            class = 'imbox-delete',
            image = 'Imbox deletion.png'
        },
        content = {
            class = 'imbox-content',
            image = 'Imbox content.png'
        },
        style = {
            class = 'imbox-style',
            image = 'Edit-clear.svg'
        },
        move = {
            class = 'imbox-move',
            image = 'Imbox move.png'
        },
        protection = {
            class = 'imbox-protection',
            image = 'Imbox protection.png'
        },
        license = {
            class = 'imbox-license',
            image = 'Imbox license.png'
        },
        featured = {
            class = 'imbox-featured',
            image = 'Imbox featured.png'
        },
        notice = {
            class = 'imbox-notice',
            image = 'Imbox notice.png'
        }
    }
    data.default = 'notice'
    data.classes = {'imbox'}
    data.classPlainlinksYesno = true
    data.imageEmptyCell = true
    data.below = true
    return p.build(data, args)
end
end


function p._cmbox(args)
function MessageBox:renderCategories()
    local data = {}
if not self.hasCategories then
    data.types = {
-- No categories added, no need to pass them to Category handler so,
        speedy = {
-- if it was invoked, it would return the empty string.
            class = 'cmbox-speedy',
-- So we shortcut and return the empty string.
            image = 'Cmbox deletion.png'
return ""
        },
end
        delete = {
-- Convert category tables to strings and pass them through
            class = 'cmbox-delete',
-- [[Module:Category handler]].
            image = 'Cmbox deletion.png'
return require('Module:Category handler')._main{
        },
main = table.concat(self.categories[0] or {}),
        content = {
template = table.concat(self.categories[10] or {}),
            class = 'cmbox-content',
all = table.concat(self.categories.all or {}),
            image = 'Cmbox content.png'
nocat = self.args.nocat,
        },
page = self.args.page
        style = {
}
            class = 'cmbox-style',
end
            image = 'Edit-clear.svg'
 
        },
function MessageBox:export()
        move = {
local root = mw.html.create()
            class = 'cmbox-move',
 
            image = 'Cmbox move.png'
-- Add the subst check error.
        },
if self.isSubstituted and self.name then
        protection = {
root:tag('b')
            class = 'cmbox-protection',
:addClass('error')
            image = 'Cmbox protection.png'
:wikitext(string.format(
        },
'Template <code>%s[[Template:%s|%s]]%s</code> has been incorrectly substituted.',
        notice = {
mw.text.nowiki('{{'), self.name, self.name, mw.text.nowiki('}}')
            class = 'cmbox-notice',
))
            image = 'Cmbox notice.png'
end
        }
 
    }
local frame = mw.getCurrentFrame()
    data.default = 'notice'
root:wikitext(frame:extensionTag{
    data.classes = {'plainlinks', 'cmbox'}
name = 'templatestyles',
    return p.build(data, args)
args = { src = self.base_templatestyles },
})
-- Add support for a single custom templatestyles sheet. Undocumented as
-- need should be limited and many templates using mbox are substed; we
-- don't want to spread templatestyles sheets around to arbitrary places
if self.templatestyles then
root:wikitext(frame:extensionTag{
name = 'templatestyles',
args = { src = self.templatestyles },
})
end
 
-- Create the box table.
local boxTable = root:tag('table')
boxTable:attr('id', self.id or nil)
for i, class in ipairs(self.classes or {}) do
boxTable:addClass(class or nil)
end
boxTable
:cssText(self.style or nil)
:attr('role', 'presentation')
 
if self.attrs then
boxTable:attr(self.attrs)
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
-- 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'):addClass('mbox-image-div')
end
imageLeftCell:wikitext(self.imageLeft or nil)
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')
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 or nil)
local textCellDiv = textCell:tag('div')
textCellDiv
:addClass('mbox-text-span')
:wikitext(self.issue or nil)
if (self.talk or self.fix) then
textCellDiv:tag('span')
:addClass('hide-when-compact')
:wikitext(self.talk and (' ' .. self.talk) or nil)
:wikitext(self.fix and (' ' .. self.fix) or nil)
end
textCellDiv:wikitext(self.date and (' ' .. self.date) or nil)
if self.info and not self.isSmall then
textCellDiv
:tag('span')
:addClass('hide-when-compact')
:wikitext(self.info and (' ' .. self.info) or nil)
end
if self.removalNotice then
textCellDiv:tag('span')
:addClass('hide-when-compact')
:tag('i')
:wikitext(string.format(" (%s)", self.removalNotice))
end
else
-- Default text formatting - anything goes.
textCell
:cssText(self.textstyle or nil)
:wikitext(self.text or nil)
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'):addClass('mbox-image-div')
end
imageRightCell
:wikitext(self.imageRight or nil)
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 or nil)
:wikitext(self.below or nil)
end
 
-- Add error message for invalid type parameters.
if self.invalidTypeError then
root:tag('div')
:addClass('mbox-invalid-type')
: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:renderCategories() or nil)
 
return tostring(root)
end
end


function p._tmbox(args)
--------------------------------------------------------------------------------
    local data = {}
-- Exports
    data.types = {
--------------------------------------------------------------------------------
        speedy = {
 
            class = 'tmbox-speedy',
local p, mt = {}, {}
            image = 'Imbox speedy deletion.png'
 
        },
function p._exportClasses()
        delete = {
-- For testing.
            class = 'tmbox-delete',
return {
            image = 'Imbox deletion.png'
MessageBox = MessageBox
        },
}
        content = {
            class = 'tmbox-content',
            image = 'Imbox content.png'
        },
        style = {
            class = 'tmbox-style',
            image = 'Edit-clear.svg '
        },
        move = {
            class = 'tmbox-move',
            image = 'Imbox move.png'
        },
        protection = {
            class = 'tmbox-protection',
            image = 'Imbox protection.png'
        },
        notice = {
            class = 'tmbox-notice',
            image = 'Imbox notice.png'
        }
    }
    data.default = 'notice'
    data.classes = {'plainlinks', 'tmbox'}
    data.allowSmall = true
    data.imageRightNone = true
    data.imageEmptyCellStyle = true
    data.category = 'Talk message boxes'
    return p.build(data, args)
end
end


local function makeWrapper(func)
function p.main(boxType, args, cfgTables)
    return function (frame)
local box = MessageBox.new(boxType, args, cfgTables or mw.loadData(CONFIG_MODULE))
        -- If called via #invoke, use the args passed into the invoking
box:setParameters()
        -- template, or the args passed to #invoke if any exist. Otherwise
box:setCategories()
        -- assume args are being passed directly in from the debug console
return box:export()
        -- or from another Lua module.
        local origArgs
        if frame == mw.getCurrentFrame() then
            origArgs = frame:getParent().args
            for k, v in pairs(frame.args) do
                origArgs = frame.args
                break
            end
        else
            origArgs = frame
        end
        -- Trim whitespace and remove blank arguments.
        local args = {}
        for k, v in pairs(origArgs) do
            if type(v) == 'string' then
                v = mw.text.trim(v)
            end
            if v ~= '' or k == 'talk' or k == 'sect' or k == 'date' then
                args[k] = v
            end
        end
        return func(args)
    end
end
end


p.ambox = makeWrapper(p._ambox)
function mt.__index(t, k)
p.fmbox = makeWrapper(p._fmbox)
return function (frame)
p.imbox = makeWrapper(p._imbox)
if not getArgs then
p.ombox = makeWrapper(p._ombox)
getArgs = require('Module:Arguments').getArgs
p.cmbox = makeWrapper(p._cmbox)
end
p.tmbox = makeWrapper(p._tmbox)
return t.main(k, getArgs(frame, {trim = false, removeBlanks = false}))
end
end


return p
return setmetatable(p, mt)