Editing Module:Message box

Jump to navigation Jump to search
Warning: You are not logged in. Your IP address will be publicly visible if you make any edits. If you log in or create an account, your edits will be attributed to your username, along with other benefits.

The edit can be undone. Please check the comparison below to verify that this is what you want to do, and then publish the changes below to finish undoing the edit.

Latest revision Your text
Line 1: Line 1:
require('Module:No globals')
-- This is a meta-module for producing message box templates, including {{mbox}}, {{ambox}}, {{imbox}}, {{tmbox}}, {{ombox}}, {{cmbox}} and {{fmbox}}.
local getArgs
 
-- Require necessary modules.
local htmlBuilder = require('Module:HtmlBuilder')
local categoryHandler = require('Module:Category handler').main
local yesno = require('Module:Yesno')
local yesno = require('Module:Yesno')
-- Get a language object for formatDate and ucfirst.
local lang = mw.language.getContentLanguage()
local lang = mw.language.getContentLanguage()


local CONFIG_MODULE = 'Module:Message box/configuration'
-- Set aliases for often-used functions to reduce table lookups.
local DEMOSPACES = {talk = 'tmbox', image = 'imbox', file = 'imbox', category = 'cmbox', article = 'ambox', main = 'ambox'}
local format = mw.ustring.format
local tinsert = table.insert
local tconcat = table.concat
local trim = mw.text.trim


--------------------------------------------------------------------------------
local box = {}
-- Helper functions
--------------------------------------------------------------------------------


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
end
            return title
        end
    end
end
end


local function union(t1, t2)
local function union(t1, t2)
-- Returns the union of two arrays.
    -- Returns the union of two arrays.
local vals = {}
    local vals = {}
for i, v in ipairs(t1) do
    for i, v in ipairs(t1) do
vals[v] = true
        vals[v] = true
end
    end
for i, v in ipairs(t2) do
    for i, v in ipairs(t2) do
vals[v] = true
        vals[v] = true
end
    end
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)
return ret
    return ret
end
end


local function getArgNums(args, prefix)
local function getArgNums(args, prefix)
local nums = {}
    local nums = {}
for k, v in pairs(args) do
    for k, v in pairs(args) do
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
table.sort(nums)
    table.sort(nums)
return nums
    return nums
end
end


--------------------------------------------------------------------------------
function box.getNamespaceId(ns)
-- Box class definition
    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


local MessageBox = {}
function box.getMboxType(nsid)
MessageBox.__index = MessageBox
    -- 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 MessageBox.new(boxType, args, cfg)
function box:addCat(ns, cat, sort)
args = args or {}
    if type(cat) ~= 'string' then return end
local obj = {}
    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('invalid ns parameter passed to box:addCat; valid values are ' .. mw.text.listToText(nsVals, nil, ' or '))
    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


-- Set the title object and the namespace.
function box:addClass(class)
obj.title = getTitleObject(args.page) or mw.title.getCurrentTitle()
    if type(class) ~= 'string' then return end
 
    self.classes = self.classes or {}
-- Set the config for our box type.
    tinsert(self.classes, class)
obj.cfg = cfg[boxType]
end
if not obj.cfg then
local ns = obj.title.namespace
-- boxType is "mbox" or invalid input
if args.demospace and args.demospace ~= '' then
-- implement demospace parameter of mbox
local demospace = string.lower(args.demospace)
if DEMOSPACES[demospace] then
-- use template from DEMOSPACES
obj.cfg = cfg[DEMOSPACES[demospace]]
elseif string.find( demospace, 'talk' ) then
-- 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
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


-- Set the arguments, and remove all blank arguments except for the ones
function box:setTitle(args)
-- listed in cfg.allowBlankParams.
    -- Get the title object and the namespace.
do
    self.pageTitle = getTitleObject(args.page ~= '' and args.page)
local newArgs = {}
    self.title = self.pageTitle or mw.title.getCurrentTitle()
for k, v in pairs(args) do
    self.demospace = args.demospace ~= '' and args.demospace or nil
if v ~= '' then
    self.nsid = box.getNamespaceId(self.demospace) or self.title.namespace
newArgs[k] = v
end
end
for i, param in ipairs(obj.cfg.allowBlankParams or {}) do
newArgs[param] = args[param]
end
obj.args = newArgs
end
 
-- Define internal data structure.
obj.categories = {}
obj.classes = {}
-- For lazy loading of [[Module:Category handler]].
obj.hasCategories = false
 
return setmetatable(obj, MessageBox)
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
end
        boxType = box.getMboxType(self.nsid)
if sort then
    end
cat = string.format('[[Category:%s|%s]]', cat, sort)
    local cfgTables = mw.loadData('Module:Message box/configuration')
else
    local cfg = cfgTables[boxType]
cat = string.format('[[Category:%s]]', cat)
    if not cfg then
end
        local boxTypes = {}
self.hasCategories = true
        for k, v in pairs(dataTables) do
self.categories[ns] = self.categories[ns] or {}
            tinsert(boxTypes, format('"%s"', k))
table.insert(self.categories[ns], cat)
        end
        tinsert(boxTypes, '"mbox"')
        error(format('invalid message box type "%s"; valid types are %s', tostring(boxType), mw.text.listToText(boxTypes)), 2)
    end
    return cfg
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 = {}
end
    for k, v in pairs(args) do
table.insert(self.classes, class)
        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
end


function MessageBox:setParameters()
function box:setBoxParameters(cfg, args)
local args = self.args
    -- Get type data.
local cfg = self.cfg
    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


-- Get type data.
    -- Find if the box has been wrongly substituted.
self.type = args.type
    if cfg.substCheck and args.subst == 'SUBST' then
local typeData = cfg.types[self.type]
        self.isSubstituted = true
self.invalidTypeError = cfg.showInvalidTypeError
    end
and self.type
and not typeData
typeData = typeData or cfg.types[cfg.default]
self.typeClass = typeData.class
self.typeImage = typeData.image


-- Find if the box has been wrongly substituted.
    -- Find whether we are using a small message box.
self.isSubstituted = cfg.substCheck and args.subst == 'SUBST'
    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
           


-- Find whether we are using a small message box.
    -- Add attributes, classes and styles.
self.isSmall = cfg.allowSmall and (
    self.id = args.id
cfg.smallParam and args.small == cfg.smallParam
    self:addClass(cfg.usePlainlinksParam and yesno(args.plainlinks or true) and 'plainlinks')
or not cfg.smallParam and yesno(args.small)
    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


-- Add attributes, classes and styles.
    -- Set text style.
self.id = args.id
    self.textstyle = args.textstyle
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


-- Set text style.
    -- Process data for collapsible text fields. At the moment these are only used in {{ambox}}.
self.textstyle = args.textstyle
    self.useCollapsibleTextFields = cfg.useCollapsibleTextFields
    if self.useCollapsibleTextFields then
        self.name = args.name
        local nameTitle = getTitleObject(self.name)
        self.isTemplatePage = nameTitle and self.title.prefixedText == ('Template:' .. nameTitle.text) and true or false


-- Find if we are on the template page or not. This functionality is only
        -- Get the self.issue value.
-- used if useCollapsibleTextFields is set, or if both cfg.templateCategory
        if self.isSmall and args.smalltext then
-- and cfg.templateCategoryRequireName are set.
            self.issue = args.smalltext
self.useCollapsibleTextFields = cfg.useCollapsibleTextFields
        else
if self.useCollapsibleTextFields
            local sect
or cfg.templateCategory
            if args.sect == '' then
and cfg.templateCategoryRequireName
                sect = 'This ' .. (cfg.sectionDefault or 'page')
then
            elseif type(args.sect) == 'string' then
if self.name then
                sect = 'This ' .. args.sect
local templateName = mw.ustring.match(
            end
self.name,
            local issue = args.issue
'^[tT][eE][mM][pP][lL][aA][tT][eE][%s_]*:[%s_]*(.*)$'
            issue = type(issue) == 'string' and issue or nil
) or self.name
            local text = args.text
templateName = 'Template:' .. templateName
            text = type(text) == 'string' and text or nil
self.templateTitle = getTitleObject(templateName)
            local issues = {}
end
            tinsert(issues, sect)
self.isTemplatePage = self.templateTitle
            tinsert(issues, issue)
and mw.title.equals(self.title, self.templateTitle)
            tinsert(issues, text)
end
            self.issue = tconcat(issues, ' ')
        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.
        -- 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 == '' and self.isTemplatePage then
-- parameter is blank.
            talk = '#'
if talk == ''
        end
and self.templateTitle
        if talk then
and (
            -- See if the talk link exists and is for a talk or a content namespace.
mw.title.equals(self.templateTitle, self.title)
            local talkTitle = getTitleObject(talk)
or self.title:isSubpageOf(self.templateTitle)
            if not talkTitle or not talkTitle.isTalkPage then
)
                -- If we couldn't process the talk page link, get the talk page of the current page.
then
                local success
talk = '#'
                success, talkTitle = pcall(self.title.talkPageTitle, self.title)
elseif talk == '' then
                if not success then
talk = nil
                    talkTitle = nil
end
                end
if talk then
            end
-- If the talk value is a talk page, make a link to that page. Else
            if talkTitle and talkTitle.exists then
-- assume that it's a section heading, and make a link to the talk
                 local talkText = 'Relevant discussion may be found on'
-- page of the current page with that section heading.
                 if talkTitle.isTalkPage then
local talkTitle = getTitleObject(talk)
                     talkText = format('%s [[%s|%s]].', talkText, talk, talkTitle.prefixedText)
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
                 else
                     talkText = 'Relevant discussion may be found on'
                     talkText = format('%s the [[%s#%s|talk page]].', talkText, talkTitle.prefixedText, talk)
                    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
                 end
self.talk = talkText
                self.talk = talkText
end
            end
end
        end


-- Get other values.
        -- Get other values.
self.fix = args.fix ~= '' and args.fix or nil
        self.fix = args.fix
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.date == '' and self.isTemplatePage then
date = lang:formatDate('F Y')
            date = lang:formatDate('F Y')
end
        end
if date then
        if date then
self.date = string.format(" <span class='date-container'><i>(<span class='date'>%s</span>)</i></span>", date)
            self.date = format(" <small>''(%s)''</small>", date)
end
        end
self.info = args.info
        self.info = args.info
if yesno(args.removalnotice) then
    end
self.removalNotice = cfg.removalNotice
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
else
    else
self.text = args.text
        self.text = args.text
end
    end


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


-- 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
        self.imageEmptyCellStyle = 'border:none;padding:0px;width:1px'
    end


-- Left image settings.
    -- Left image settings.
local imageLeft = self.isSmall and args.smallimage or args.image
    local imageLeft = self.isSmall and args.smallimage or args.image
if cfg.imageCheckBlank and imageLeft ~= 'blank' and imageLeft ~= 'none'
    if cfg.imageCheckBlank and imageLeft ~= 'blank' and imageLeft ~= 'none'
or not cfg.imageCheckBlank and imageLeft ~= 'none'
        or not cfg.imageCheckBlank and imageLeft ~= 'none'
then
    then
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'
        end
self.imageLeft = string.format('[[File:%s|%s|link=|alt=]]', self.typeImage
    end
or 'Imbox notice.png', imageSize)
end
end


-- Right image settings.
    -- Right image settings.
local imageRight = self.isSmall and args.smallimageright or args.imageright
    local imageRight = self.isSmall and args.smallimageright or args.imageright
if not (cfg.imageRightNone and imageRight == 'none') then
    if not (cfg.imageRightNone and imageRight == 'none') then
self.imageRight = imageRight
        self.imageRight = imageRight
end
    end
-- set templatestyles
self.base_templatestyles = cfg.templatestyles
self.templatestyles = args.templatestyles
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
        end
        self.catNums = getArgNums(args, 'cat')
        if args.category then
            args.category1 = args.category
        end
        self.categoryNums = getArgNums(args, 'category')
        self.categoryParamNums = union(self.catNums, self.categoryNums)
        -- The following is roughly equivalent to the old {{Ambox/category}}.
        local date = args.date
        date = type(date) == 'string' and date
        local preposition = 'from'
        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 then
                local catTitle = format('%s %s %s', mainCat, preposition, date)
                self:addCat('main', catTitle)
                catTitle = getTitleObject('Category:' .. catTitle)
                if not catTitle or not catTitle.exists then
                    self:addCat('main', 'Articles with invalid date parameter in template')
                end
            elseif mainCat and not date then
                self:addCat('main', mainCat)
            end
            if allCat then
                self:addCat('main', allCat)
            end
        end
    end


if not cfg.allowMainspaceCategories then
    -- Add template-namespace categories.
return nil
    self.isTemplatePage = type(self.name) == 'string' and self.title.prefixedText == ('Template:' .. self.name)
end
    if cfg.templateCategory then
 
        if self.name then
local nums = {}
            if self.isTemplatePage then
for _, prefix in ipairs{'cat', 'category', 'all'} do
                self:addCat('template', cfg.templateCategory)
args[prefix .. '1'] = args[prefix]
            end
nums = union(nums, getArgNums(args, prefix))
        elseif not self.title.isSubpage then
end
            self:addCat('template', cfg.templateCategory)
 
        end
-- The following is roughly equivalent to the old {{Ambox/category}}.
    end
local date = args.date
   
date = type(date) == 'string' and date
    -- Add template error category.
local preposition = 'from'
    if cfg.templateErrorCategory then
for _, num in ipairs(nums) do
        local templateErrorCategory = cfg.templateErrorCategory
local mainCat = args['cat' .. tostring(num)]
        local templateCat, templateSort
or args['category' .. tostring(num)]
        if not self.name and not self.title.isSubpage then
local allCat = args['all' .. tostring(num)]
            templateCat = templateErrorCategory
mainCat = type(mainCat) == 'string' and mainCat
        elseif type(self.name) == 'string' and self.title.prefixedText == ('Template:' .. self.name) then
allCat = type(allCat) == 'string' and allCat
            local paramsToCheck = cfg.templateErrorParamsToCheck or {}
if mainCat and date and date ~= '' then
            local count = 0
local catTitle = string.format('%s %s %s', mainCat, preposition, date)
            for i, param in ipairs(paramsToCheck) do
self:addCat(0, catTitle)
                if not args[param] then
catTitle = getTitleObject('Category:' .. catTitle)
                    count = count + 1
if not catTitle or not catTitle.exists then
                end
self:addCat(0, 'Articles with invalid date parameter in template')
            end
end
            if count > 0 then
elseif mainCat and (not date or date == '') then
                templateCat = templateErrorCategory
self:addCat(0, mainCat)
                templateSort = tostring(count)
end
            end
if allCat then
            if self.categoryNums and #self.categoryNums > 0 then
self:addCat(0, allCat)
                templateCat = templateErrorCategory
end
                templateSort = 'C'
end
            end
end
        end
 
        self:addCat('template', templateCat, templateSort)
function MessageBox:setTemplateCategories()
    end
local args = self.args
local cfg = self.cfg
 
-- Add template categories.
if cfg.templateCategory then
if cfg.templateCategoryRequireName then
if self.isTemplatePage then
self:addCat(10, cfg.templateCategory)
end
elseif not self.title.isSubpage then
self:addCat(10, cfg.templateCategory)
end
end
 
-- Add template error categories.
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(10, templateCat, templateSort)
end
end


function MessageBox:setAllNamespaceCategories()
    -- Categories for all namespaces.
-- Set categories for all namespaces.
    if self.invalidTypeError then
if self.invalidTypeError then
        local allSort = (nsid == 0 and 'Main:' or '') .. self.title.prefixedText
local allSort = (self.title.namespace == 0 and 'Main:' or '') .. self.title.prefixedText
        self:addCat('all', 'Wikipedia message box parameter needs fixing', allSort)
self:addCat('all', 'Wikipedia message box parameter needs fixing', allSort)
    end
end
    if self.isSubstituted then
if self.isSubstituted then
        self:addCat('all', 'Pages with incorrectly substituted templates')
self:addCat('all', 'Pages with incorrectly substituted templates')
    end
end
end


function MessageBox:setCategories()
    -- Convert category tables to strings and pass them through [[Module:Category handler]].
if self.title.namespace == 0 then
    self.categories = categoryHandler{
self:setMainspaceCategories()
        main = tconcat(self.mainCats or {}),
elseif self.title.namespace == 10 then
        template = tconcat(self.templateCats or {}),
self:setTemplateCategories()
        all = tconcat(self.allCats or {}),
end
        nocat = args.nocat,
self:setAllNamespaceCategories()
        demospace = self.demospace,
        page = self.pageTitle and self.pageTitle.prefixedText or nil
    }
end
end


function MessageBox:renderCategories()
function box:export()
if not self.hasCategories then
    local root = htmlBuilder.create()
-- No categories added, no need to pass them to Category handler so,
-- if it was invoked, it would return the empty string.
-- So we shortcut and return the empty string.
return ""
end
-- Convert category tables to strings and pass them through
-- [[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


function MessageBox:export()
    -- Add the subst check error.
local root = mw.html.create()
    if self.isSubstituted and self.name then
        root
            .tag('b')
                .addClass('error')
                .wikitext(format(
                    'Template <code>%s[[Template:%s|%s]]%s</code> has been incorrectly substituted.',
                    mw.text.nowiki('{{'), self.name, self.name, mw.text.nowiki('}}')
                ))
    end


-- Add the subst check error.
    -- Create the box table.
if self.isSubstituted and self.name then
    local boxTable = root.tag('table')
root:tag('b')
    boxTable
:addClass('error')
        .attr('id', self.id)
:wikitext(string.format(
    for i, class in ipairs(self.classes or {}) do
'Template <code>%s[[Template:%s|%s]]%s</code> has been incorrectly substituted.',
        boxTable
mw.text.nowiki('{{'), self.name, self.name, mw.text.nowiki('}}')
            .addClass(class)
))
    end
end
    boxTable
        .cssText(self.style)
        .attr('role', 'presentation')


local frame = mw.getCurrentFrame()
    -- Add the left-hand image.
root:wikitext(frame:extensionTag{
    local row = boxTable.tag('tr')
name = 'templatestyles',
    if self.imageLeft then
args = { src = self.base_templatestyles },
        local imageLeftCell = row.tag('td').addClass('mbox-image')
})
        if self.imageCellDiv then
-- Add support for a single custom templatestyles sheet. Undocumented as
            -- If we are using a div, redefine imageLeftCell so that the image is inside it.
-- need should be limited and many templates using mbox are substed; we
            -- Divs use style="width: 52px;", which limits the image width to 52px. If any
-- don't want to spread templatestyles sheets around to arbitrary places
            -- images in a div are wider than that, they may overlap with the text or cause
if self.templatestyles then
            -- other display problems.
root:wikitext(frame:extensionTag{
            imageLeftCell = imageLeftCell.tag('div').css('width', '52px')
name = 'templatestyles',
        end
args = { src = self.templatestyles },
        imageLeftCell
})
            .wikitext(self.imageLeft)
end
    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


-- Create the box table.
    -- Add the text.
local boxTable = root:tag('table')
    local textCell = row.tag('td').addClass('mbox-text')
boxTable:attr('id', self.id or nil)
    if self.useCollapsibleTextFields then
for i, class in ipairs(self.classes or {}) do
        -- The message box uses advanced text parameters that allow things to be collapsible. At the
boxTable:addClass(class or nil)
        -- moment, only ambox uses this.
end
        textCell
boxTable
            .cssText(self.textstyle)
:cssText(self.style or nil)
        local textCellSpan = textCell.tag('span')
:attr('role', 'presentation')
        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)
                    .wikitext(self.fix and ' ' .. self.fix)
        end
        textCellSpan
            .wikitext(self.date and ' ' .. self.date)
        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


if self.attrs then
    -- Add the right-hand image.
boxTable:attr(self.attrs)
    if self.imageRight then
end
        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 left-hand image.
    -- Add the below row.
local row = boxTable:tag('tr')
    if self.below then
if self.imageLeft then
        boxTable.tag('tr')
local imageLeftCell = row:tag('td'):addClass('mbox-image')
            .tag('td')
if self.imageCellDiv then
                .attr('colspan', self.imageRight and '3' or '2')
-- If we are using a div, redefine imageLeftCell so that the image
                .addClass('mbox-text')
-- is inside it. Divs use style="width: 52px;", which limits the
                .cssText(self.textstyle)
-- image width to 52px. If any images in a div are wider than that,
                .wikitext(self.below)
-- they may overlap with the text or cause other display problems.
    end
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


--------------------------------------------------------------------------------
    -- Add error message for invalid type parameters.
-- Exports
    if self.invalidTypeError then
--------------------------------------------------------------------------------
        root
            .tag('div')
                .addClass('error')
                .css('text-align', 'center')
                .wikitext(format('This message box is using an invalid type parameter (<code>type=%s</code>) and needs fixing.', self.type or ''))
    end


local p, mt = {}, {}
    -- Add categories.
    root
        .wikitext(self.categories)


function p._exportClasses()
    return tostring(root)
-- For testing.
return {
MessageBox = MessageBox
}
end
end


function p.main(boxType, args, cfgTables)
local function makeBox(boxType, args)
local box = MessageBox.new(boxType, args, cfgTables or mw.loadData(CONFIG_MODULE))
    box:setTitle(args)
box:setParameters()
    local cfg = box:getConfig(boxType)
box:setCategories()
    args = box:removeBlankArgs(cfg, args)
return box:export()
    box:setBoxParameters(cfg, args)
    return box:export()
end
end


function mt.__index(t, k)
local function makeWrapper(boxType)
return function (frame)
    return function (frame)
if not getArgs then
        -- If called via #invoke, use the args passed into the invoking
getArgs = require('Module:Arguments').getArgs
        -- template, or the args passed to #invoke if any exist. Otherwise
end
        -- assume args are being passed directly in from the debug console
return t.main(k, getArgs(frame, {trim = false, removeBlanks = false}))
        -- or from another Lua module.
end
        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.
        local args = {}
        for k, v in pairs(origArgs) do
            if type(v) == 'string' then
                v = trim(v)
            end
            args[k] = v
        end
        return makeBox(boxType, args)
    end
end
end


return setmetatable(p, mt)
return {
    box = box,
    makeBox = makeBox,
    mbox = makeWrapper('mbox'),
    ambox = makeWrapper('ambox'),
    cmbox = makeWrapper('cmbox'),
    fmbox = makeWrapper('fmbox'),
    imbox = makeWrapper('imbox'),
    ombox = makeWrapper('ombox'),
    tmbox = makeWrapper('tmbox')
}
Please note that all contributions to Meta Wiki may be edited, altered, or removed by other contributors. If you do not want your writing to be edited mercilessly, then do not submit it here.
You are also promising us that you wrote this yourself, or copied it from a public domain or similar free resource (see Meta Wiki:Copyrights for details). Do not submit copyrighted work without permission!
Cancel Editing help (opens in new window)

Template used on this page:

Retrieved from "https://meta.skywiki.org/wiki/Module:Message_box"