Editing Module:Message box

From MINR.ORG WIKI

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 save the changes below to finish undoing the edit.
Latest revision Your text
Line 1: Line 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 htmlBuilder = require('Module:HtmlBuilder')
−
local getArgs
+
local categoryHandler = require('Module:Category handler').main
−
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 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 {}
 +
    tinsert(self.classes, class)
 +
end
  
−
-- Set the config for our box type.
+
function box:setTitle(args)
−
obj.cfg = cfg[boxType]
+
    -- Get the title object and the namespace.
−
if not obj.cfg then
+
    self.pageTitle = getTitleObject(args.page ~= '' and args.page)
−
local ns = obj.title.namespace
+
    self.title = self.pageTitle or mw.title.getCurrentTitle()
−
-- boxType is "mbox" or invalid input
+
    self.demospace = args.demospace ~= '' and args.demospace or nil
−
if ns == 0 then
+
    self.nsid = box.getNamespaceId(self.demospace) or self.title.namespace
−
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
 
−
-- 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
 
−
 
 
−
-- Define internal data structure.
 
−
obj.categories = {}
 
−
obj.classes = {}
 
−
 
 
−
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 cfg = cfgTables[boxType]
−
else
+
    if not cfg then
−
cat = string.format('[[Category:%s]]', cat)
+
        local boxTypes = {}
−
end
+
        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]
−
-- Get type data.
+
    self.invalidTypeError = cfg.showInvalidTypeError and self.type and not typeData and true or false
−
self.type = args.type
+
    typeData = typeData or cfg.types[cfg.default]
−
local typeData = cfg.types[self.type]
+
    self.typeClass = typeData.class
−
self.invalidTypeError = cfg.showInvalidTypeError
+
    self.typeImage = typeData.image
−
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 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
−
if yesno(args.plainlinks) ~= false then
+
        self.id = args.id
−
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)
−
end
+
    end
−
if self.isSmall then
+
    if self.isSmall then
−
self:addClass(cfg.smallClass or 'mbox-small')
+
        self:addClass(cfg.smallClass or 'mbox-small')
−
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
+
    -- Process data for collapsible text fields. At the moment these are only used in {{ambox}}.
−
-- used if useCollapsibleTextFields is set, or if both cfg.templateCategory
+
    self.useCollapsibleTextFields = cfg.useCollapsibleTextFields  
−
-- and cfg.templateCategoryRequireName are set.
+
    if self.useCollapsibleTextFields then
−
self.useCollapsibleTextFields = cfg.useCollapsibleTextFields
+
        self.name = args.name
−
if self.useCollapsibleTextFields
+
        local nameTitle = getTitleObject(self.name)
−
or cfg.templateCategory
+
        self.isTemplatePage = nameTitle and self.title.prefixedText == ('Template:' .. nameTitle.text) and true or false
−
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)
 
−
end
 
  
−
-- Process data for collapsible text fields. At the moment these are only
+
        -- Get the self.issue value.
−
-- used in {{ambox}}.
+
        if self.isSmall and args.smalltext then
−
if self.useCollapsibleTextFields then
+
            self.issue = args.smalltext
−
-- Get the self.issue value.
+
        else
−
if self.isSmall and args.smalltext then
+
            local sect
−
self.issue = args.smalltext
+
            if args.sect == '' then
−
else
+
                sect = 'This ' .. (cfg.sectionDefault or 'page')
−
local sect
+
            elseif type(args.sect) == 'string' then
−
if args.sect == '' then
+
                sect = 'This ' .. args.sect
−
sect = 'This ' .. (cfg.sectionDefault or 'page')
+
            end
−
elseif type(args.sect) == 'string' then
+
            local issue = args.issue
−
sect = 'This ' .. args.sect
+
            issue = type(issue) == 'string' and issue or nil
−
end
+
            local text = args.text
−
local issue = args.issue
+
            text = type(text) == 'string' and text or nil
−
issue = type(issue) == 'string' and issue ~= '' and issue or nil
+
            local issues = {}
−
local text = args.text
+
            tinsert(issues, sect)
−
text = type(text) == 'string' and text or nil
+
            tinsert(issues, issue)
−
local issues = {}
+
            tinsert(issues, text)
−
table.insert(issues, sect)
+
            self.issue = tconcat(issues, ' ')
−
table.insert(issues, issue)
+
        end
−
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
+
                else
−
if not talkTitle or not talkTitle.isTalkPage then
+
                    talkText = format('%s the [[%s#%s|talk page]].', talkText, talkTitle.prefixedText, talk)
−
talkArgIsTalkPage = false
+
                end
−
talkTitle = getTitleObject(
+
                self.talk = talkText
−
self.title.text,
+
            end
−
mw.site.namespaces[self.title.namespace].talk.id
+
        end
−
)
 
−
end
 
−
if talkTitle and talkTitle.exists then
 
−
local 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
 
−
self.talk = talkText
 
−
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(" <small>''(%s)''</small>", 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
+
    if cfg.imageEmptyCellStyle then
−
self.imageEmptyCellStyle = 'border:none;padding:0px;width:1px'
+
        self.imageEmptyCellStyle = 'border:none;padding:0px;width:1px'
−
end
+
    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
−
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)
 +
        if args.all then
 +
            args.all1 = args.all
 +
        end
 +
        -- 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
 +
            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 type(self.name) == 'string' and self.title.prefixedText == ('Template:' .. self.name) 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
  
−
local nums = {}
+
    -- Categories for all namespaces.
−
for _, prefix in ipairs{'cat', 'category', 'all'} do
+
    if self.invalidTypeError then
−
args[prefix .. '1'] = args[prefix]
+
        local allSort = (nsid == 0 and 'Main:' or '') .. self.title.prefixedText
−
nums = union(nums, getArgNums(args, prefix))
+
        self:addCat('all', 'Wikipedia message box parameter needs fixing', allSort)
−
end
+
    end
 +
    if self.isSubstituted then
 +
        self:addCat('all', 'Pages with incorrectly substituted templates')
 +
    end
  
−
-- The following is roughly equivalent to the old {{Ambox/category}}.
+
    -- Convert category tables to strings and pass them through [[Module:Category handler]].
−
local date = args.date
+
    self.categories = categoryHandler{
−
date = type(date) == 'string' and date
+
        main = tconcat(self.mainCats or {}),
−
local preposition = 'from'
+
        template = tconcat(self.templateCats or {}),
−
for _, num in ipairs(nums) do
+
        all = tconcat(self.allCats or {}),
−
local mainCat = args['cat' .. tostring(num)]
+
        nocat = args.nocat,
−
or args['category' .. tostring(num)]
+
        demospace = self.demospace,
−
local allCat = args['all' .. tostring(num)]
+
        page = self.pageTitle and self.pageTitle.prefixedText or nil
−
mainCat = type(mainCat) == 'string' and mainCat
+
    }
−
allCat = type(allCat) == 'string' and allCat
 
−
if mainCat and date and date ~= '' then
 
−
local catTitle = string.format('%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
 
−
if allCat then
 
−
self:addCat(0, allCat)
 
−
end
 
−
end
 
 
end
 
end
  
−
function MessageBox:setTemplateCategories()
+
function box:export()
−
local args = self.args
+
    local root = htmlBuilder.create()
−
local cfg = self.cfg
 
  
−
-- Add template categories.
+
    -- Add the subst check error.
−
if cfg.templateCategory then
+
    if self.isSubstituted and self.name then
−
if cfg.templateCategoryRequireName then
+
        root
−
if self.isTemplatePage then
+
            .tag('b')
−
self:addCat(10, cfg.templateCategory)
+
                .addClass('error')
−
end
+
                .wikitext(format(
−
elseif not self.title.isSubpage then
+
                    'Template <code>%s[[Template:%s|%s]]%s</code> has been incorrectly substituted.',
−
self:addCat(10, cfg.templateCategory)
+
                    mw.text.nowiki('{{'), self.name, self.name, mw.text.nowiki('}}')
−
end
+
                ))
−
end
+
    end
  
−
-- Add template error categories.
+
    -- Create the box table.
−
if cfg.templateErrorCategory then
+
    local boxTable = root.tag('table')
−
local templateErrorCategory = cfg.templateErrorCategory
+
    boxTable
−
local templateCat, templateSort
+
        .attr('id', self.id)
−
if not self.name and not self.title.isSubpage then
+
    for i, class in ipairs(self.classes or {}) do
−
templateCat = templateErrorCategory
+
        boxTable
−
elseif self.isTemplatePage then
+
            .addClass(class)
−
local paramsToCheck = cfg.templateErrorParamsToCheck or {}
+
    end
−
local count = 0
+
    boxTable
−
for i, param in ipairs(paramsToCheck) do
+
        .cssText(self.style)
−
if not args[param] then
+
        .attr('role', 'presentation')
−
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()
+
    -- Add the left-hand image.
−
-- Set categories for all namespaces.
+
    local row = boxTable.tag('tr')
−
if self.invalidTypeError then
+
    if self.imageLeft then
−
local allSort = (self.title.namespace == 0 and 'Main:' or '') .. self.title.prefixedText
+
        local imageLeftCell = row.tag('td').addClass('mbox-image')
−
self:addCat('all', 'Wikipedia message box parameter needs fixing', allSort)
+
        if self.imageCellDiv then
−
end
+
            -- If we are using a div, redefine imageLeftCell so that the image is inside it.
−
if self.isSubstituted then
+
            -- Divs use style="width: 52px;", which limits the image width to 52px. If any
−
self:addCat('all', 'Pages with incorrectly substituted templates')
+
            -- images in a div are wider than that, they may overlap with the text or cause
−
end
+
            -- other display problems.
−
end
+
            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
  
−
function MessageBox:setCategories()
+
    -- Add the text.
−
if self.title.namespace == 0 then
+
    local textCell = row.tag('td').addClass('mbox-text')
−
self:setMainspaceCategories()
+
    if self.useCollapsibleTextFields then
−
elseif self.title.namespace == 10 then
+
        -- The message box uses advanced text parameters that allow things to be collapsible. At the
−
self:setTemplateCategories()
+
        -- moment, only ambox uses this.
−
end
+
        textCell
−
self:setAllNamespaceCategories()
+
            .cssText(self.textstyle)
−
end
+
        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)
 +
                    .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
  
−
function MessageBox:renderCategories()
+
    -- Add the right-hand image.
−
-- Convert category tables to strings and pass them through
+
    if self.imageRight then
−
-- [[Module:Category handler]].
+
        local imageRightCell = row.tag('td').addClass('mbox-imageright')
−
return categoryHandler{
+
        if self.imageCellDiv then
−
main = table.concat(self.categories[0] or {}),
+
            imageRightCell = imageRightCell.tag('div').css('width', '52px') -- If we are using a div, redefine imageRightCell so that the image is inside it.
−
template = table.concat(self.categories[10] or {}),
+
        end
−
all = table.concat(self.categories.all or {}),
+
        imageRightCell
−
nocat = self.args.nocat,
+
            .wikitext(self.imageRight)
−
page = self.args.page
+
    end
−
}
 
−
end
 
  
−
function MessageBox:export()
+
    -- Add the below row.
−
local root = mw.html.create()
+
    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 the subst check error.
+
    -- Add error message for invalid type parameters.
−
if self.isSubstituted and self.name then
+
    if self.invalidTypeError then
−
root:tag('b')
+
        root
−
:addClass('error')
+
            .tag('div')
−
:wikitext(string.format(
+
                .css('text-align', 'center')
−
'Template <code>%s[[Template:%s|%s]]%s</code> has been incorrectly substituted.',
+
                .wikitext(format('This message box is using an invalid "type=%s" parameter and needs fixing.', self.type or ''))
−
mw.text.nowiki('{{'), self.name, self.name, mw.text.nowiki('}}')
+
    end
−
))
 
−
end
 
  
−
-- Create the box table.
+
    -- Add categories.
−
local boxTable = root:tag('table')
+
    root
−
boxTable:attr('id', self.id or nil)
+
        .wikitext(self.categories)
−
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
+
    return tostring(root)
−
boxTable:attr(self.attrs)
+
end
−
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'):css('width', '52px')
 
−
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')
 
−
:cssText(self.imageEmptyCellStyle or 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.textstyle or nil)
 
−
local textCellSpan = textCell:tag('span')
 
−
textCellSpan
 
−
:addClass('mbox-text-span')
 
−
:wikitext(self.issue or nil)
 
−
if (self.talk or self.fix) and 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 self.info and not self.isSmall then
 
−
textCellSpan
 
−
:tag('span')
 
−
:addClass('hide-when-compact')
 
−
:wikitext(self.info and (' ' .. self.info) or nil)
 
−
end
 
−
if self.removalNotice then
 
−
textCellSpan:tag('small')
 
−
: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'):css('width', '52px')
 
−
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')
 
−
: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:renderCategories() or nil)
 
  
−
return tostring(root)
+
local function main(boxType, args)
 +
    box:setTitle(args)
 +
    local cfg = box:getConfig(boxType)
 +
    args = box:removeBlankArgs(cfg, args)
 +
    box:setBoxParameters(cfg, args)
 +
    return box:export()
 
end
 
end
  
−
--------------------------------------------------------------------------------
+
local function makeWrapper(boxType)
−
-- Exports
+
    return function (frame)
−
--------------------------------------------------------------------------------
+
        -- If called via #invoke, use the args passed into the invoking
−
 
+
        -- template, or the args passed to #invoke if any exist. Otherwise
−
local p, mt = {}, {}
+
        -- assume args are being passed directly in from the debug console
−
 
+
        -- or from another Lua module.
−
function p._exportClasses()
+
        local origArgs
−
-- For testing.
+
        if frame == mw.getCurrentFrame() then
−
return {
+
            origArgs = frame:getParent().args
−
MessageBox = MessageBox
+
            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 main(boxType, args)
 +
    end
 
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

Please note that all contributions to MINR.ORG 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 MINR.ORG WIKI:Copyrights for details). Do not submit copyrighted work without permission!

Cancel Editing help (opens in new window)
Retrieved from "https://wiki.minr.org/Module:Message_box"