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.
+
local htmlBuilder = require('Module:HtmlBuilder')
−
require('Module:No globals')
+
local nsDetect = require('Module:Namespace detect')
−
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')
  
−
-- Get a language object for formatDate and ucfirst.
+
local p = {}
−
local lang = mw.language.getContentLanguage()
 
  
−
-- Define constants
+
local function getTitleObject(page)
−
local CONFIG_MODULE = 'Module:Message box/configuration'
+
    if type(page) == 'string' then
 +
        -- Get the title object, passing the function through pcall
 +
        -- in case we are over the expensive function count limit.
 +
        local success
 +
        success, page = pcall(mw.title.new, page)
 +
        if not success then
 +
            page = nil
 +
        end
 +
    end
 +
    return page
 +
end
  
−
--------------------------------------------------------------------------------
+
local function presentButBlank(s)
−
-- Helper functions
+
    if type(s) ~= 'string' then return end
−
--------------------------------------------------------------------------------
+
    if s and not mw.ustring.find(s, '%S') then
 +
        return true
 +
    else
 +
        return false
 +
    end
 +
end
  
−
local function getTitleObject(...)
+
local function formatCategory(cat, date, all)
−
-- Get the title object, passing the function through pcall
+
    local ret = {}
−
-- in case we are over the expensive function count limit.
+
    cat = type(cat) == 'string' and cat
−
local success, title = pcall(mw.title.new, ...)
+
    date = type(date) == 'string' and date
−
if success then
+
    all = type(all) == 'string' and all
−
return title
+
    local preposition = 'from'
−
end
+
    if cat and date then
 +
        local catTitle = mw.ustring.format('Category:%s %s %s', cat, preposition, date)
 +
        table.insert(ret, mw.ustring.format('[[%s]]', catTitle))
 +
        catTitle = getTitleObject(catTitle)
 +
        if not catTitle or not catTitle.exists then
 +
            table.insert(ret, '[[Category:Articles with invalid date parameter in template]]')
 +
        end
 +
    elseif cat and not date then
 +
        table.insert(ret, mw.ustring.format('[[Category:%s]]', cat))
 +
    end
 +
    if all then
 +
        table.insert(ret, mw.ustring.format('[[Category:%s]]', all))
 +
    end
 +
    return table.concat(ret)
 
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, v in pairs(vals) do
−
table.insert(ret, k)
+
        table.insert(ret, k)
−
end
+
    end
−
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))
+
            table.insert(nums, tonumber(num))
−
end
+
        end
−
end
+
    end
−
table.sort(nums)
+
    table.sort(nums)
−
return nums
+
    return nums
−
end
 
−
 
 
−
--------------------------------------------------------------------------------
 
−
-- Box class definition
 
−
--------------------------------------------------------------------------------
 
−
 
 
−
local MessageBox = {}
 
−
MessageBox.__index = MessageBox
 
−
 
 
−
function MessageBox.new(boxType, args, cfg)
 
−
args = args or {}
 
−
local obj = {}
 
−
 
 
−
-- Set the title object and the namespace.
 
−
obj.title = getTitleObject(args.page) or mw.title.getCurrentTitle()
 
−
 
 
−
-- Set the config for our box type.
 
−
obj.cfg = cfg[boxType]
 
−
if not obj.cfg then
 
−
local ns = obj.title.namespace
 
−
-- boxType is "mbox" or invalid input
 
−
if 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
 
−
-- 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
 
−
 
 
−
function MessageBox:addCat(ns, cat, sort)
 
−
if not cat then
 
−
return nil
 
−
end
 
−
if sort then
 
−
cat = string.format('[[Category:%s|%s]]', cat, sort)
 
−
else
 
−
cat = string.format('[[Category:%s]]', cat)
 
−
end
 
−
self.categories[ns] = self.categories[ns] or {}
 
−
table.insert(self.categories[ns], cat)
 
−
end
 
−
 
 
−
function MessageBox:addClass(class)
 
−
if not class then
 
−
return nil
 
−
end
 
−
table.insert(self.classes, class)
 
−
end
 
−
 
 
−
function MessageBox:setParameters()
 
−
local args = self.args
 
−
local cfg = self.cfg
 
−
 
 
−
-- Get type data.
 
−
self.type = args.type
 
−
local typeData = cfg.types[self.type]
 
−
self.invalidTypeError = cfg.showInvalidTypeError
 
−
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.
 
−
self.isSubstituted = cfg.substCheck and args.subst == 'SUBST'
 
−
 
 
−
-- Find whether we are using a small message box.
 
−
self.isSmall = cfg.allowSmall and (
 
−
cfg.smallParam and args.small == cfg.smallParam
 
−
or not cfg.smallParam and yesno(args.small)
 
−
)
 
−
 
 
−
-- Add attributes, classes and styles.
 
−
self.id = args.id
 
−
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.
 
−
self.textstyle = args.textstyle
 
−
 
 
−
-- Find if we are on the template page or not. This functionality is only
 
−
-- used if useCollapsibleTextFields is set, or if both cfg.templateCategory
 
−
-- and cfg.templateCategoryRequireName are set.
 
−
self.useCollapsibleTextFields = cfg.useCollapsibleTextFields
 
−
if self.useCollapsibleTextFields
 
−
or cfg.templateCategory
 
−
and cfg.templateCategoryRequireName
 
−
then
 
−
self.name = args.name
 
−
if self.name then
 
−
local templateName = mw.ustring.match(
 
−
self.name,
 
−
'^[tT][eE][mM][pP][lL][aA][tT][eE][%s_]*:[%s_]*(.*)$'
 
−
) or self.name
 
−
templateName = 'Template:' .. templateName
 
−
self.templateTitle = getTitleObject(templateName)
 
−
end
 
−
self.isTemplatePage = self.templateTitle
 
−
and mw.title.equals(self.title, self.templateTitle)
 
−
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 = '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.
 
−
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(" <small>''(%s)''</small>", 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
 
−
if cfg.imageEmptyCellStyle then
 
−
self.imageEmptyCellStyle = 'border:none;padding:0px;width:1px'
 
−
end
 
−
 
 
−
-- Left image settings.
 
−
local imageLeft = self.isSmall and args.smallimage or args.image
 
−
if cfg.imageCheckBlank and imageLeft ~= 'blank' and imageLeft ~= 'none'
 
−
or not cfg.imageCheckBlank and imageLeft ~= 'none'
 
−
then
 
−
self.imageLeft = imageLeft
 
−
if not imageLeft then
 
−
local imageSize = self.isSmall
 
−
and (cfg.imageSmallSize or '30x30px')
 
−
or '40x40px'
 
−
self.imageLeft = 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
 
 
end
 
end
  
−
function MessageBox:setMainspaceCategories()
+
function p.build(boxType, args)
−
local args = self.args
+
    -- Get the box config data from the data page.
−
local cfg = self.cfg
+
    local dataTables = mw.loadData('Module:Message box/data')
 +
    local data = dataTables[boxType]
 +
    if not data then
 +
        local boxTypes = {}
 +
        for k, v in pairs(dataTables) do
 +
            table.insert(boxTypes, mw.ustring.format('"%s"', k))
 +
        end
 +
        error(mw.ustring.format('Invalid message box type. Valid types are %s.', mw.text.listToText(boxTypes)))
 +
    end
  
−
if not cfg.allowMainspaceCategories then
+
    -- Get the title object and the namespace.
−
return nil
+
    local title = mw.title.getCurrentTitle()
−
end
+
    local nsid = title.namespace
  
−
local nums = {}
+
    -- Get a language object for formatDate.
−
for _, prefix in ipairs{'cat', 'category', 'all'} do
+
    local lang = mw.language.getContentLanguage()
−
args[prefix .. '1'] = args[prefix]
+
   
−
nums = union(nums, getArgNums(args, prefix))
+
-- Commenting this out for now - this will require tinkering with Namespace detect to differentiate between
−
end
+
-- 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'
 +
    }
 +
]]
  
−
-- The following is roughly equivalent to the old {{Ambox/category}}.
+
    ------------------------ Process config data ----------------------------
−
local date = args.date
 
−
date = type(date) == 'string' and date
 
−
local preposition = 'from'
 
−
for _, num in ipairs(nums) do
 
−
local mainCat = args['cat' .. tostring(num)]
 
−
or args['category' .. tostring(num)]
 
−
local allCat = args['all' .. tostring(num)]
 
−
mainCat = type(mainCat) == 'string' and mainCat
 
−
allCat = type(allCat) == 'string' and allCat
 
−
if mainCat and date and date ~= '' then
 
−
local catTitle = 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
 
  
−
function MessageBox:setTemplateCategories()
+
    -- Type data.
−
local args = self.args
+
    local typeData = data.types[args.type]
−
local cfg = self.cfg
+
    local invalidType = args.type and not typeData and true or false
−
 
+
    typeData = typeData or data.types[data.default]
−
-- 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()
+
    -- Process data for collapsible text fields
−
-- Set categories for all namespaces.
+
    local name, issue, talk, fix, date, info
−
if self.invalidTypeError then
+
    if data.useCollapsibleTextFields then
−
local allSort = (self.title.namespace == 0 and 'Main:' or '') .. self.title.prefixedText
+
        name = args.name
−
self:addCat('all', 'Wikipedia message box parameter needs fixing', allSort)
+
        local nameTitle = getTitleObject(name)
−
end
+
        local isTemplatePage = nameTitle and title.prefixedText == ('Template:' .. nameTitle.text) and true or false
−
if self.isSubstituted then
+
        local sect = args.sect
−
self:addCat('all', 'Pages with incorrectly substituted templates')
+
        if presentButBlank(sect) then
−
end
+
            sect = mw.ustring.format('This %s ', data.sectionDefault or 'page')
−
end
+
        elseif type(sect) == 'string' then
 +
            sect = 'This ' .. sect .. ' '
 +
        end
 +
        issue = (sect or '') .. (args.issue or '') .. ' ' .. (args.text or '')
 +
        talk = args.talk
 +
        if presentButBlank(talk) and isTemplatePage then
 +
            talk = '#'
 +
        end
 +
        fix = args.fix
 +
        date = args.date
 +
        if presentButBlank(date) and isTemplatePage then
 +
            date = lang:formatDate('F Y')
 +
        end
 +
        info = args.info
 +
    end
  
−
function MessageBox:setCategories()
+
    -- Process the talk link, if present.
−
if self.title.namespace == 0 then
+
    if talk then
−
self:setMainspaceCategories()
+
        -- See if the talk link exists and is for a talk or a content namespace.
−
elseif self.title.namespace == 10 then
+
        local talkTitle = type(talk) == 'string' and getTitleObject(talk)
−
self:setTemplateCategories()
+
        if not talkTitle or not talkTitle.isTalkPage then
−
end
+
            -- If we couldn't process the talk page link, get the talk page of the current page.
−
self:setAllNamespaceCategories()
+
            local success
−
end
+
            success, talkTitle = pcall(title.talkPageTitle, title)
 +
            if not success then
 +
                talkTitle = nil
 +
            end
 +
        end
 +
        if talkTitle and talkTitle.exists then
 +
            local talkText = ' Relevant discussion may be found on'
 +
            if talkTitle.isTalkPage then
 +
                talkText = mw.ustring.format('%s [[%s|%s]].', talkText, talk, talkTitle.prefixedText)
 +
            else
 +
                talkText = mw.ustring.format('%s the [[%s#%s|talk page]].', talkText, talkTitle.prefixedText, talk)
 +
            end
 +
            talk = talkText
 +
        end
 +
    end
  
−
function MessageBox:renderCategories()
+
    -- Find whether we are using a small message box and process our data accordingly.
−
-- Convert category tables to strings and pass them through
+
    local isSmall = data.allowSmall and (args.small == 'yes' or args.small == true) and true or false
−
-- [[Module:Category handler]].
+
    local smallClass, image, imageRight, text, imageSize
−
return categoryHandler{
+
    if isSmall then
−
main = table.concat(self.categories[0] or {}),
+
        smallClass = data.smallClass or 'mbox-small'
−
template = table.concat(self.categories[10] or {}),
+
        image = args.smallimage or args.image
−
all = table.concat(self.categories.all or {}),
+
        imageRight = args.smallimageright or args.imageright
−
nocat = self.args.nocat,
+
        if data.useCollapsibleTextFields then
−
page = self.args.page
+
            text = args.smalltext or issue
−
}
+
        else
−
end
+
            text = args.smalltext or args.text
 +
        end
 +
        imageSize = data.imageSmallSize or '30x30px'
 +
    else
 +
        image = args.image
 +
        imageRight = args.imageright
 +
        imageSize = '40x40px'
 +
        text = args.text
 +
    end
  
−
function MessageBox:export()
+
    -- Process mainspace categories.
−
local root = mw.html.create()
+
    local mainCats = {}
 +
    local origCategoryNums -- origCategoryNums might be used in computing the template error category.
 +
    if data.allowMainspaceCategories then
 +
        -- Categories for the main namespace.
 +
        local origCatNums = getArgNums(args, 'cat')
 +
        local origCategoryNums = getArgNums(args, 'category')
 +
        local catNums = union(origCatNums, origCategoryNums)
 +
        for _, num in ipairs(catNums) do
 +
            local cat = args['cat' .. tostring(num)] or args['category' .. tostring(num)]
 +
            local all = args['all' .. tostring(num)]
 +
            table.insert(mainCats, formatCategory(cat, args.date, all))
 +
        end
 +
    end
  
−
-- Add the subst check error.
+
    -- Process template namespace categories
−
if self.isSubstituted and self.name then
+
    local templateCats = {}
−
root:tag('b')
+
    if data.templateCategory and not title.isSubpage and not yesno(args.nocat) then
−
:addClass('error')
+
        table.insert(templateCats, mw.ustring.format('[[Category:%s]]', data.templateCategory))
−
:wikitext(string.format(
+
    end
−
'Template <code>%s[[Template:%s|%s]]%s</code> has been incorrectly substituted.',
 
−
mw.text.nowiki('{{'), self.name, self.name, mw.text.nowiki('}}')
 
−
))
 
−
end
 
  
−
-- Create the box table.
+
    -- Add an error category for the template namespace if appropriate.
−
local boxTable = root:tag('table')
+
    if data.templateErrorCategory then
−
boxTable:attr('id', self.id or nil)
+
        local catName = data.templateErrorCategory
−
for i, class in ipairs(self.classes or {}) do
+
        local templateCat
−
boxTable:addClass(class or nil)
+
        if not name and not title.isSubpage then
−
end
+
            templateCat = mw.ustring.format('[[Category:%s]]', catName)
−
boxTable
+
        elseif type(name) == 'string' and title.prefixedText == ('Template:' .. name) then
−
:cssText(self.style or nil)
+
            local paramsToCheck = data.templateErrorParamsToCheck or {}
−
:attr('role', 'presentation')
+
            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 = mw.ustring.format('[[Category:%s|%d]]', catName, count)
 +
            end
 +
            if origCategoryNums and #origCategoryNums > 0 then
 +
                templateCat = mw.ustring.format('[[Category:%s|C]]', catName)
 +
            end
 +
        end
 +
        table.insert(templateCats, templatecat)
 +
    end
  
−
if self.attrs then
+
    -- Categories for all namespaces.
−
boxTable:attr(self.attrs)
+
    local allCats = {}
−
end
+
    if invalidType then
 +
        local catsort = (nsid == 0 and 'Main:' or '') .. title.prefixedText
 +
        table.insert(allCats, mw.ustring.format('[[Category:Wikipedia message box parameter needs fixing|%s]]', catsort))
 +
    end
  
−
-- Add the left-hand image.
+
    ------------------------ Build the box ----------------------------
−
local row = boxTable:tag('tr')
+
   
−
if self.imageLeft then
+
    local root = htmlBuilder.create()
−
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.
+
    -- Do the subst check.
−
local textCell = row:tag('td'):addClass('mbox-text')
+
    if data.substCheck and args.subst == 'SUBST' then
−
if self.useCollapsibleTextFields then
+
        if type(name) == 'string' then
−
-- The message box uses advanced text parameters that allow things to be
+
            root
−
-- collapsible. At the moment, only ambox uses this.
+
                .tag('b')
−
textCell:cssText(self.textstyle or nil)
+
                    .addClass('error')
−
local textCellSpan = textCell:tag('span')
+
                    .wikitext(mw.ustring.format(
−
textCellSpan
+
                        'Template <code>%s%s%s</code> has been incorrectly substituted.',
−
:addClass('mbox-text-span')
+
                        mw.text.nowiki('{{'), name, mw.text.nowiki('}}')
−
:wikitext(self.issue or nil)
+
                    ))
−
if (self.talk or self.fix) and not self.isSmall then
+
        end
−
textCellSpan:tag('span')
+
        table.insert(allCats, '[[Category:Pages with incorrectly substituted templates]]')
−
:addClass('hide-when-compact')
+
    end
−
: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.
+
    -- Create the box table.
−
if self.imageRight then
+
    local box = root.tag('table')
−
local imageRightCell = row:tag('td'):addClass('mbox-imageright')
+
    box
−
if self.imageCellDiv then
+
        .attr('id', args.id)
−
-- If we are using a div, redefine imageRightCell so that the image
+
    for i, class in ipairs(data.classes) do
−
-- is inside it.
+
        box
−
imageRightCell = imageRightCell:tag('div'):css('width', '52px')
+
            .addClass(class)
−
end
+
    end
−
imageRightCell
+
    box
−
:wikitext(self.imageRight or nil)
+
        .addClass(isSmall and smallClass)
−
end
+
        .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 below row.
+
    -- Add the left-hand image.
−
if self.below then
+
    local row = box.tag('tr')
−
boxTable:tag('tr')
+
    local imageCheckBlank = data.imageCheckBlank
−
:tag('td')
+
    if image ~= 'none' and not imageCheckBlank or image ~= 'none' and imageCheckBlank and image ~= 'blank' then
−
:attr('colspan', self.imageRight and '3' or '2')
+
        local imageLeftCell = row.tag('td').addClass('mbox-image')
−
:addClass('mbox-text')
+
        if not isSmall and data.imageCellDiv then
−
:cssText(self.textstyle or nil)
+
            imageLeftCell = imageLeftCell.tag('div').css('width', '52px') -- If we are using a div, redefine imageLeftCell so that the image is inside it.
−
:wikitext(self.below or nil)
+
        end
−
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 error message for invalid type parameters.
+
    -- Add the text.
−
if self.invalidTypeError then
+
    local textCell = row.tag('td').addClass('mbox-text')
−
root:tag('div')
+
    if data.useCollapsibleTextFields then
−
:css('text-align', 'center')
+
        textCell
−
:wikitext(string.format(
+
            .cssText(args.textstyle)
−
'This message box is using an invalid "type=%s" parameter and needs fixing.',
+
        local textCellSpan = textCell.tag('span')
−
self.type or ''
+
        textCellSpan
−
))
+
            .addClass('mbox-text-span')
−
end
+
            .wikitext(issue)
 +
        if not isSmall then
 +
            textCellSpan
 +
                .tag('span')
 +
                    .addClass('hide-when-compact')
 +
                    .wikitext(talk)
 +
                    .wikitext(' ')
 +
                    .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 categories.
+
    -- Add the right-hand image.
−
root:wikitext(self:renderCategories() or nil)
+
    if imageRight and not (data.imageRightNone and imageRight == 'none') then
 +
        local imageRightCell = row.tag('td').addClass('mbox-imageright')
 +
        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
  
−
return tostring(root)
+
    -- Add the below row.
−
end
+
    if data.below and args.below then
 +
        box.tag('tr')
 +
            .tag('td')
 +
                .attr('colspan', args.imageright and '3' or '2')
 +
                .addClass('mbox-text')
 +
                .cssText(args.textstyle)
 +
                .wikitext(args.below)
 +
    end
  
−
--------------------------------------------------------------------------------
+
    ------------------------ Error messages and categories ----------------------------
−
-- Exports
 
−
--------------------------------------------------------------------------------
 
  
−
local p, mt = {}, {}
+
    -- Add error message for invalid type parameters.
 +
    if invalidType then
 +
        root
 +
            .tag('div')
 +
                .addClass('error')
 +
                .css('text-align', 'center')
 +
                .wikitext(mw.ustring.format('This message box is using an invalid type parameter (<code>type=%s</code>) and needs fixing.', args.type or ''))
 +
    end
  
−
function p._exportClasses()
+
    -- Add categories using categoryHandler.
−
-- For testing.
+
    root
−
return {
+
        .wikitext(categoryHandler{
−
MessageBox = MessageBox
+
            main = table.concat(mainCats),
−
}
+
            template = table.concat(templateCats),
 +
            all = table.concat(allCats)
 +
        })
 +
   
 +
    return tostring(root)
 
end
 
end
  
−
function p.main(boxType, args, cfgTables)
+
local function makeWrapper(boxType)
−
local box = MessageBox.new(boxType, args, cfgTables or mw.loadData(CONFIG_MODULE))
+
    return function (frame)
−
box:setParameters()
+
        -- If called via #invoke, use the args passed into the invoking
−
box:setCategories()
+
        -- template, or the args passed to #invoke if any exist. Otherwise
−
return box:export()
+
        -- assume args are being passed directly in from the debug console
 +
        -- 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 p.build(boxType, args)
 +
    end
 
end
 
end
  
−
function mt.__index(t, k)
+
p.ambox = makeWrapper('ambox')
−
return function (frame)
+
p.fmbox = makeWrapper('fmbox')
−
if not getArgs then
+
p.imbox = makeWrapper('imbox')
−
getArgs = require('Module:Arguments').getArgs
+
p.ombox = makeWrapper('ombox')
−
end
+
p.cmbox = makeWrapper('cmbox')
−
return t.main(k, getArgs(frame, {trim = false, removeBlanks = false}))
+
p.tmbox = makeWrapper('tmbox')
−
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"