Wikipedia

Module:Article history: Difference between revisions

Browse history interactively
← Previous edit
Content deleted Content added
change the way collapsible notices are rendered - still needs work
per edit request on talk page - remove line as unnecessary
 
(60 intermediate revisions by 6 users not shown)
Line 10:
local CONFIG_PAGE = 'Module:Article history/config'
local WRAPPER_TEMPLATE = 'Template:Article history'
local DEBUG_MODE = truefalse -- If true, errors are not caught.
 
-- Load required modules.
require('Module:No globalsstrict')
local Category = require('Module:Article history/Category')
local yesno = require('Module:Yesno')
Line 72:
 
function Message:message(key, ...)
-- This fetches the message from the config with the specified key, and
-- This
-- substitutes parameters $1, $2 etc. with the subsequent values it is
-- passed.
local msg = self.cfg.msg[key]
if select('#', ...) > 0 then
Line 78 ⟶ 80:
else
return msg
end
end
 
function Message:_formatError(msg, help)
if help then
return self:message('error-message-help', msg, help)
else
return self:message('error-message-nohelp', msg)
end
end
Line 93 ⟶ 87:
-- stops unless the error is caught. This is used for errors where
-- subsequent processing becomes impossible.
local errorText = self:_formatError(msg, help)
if help then
errorText = self:message('error-message-help', msg, help)
else
errorText = self:message('error-message-nohelp', msg)
end
error(errorText, 0)
end
Line 102 ⟶ 101:
-- prevent the module from outputting something useful.
self.warnings = self.warnings or {}
local warningText
table.insert(self.warnings, self:_formatError(msg, help))
if help then
warningText = self:message('warning-help', msg, help)
else
warningText = self:message('warning-nohelp', msg)
end
table.insert(self.warnings, warningText)
end
 
Line 122 ⟶ 127:
obj.cfg = data.cfg
obj.currentTitle = data.currentTitle
obj.isSmallmakeData = data.isSmallmakeData -- used by Row:getData
obj.categories = {}
return obj
end
 
function Row:setIcon_cachedTry(iconcacheKey, captionerrorCacheKey, size, smallSizefunc)
-- This method is for use in Row object methods that are called more than
-- once. The results of such methods should be cached to avoid unnecessary
-- processing. We also cache any errors found and abort if an error was
-- raised previously, otherwise error messages could be displayed multiple
-- times.
--
-- We use false as a key to cache nil results, so func cannot return false.
--
-- @param cacheKey The key to cache successful results with
-- @param errorCacheKey The key to cache errors with
-- @param func an anonymous function that returns the method result
if self[errorCacheKey] then
return nil
end
local ret = self[cacheKey]
if ret then
return ret
elseif ret == false then
return nil
end
local success
if DEBUG_MODE then
success = true
ret = func()
else
success, ret = pcall(func)
end
if success then
if ret then
self[cacheKey] = ret
return ret
else
self[cacheKey] = false
return nil
end
else
self[errorCacheKey] = true
-- We have already formatted the error message, so no need to format it
-- again.
error(ret, 0)
end
end
 
function Row:getData(articleHistoryObj)
return self:_cachedTry('_dataCache', '_isDataError', function ()
return self.makeData(articleHistoryObj)
end)
end
 
function Row:setIconValues(icon, caption, size)
self.icon = icon
self.captioniconCaption = caption
self.iconSize = size
self.iconSmallSize = smallSize
end
 
function Row:setTextgetIcon(textarticleHistoryObj)
return maybeCallFunc(self.icon, articleHistoryObj, self)
self.text = text
end
 
function Row:exportHtmlgetIconCaption(articleHistoryObj)
return maybeCallFunc(self.iconCaption, articleHistoryObj, self)
if not self.text then
end
 
function Row:getIconSize()
return self.iconSize or self.cfg.defaultIconSize or '30px'
end
 
function Row:renderIcon(articleHistoryObj)
local icon = self:getIcon(articleHistoryObj)
if not icon then
return nil
end
return renderImage(
icon,
self:getIconCaption(articleHistoryObj),
self:getIconSize()
)
end
 
function Row:setNoticeBarIconValues(icon, caption, size)
local html = mw.html.create('tr')
self.noticeBarIcon = icon
self.noticeBarIconCaption = caption
self.noticeBarIconSize = size
end
 
function Row:getNoticeBarIcon(articleHistoryObj)
-- Render the icon link.
local icon = maybeCallFunc(self.noticeBarIcon, articleHistoryObj, self)
local icon
if self.icon == true then
icon = self:getIcon(articleHistoryObj)
local iconSize
if self.isSmallnot icon then
self:raiseError(
iconSize = self.iconSmallSize or self.cfg.defaultSmallIconSize or '15px'
self:message('row-error-missing-icon'),
else
self:message('row-error-missing-icon-help')
iconSize = self.iconSize or self.cfg.defaultIconSize or '30px'
)
end
icon = renderImage(self.icon, self.caption, iconSize)
end
return icon
end
 
function Row:getNoticeBarIconCaption(articleHistoryObj)
-- Render the HTML
local caption = maybeCallFunc(
html
self.noticeBarIconCaption,
:tag('td')
articleHistoryObj,
:addClass('mbox-image')
self
:wikitext(icon)
)
:done()
if not caption then
:tag('td')
caption = self:getIconCaption(articleHistoryObj)
:addClass('mbox-text')
end
:wikitext(self.text)
return caption
end
 
function Row:getNoticeBarIconSize()
return html
return self.noticeBarIconSize or self.cfg.defaultNoticeBarIconSize or '15px'
end
 
function Row:addCategoriesexportNoticeBarIcon(val, ...articleHistoryObj)
local icon = self:getNoticeBarIcon(articleHistoryObj)
-- Add categories to the object's categories table. val can be either an
if not icon then
-- array of strings, an array of category objects, or a function returning
return nil
-- an array of category objects.
if type(val) == 'table' then
for _, cat in ipairs(val) do
if type(cat) == 'string' then
table.insert(self.categories, Category.new(cat))
else
table.insert(self.categories, cat)
end
end
elseif type(val) == 'function' then
for _, categoryObj in ipairs(val(...) or {}) do
table.insert(self.categories, categoryObj)
end
end
return renderImage(
icon,
self:getNoticeBarIconCaption(articleHistoryObj),
self:getNoticeBarIconSize()
)
end
 
function Row:exportCategoriessetText(text)
return self.categoriestext = text
end
 
function Row:setNoticeBarIcongetText(icon, caption, sizearticleHistoryObj)
return maybeCallFunc(self.text, articleHistoryObj, self)
self.noticeBarIcon = icon
self.noticeBarCaption = caption
self.noticeBarIconSize = size
end
 
function Row:exportNoticeBarIconexportHtml(articleHistoryObj)
if not self.noticeBarIcon_html then
return self._html
end
local text = self:getText(articleHistoryObj)
if not text then
return nil
end
local html = mw.html.create('tr')
local size = self.noticeBarIconSize or self.cfg.defaultNoticeBarIconSize or '15px'
html
return renderImage(self.noticeBarIcon, size, self.noticeBarCaption)
:tag('td')
:addClass('mbox-image')
:wikitext(self:renderIcon(articleHistoryObj))
:done()
:tag('td')
:addClass('mbox-text')
:wikitext(text)
self._html = html
return html
end
 
function Row:setCategories(val)
-- Set the categories from the object's config. val can be either an array
-- of strings or a function returning an array of category objects.
self.categories = val
end
 
function Row:getCategories(articleHistoryObj)
local ret = {}
if type(self.categories) == 'table' then
for _, cat in ipairs(self.categories) do
ret[#ret + 1] = Category.new(cat)
end
elseif type(self.categories) == 'function' then
local t = self.categories(articleHistoryObj, self) or {}
for _, categoryObj in ipairs(t) do
ret[#ret + 1] = categoryObj
end
end
return ret
end
 
Line 219 ⟶ 321:
setmetatable(obj, Status)
 
-- Set the ID, status config and name
obj.id = data.id
local obj.statusCfg = obj.cfg.statuses[obj.id]
obj.statusCfgname = obj.statusCfg.name
obj:setIconValues(
obj.name = statusCfg.name
obj.statusCfg.icon,
obj.statusCfg.iconCaption or obj.name,
-- Set the icon
local data.iconSize
)
if data.iconSize then
obj:setNoticeBarIconValues(
iconSize = data.iconSize
obj.statusCfg.noticeBarIcon,
elseif obj.isSmall then
iconSize = obj.statusCfg.smallIconSizenoticeBarIconCaption or obj.cfg.defaultSmallStatusIconSize or '30px'name,
obj.statusCfg.noticeBarIconSize
else
)
iconSize = statusCfg.iconSize or obj.cfg.defaultStatusIconSize or '50px'
obj:setText(obj.statusCfg.text)
end
obj:setIconsetCategories(statusCfgobj.icon, statusCfg.caption or obj.name, iconSizecategories)
 
return obj
end
 
function Status:exportHtmlgetIconSize(articleHistoryObj)
return self.iconSize
self:setText(substituteParams(
maybeCallFunc(or self.statusCfg.text, articleHistoryObj),iconSize
or self.cfg.defaultStatusIconSize
self.currentTitle.subjectPageTitle.prefixedText,
or '50px'
self.currentTitle.text
))
return Row.exportHtml(self)
end
 
function Status:exportCategoriesgetText(articleHistoryObj)
self:addCategorieslocal text = Row.getText(self.statusCfg.categories, articleHistoryObj)
if text then
return Row.exportCategories(self)
return substituteParams(
text,
self.currentTitle.subjectPageTitle.prefixedText,
self.currentTitle.text
)
end
end
 
Line 266 ⟶ 371:
setmetatable(obj, MultiStatus)
 
obj.id = data.id
obj.statusCfg = obj.cfg.statuses[data.id]
obj.name = obj.statusCfg.name
Line 280 ⟶ 386:
end
obj.statuses = {}
local defaultIconSize = obj.cfg.defaultSmallStatusIconSizedefaultMultiStatusIconSize or '30px'
for i_, id in ipairs(obj.statusCfg.statuses) do
table.insert(obj.statuses, Status.new(getChildStatusData(
data,
Line 294 ⟶ 400:
function MultiStatus:exportHtml(articleHistoryObj)
local ret = mw.html.create()
for i_, obj in ipairs(self.statuses) do
ret:node(obj:exportHtml(articleHistoryObj))
end
Line 300 ⟶ 406:
end
 
function MultiStatus:exportCategoriesgetCategories(articleHistoryObj)
local ret = {}
for i_, obj in ipairs(self.statuses) do
for j_, categoryObj in ipairs(obj:exportCategoriesgetCategories(articleHistoryObj)) do
ret[#ret + 1] = categoryObj
end
Line 312 ⟶ 418:
function MultiStatus:exportNoticeBarIcon()
local ret = {}
for i_, obj in ipairs(self.statuses) do
ret[#ret + 1] = obj:exportNoticeBarIcon()
end
Line 320 ⟶ 426:
function MultiStatus:getWarnings()
local ret = {}
for i_, obj in ipairs(self.statuses) do
for j_, msg in ipairs(obj:getWarnings()) do
ret[#ret + 1] = msg
end
Line 341 ⟶ 447:
setmetatable(obj, Notice)
 
obj:setIconsetIconValues(
data.icon,
data.iconCaption,
data.iconSize,
)
data.iconSmallSize
obj:setNoticeBarIconValues(
data.noticeBarIcon,
data.noticeBarIconCaption,
data.noticeBarIconSize
)
obj:setText(data.text)
obj:addCategoriessetCategories(data.categories)
 
return obj
Line 442 ⟶ 552:
obj:addWarning(
obj:message(
'action-errorwarning-invalid-date',
data.date,
obj:getParameter('date')
),
obj:message('action-errorwarning-invalid-date-help')
)
end
Line 452 ⟶ 562:
obj:addWarning(
obj:message(
'action-errorwarning-no-date',
obj.paramNum,
obj:getParameter('date'),
obj:getParameter('code')
),
obj:message('action-errorwarning-no-date-help')
)
end
Line 464 ⟶ 575:
obj.oldid = tonumber(data.oldid)
if data.oldid and (not obj.oldid or not isPositiveInteger(obj.oldid)) then
obj:raiseError(.oldid = nil
obj:addWarning(
obj:message(
'action-errorwarning-invalid-oldid',
data.oldid,
obj:getParameter('oldid')
),
obj:message('action-errorwarning-invalid-oldid-help')
)
end
 
-- Set the notice bar icon values
obj:setNoticeBarIconValues(
data.noticeBarIcon,
data.noticeBarIconCaption,
data.noticeBarIconSize
)
 
-- Set the categories
obj:setCategories(obj.actionCfg.categories)
 
return obj
Line 507 ⟶ 629:
 
function Action:exportHtml(articleHistoryObj)
if self._html then
return self._html
end
 
local row = mw.html.create('tr')
 
Line 531 ⟶ 657:
self:getName(articleHistoryObj)
))
 
-- Result cell
row
Line 537 ⟶ 663:
:wikitext(self:getResult(articleHistoryObj))
 
self._html = row
return row
end
 
function Action:exportCategories(articleHistoryObj)
local categories = self.actionCfg.categories
if type(categories) == 'table' then
local ret = {}
for _, cat in ipairs(categories) do
ret[#ret + 1] = Category.new(cat)
end
return ret
elseif type(categories) == 'function' then
return categories(self, articleHistoryObj)
end
end
 
Line 566 ⟶ 680:
setmetatable(obj, CollapsibleNotice)
 
obj:setIconsetIconValues(
data.icon,
data.iconCaption,
data.iconSize,
)
data.iconSmallSize
obj:setNoticeBarIconValues(
data.noticeBarIcon,
data.noticeBarIconCaption,
data.noticeBarIconSize
)
obj:setText(data.text)
obj:addCategoriessetCollapsibleText(data.categoriescollapsibleText)
obj.collapsibleText = :setCategories(data.collapsibleTextcategories)
 
return obj
end
 
function CollapsibleNotice:exportHtmlsetCollapsibleText(isCollapseds)
self.collapsibleText = s
if not self.text then
end
return nil
end
 
function CollapsibleNotice:getCollapsibleText(articleHistoryObj)
-- Render the icon.
return maybeCallFunc(self.collapsibleText, articleHistoryObj, self)
local icon
end
if self.icon then
 
local iconSize
function CollapsibleNotice:getIconSize()
if self.isSmall then
return self.iconSize
iconSize = self.iconSmallSize
or self.cfg.defaultSmallCollapsibleNoticeIconSizedefaultCollapsibleNoticeIconSize
or '15px20px'
end
else
 
iconSize = self.iconSize
function CollapsibleNotice:exportHtml(articleHistoryObj, isInCollapsibleTable)
or self.cfg.defaultCollapsibleNoticeIconSize
local cacheKey = isInCollapsibleTable
or '20px'
and '_htmlCacheCollapsible'
or '_htmlCacheDefault'
return self:_cachedTry(cacheKey, '_isHtmlError', function ()
local text = self:getText(articleHistoryObj)
if not text then
return nil
end
icon = renderImage(self.icon, self.caption, iconSize)
end
 
local function maybeMakeCollapsibleTable(cell, text, collapsibleText)
-- Render the HTML
-- If collapsible text is specified, makes a collapsible table
local function maybeMakeCollapsibleTable(cell, text, collapsibleText)
-- inside the cell with two rows, a header row with one cell and a
-- If collapsible text is specified, makes a collapsible table inside
-- thecollapsed cellrow with twoone rows,cell. aThese headerare rowfilled with one celltext and a collapsed
-- collapsedText, respectively. If no collapsible text is
-- row with one cell. These are filled with text and collapsedText,
-- respectively.specified, If no collapsiblethe text is specified,added to the textcell as-is added.
if collapsibleText then
-- to the cell as-is.
cell
if collapsibleText then
:tag('div')
cell
:addClass('mw-collapsible mw-collapsed')
:tag('table')
:addClasstag('collapsible collapseddiv')
:css('margin', 0)
:css('padding', 0)
:css('border-collapse', 'collapse')
:css('width', '100%')
:css('background', 'transparent')
:tag('tr')
:tag('th')
:css('font-weight', 'normal')
:css('text-align', 'left')
:css('width', '100%')
:wikitext(text)
:done()
:donetag('div')
:tagaddClass('trmw-collapsible-content')
:tag('td')
:css('border', '1px silver solid')
:wikitext(collapsibleText)
else
cell:wikitext(text)
end
end
end
 
local html = mw.html.create('tr')
local icon = self:renderIcon(articleHistoryObj)
if isCollapsed then
local textCellcollapsibleText = htmlself:taggetCollapsibleText('td'articleHistoryObj)
if isInCollapsibleTable then
:attr('colspan', 3)
local textCell = html:tag('td')
:css('width', '100%')
:attr('colspan', 3)
local text
:css('width', '100%')
if icon then
local rowText
text = icon .. ' ' .. self.text
if icon then
rowText = icon .. ' ' .. text
else
rowText = text
end
maybeMakeCollapsibleTable(textCell, rowText, collapsibleText)
else
textlocal textCell = self.texthtml
:tag('td')
:addClass('mbox-image')
:wikitext(icon)
:done()
:tag('td')
:addClass('mbox-text')
maybeMakeCollapsibleTable(textCell, text, collapsibleText)
end
maybeMakeCollapsibleTable(textCell, text, self.collapsibleText)
else
local textCell = html
:tag('td')
:addClass('mbox-image')
:wikitext(icon)
:done()
:tag('td')
:addClass('mbox-text')
maybeMakeCollapsibleTable(textCell, self.text, self.collapsibleText)
end
 
return html
end)
end
 
Line 675 ⟶ 788:
obj.currentTitle = currentTitle or mw.title.getCurrentTitle()
 
-- Define object structure.
-- Set isSmall
obj._errors = {}
obj.isSmall = yesno(obj.args.small) or false
obj._allObjectsCache = {}
 
-- Define the error table.
obj.errors = {}
-- Format the config
local function substituteAliases(t, ret)
Line 773 ⟶ 884:
return val
else
table.insert(self.errors_errors, val)
return nil
end
Line 783 ⟶ 894:
-- user. We memoise this so that the parameters only have to be processed
-- once.
if self.actions ~= nil then
return self.actions
end
Line 797 ⟶ 908:
local actions = {}
local suffixes = self.cfg.actionParamSuffixes
for i_, t in ipairs(actionArgs) do
local objArgs = {}
for k, v in pairs(t) do
Line 822 ⟶ 933:
end
local statuses = self.cfg.statuses
codelocal codeUpper = mw.ustring.upper(code)
if statuses[codecodeUpper] then
return statuses[codecodeUpper].id
else
self:addWarning(
self:message('articlehistory-warning-invalid-status', code),
self:message('articlehistory-warning-invalid-status-help')
)
return nil
end
end
Line 832 ⟶ 947:
function ArticleHistory:getStatusObj()
-- Get the status object for the current status.
if self.statusObj ~== nilfalse then
return nil
elseif self.statusObj ~= nil then
return self.statusObj
end
local statusId
if self.cfg.getStatusIdFunction then
statusId = self:try(self.cfg.getStatusIdFunction(, self)
else
statusId = self:try(
self.getStatusIdForCode, self,
self.args[self.currentstatuscfg.currentStatusParam]
)
end
if not statusId then
self.statusObj = false
return falsenil
end
 
-- Check that some actions were specified, and if not add a warning.
local actions = self:getActionObjects()
if #actions < 1 then
self:addWarning(
self:message('articlehistory-warning-status-no-actions'),
self:message('articlehistory-warning-status-no-actions-help')
)
end
 
Line 853 ⟶ 979:
id = statusId,
currentTitle = self.currentTitle,
cfg = self.cfg,
isSmall = self.isSmall
}
local isMulti = self.cfg.statuses[statusId].isMulti
local initFunc = isMulti and MultiStatus.new or Status.new
local statusObj = self:try(initFunc, statusObjData) or false
self.statusObj = statusObj or false
return self.statusObj or nil
end
 
Line 868 ⟶ 993:
end
 
function ArticleHistory:getNoticeObjects_noticeFactory(memoizeKey, configKey, class)
-- This holds the logic for fetching tables of Notice and CollapsibleNotice
-- Returns an array of notice objects to be output.
-- objects.
if self.notices ~= nil then
if self[memoizeKey] then
return self.notices
return self[memoizeKey]
end
local ret = {}
for i_, funct in ipairs(self.cfg.notices[configKey] or {}) do
localif data = funct.isActive(self) then
if local data then= {}
for k, v in pairs(t) do
if k ~= 'isActive' then
data[k] = v
end
end
data.cfg = self.cfg
data.currentTitle = self.currentTitle
ret[#ret + 1] = Noticeclass.new(data)
end
end
self.notices[memoizeKey] = ret
return ret
end
 
function ArticleHistory:getNoticeObjects()
return self:_noticeFactory('notices', 'notices', Notice)
end
 
function ArticleHistory:getCollapsibleNoticeObjects()
return self:_noticeFactory(
-- Returns an array of collapsible notice objects to be output.
if self. 'collapsibleNotices ~= nil then',
return self.'collapsibleNotices',
CollapsibleNotice
end
)
local ret = {}
end
for i, func in ipairs(self.cfg.collapsibleNotices or {}) do
 
local data = func(self)
function ArticleHistory:getAllObjects(addSelf)
if data then
local cacheKey = addSelf and 'addSelf' or 'default'
data.cfg = self.cfg
local ret = self._allObjectsCache[cacheKey]
data.currentTitle = self.currentTitle
if not ret then
ret[#ret + 1] = CollapsibleNotice.new(data)
ret = {}
local statusObj = self:getStatusObj()
if statusObj then
ret[#ret + 1] = statusObj
end
local objTables = {
self:getNoticeObjects(),
self:getActionObjects(),
self:getCollapsibleNoticeObjects()
}
for _, t in ipairs(objTables) do
for _, obj in ipairs(t) do
ret[#ret + 1] = obj
end
end
if addSelf then
ret[#ret + 1] = self
end
self._allObjectsCache[cacheKey] = ret
end
self.collapsibleNotices = ret
return ret
end
 
function ArticleHistory:getAllObjectsgetNoticeBarIcons(addSelf)
local ret = {}
-- Icons that aren't part of a row.
local statusObj = self:getStatusObj()
if statusObjself.cfg.noticeBarIcons then
for _, data in ipairs(self.cfg.noticeBarIcons) do
ret[#ret + 1] = statusObj
if data.isActive(self) then
end
ret[#ret + 1] = renderImage(
local objTables = {
data.icon,
self:getNoticeObjects(),
nil,
self:getActionObjects(),
data.size or self.cfg.defaultNoticeBarIconSize
self:getCollapsibleNoticeObjects()
)
}
end
for i, t in ipairs(objTables) do
for j, obj in ipairs(t) do
ret[#ret + 1] = obj
end
end
-- Icons in row objects.
if addSelf then
for _, obj in ipairs(self:getAllObjects()) do
ret[#ret + 1] = self
ret[#ret + 1] = obj:exportNoticeBarIcon(self)
end
return ret
Line 929 ⟶ 1,080:
-- Returns an array of error/warning strings. Error strings come first.
local ret = {}
for _, msg in ipairs(self.errors_errors) do
ret[#ret + 1] = msg
end
for i_, obj in ipairs(self:getAllObjects(true)) do
for j_, msg in ipairs(obj:getWarnings()) do
ret[#ret + 1] = msg
end
Line 940 ⟶ 1,091:
end
 
function ArticleHistory:renderBoxcategoriesAreActive()
-- Returns a boolean indicating whether categories should be output or not.
if #self:getAllObjects() < 1 then
local title = self.currentTitle
return ''
local ns = title.namespace
return title.isTalkPage
and ns ~= 3 -- not user talk
and ns ~= 119 -- not draft talk
end
 
function ArticleHistory:renderCategories()
local ret = {}
 
if self:categoriesAreActive() then
-- Child object categories
for _, obj in ipairs(self:getAllObjects()) do
local categories = self:try(obj.getCategories, obj, self)
for _, categoryObj in ipairs(categories or {}) do
ret[#ret + 1] = tostring(categoryObj)
end
end
 
-- Extra categories
for _, func in ipairs(self.cfg.extraCategories or {}) do
local cats = func(self) or {}
for _, categoryObj in ipairs(cats) do
ret[#ret + 1] = tostring(categoryObj)
end
end
end
 
return table.concat(ret)
end
 
function ArticleHistory:__tostring()
local root = mw.html.create()
 
-- Table root
local roottableRoot = mw.html.createroot:tag('table')
roottableRoot:addClass('article-history tmbox tmbox-notice')
 
if self.isSmall then
root:addClass('mbox-small')
else
root:css('width', '80%')
end
-- Status
local statusObj = self:getStatusObj()
if statusObj then
roottableRoot:node(self:try(statusObj.exportHtml, statusObj, self))
end
 
Line 963 ⟶ 1,140:
local notices = self:getNoticeObjects()
for _, noticeObj in ipairs(notices) do
roottableRoot:node(self:try(noticeObj.exportHtml, noticeObj, self))
end
 
-- Get action objects and the collapsible notice objects, and generate the
-- HTML objects for the action objects. We need the action HTML objects so
-- that we can accurately calculcatecalculate the number of collapsible rows, as some
-- action objects may generate errors when the HTML is generated. For
local actions = self:getActionObjects() or {}
-- collapsible notices this isn't a problem, as the errors are caught when
local collapsibleNotices = self:getCollapsibleNoticeObjects() or {}
-- the objects are created.
local collapsibleNoticeHtmlObjects, actionHtmlObjects = {}, {}
local actions = self:getActionObjects()
for _, obj in ipairs(actions) do
local actionHtmlObjects = {}
local collapsibleNotices = self:getCollapsibleNoticeObjects()
for _, obj in ipairs(actions or {}) do
table.insert(
actionHtmlObjects,
Line 981 ⟶ 1,156:
)
end
localfor noCollapsibleRows_, =obj #actionHtmlObjectsin + #ipairs(collapsibleNotices) do
table.insert(
collapsibleNoticeHtmlObjects,
self:try(obj.exportHtml, obj, self, true) -- Render the collapsed version
)
end
local nActionRows = #actionHtmlObjects
local nCollapsibleRows = nActionRows + #collapsibleNoticeHtmlObjects
 
-- Find out if we are collapsed or not.
-- Collapsible table for actions and collapsible notices
local isCollapsed = yesno(self.args.collapse)
if noCollapsibleRows > 0 then
if isCollapsed == nil then
-- Find out if we are collapsed or not.
local isCollapsed
if self.cfg.uncollapsedRows == 'all' then
isCollapsed = false
elseif noCollapsibleRowsnCollapsibleRows == 1 then
isCollapsed = false
else
isCollapsed = noCollapsibleRowsnCollapsibleRows > (tonumber(self.cfg.uncollapsedRows) or 3)
end
end
 
-- If we are not collapsed, re-render the collapsible notices in the
-- non-collapsed version.
if not isCollapsed then
collapsibleNoticeHtmlObjects = {}
for _, obj in ipairs(collapsibleNotices) do
table.insert(
collapsibleNoticeHtmlObjects,
self:try(obj.exportHtml, obj, self, false)
)
end
end
 
-- Collapsible table for actions and collapsible notices. Collapsible
-- notices are only included in the table if it is collapsed. Action rows
-- are always included.
local collapsibleTable
if isCollapsed or nActionRows > 0 then
-- Collapsible table base
local collapsibleTable = roottableRoot
:tag('tr')
:tag('td')
Line 1,002 ⟶ 1,201:
:css('width', '100%')
:tag('table')
:addClass('AHarticle-history-milestones')
:addClass(isCollapsed and 'mw-collapsible mw-collapsed' or nil)
:css('width', '100%')
:css('background', 'transparent')
:css('font-size', '90%')
 
-- Header row
if noCollapsibleRows > 1 then
local ctHeader = collapsibleTable
-- Header row
:tag('tr')
local ctHeader = collapsibleTable
:tag('trth')
:tagattr('thcolspan', 3)
:attrcss('colspanfont-size', 3'110%')
 
:css('font-size', '110%')
-- Notice bar
local noticeBarIcons = {}
if isCollapsed then
for i, t in ipairs{notices, collapsibleNotices, actions} do
local noticeBarIcons = self:getNoticeBarIcons()
for j, obj in ipairs(t) do
table.insert(noticeBarIcons, obj:exportNoticeBarIcon())
end
end
if #noticeBarIcons > 0 then
local noticeBar = ctHeader:tag('span'):css('float', 'left')
Line 1,028 ⟶ 1,223:
ctHeader:wikitext(' ')
end
end
if mw.site.namespaces[self.currentTitle.namespace].subject.id == 0 then
 
ctHeader:wikitext(self:message('milestones-header'))
-- Header text
else
if mw.site.namespaces[self.currentTitle.namespace].subject.id == 0 then
ctHeader:wikitext(self:message(
ctHeader:wikitext(self:message('milestones-header-other-ns',))
else
self.currentTitle.subjectNsText
ctHeader:wikitext(self:message(
))
'milestones-header-other-ns',
end
self.currentTitle.subjectNsText
))
-- Subheadings
end
 
-- Subheadings
if nActionRows > 0 then
collapsibleTable
:tag('tr')
Line 1,055 ⟶ 1,254:
collapsibleTable:node(htmlObj)
end
end
 
-- Collapsible notices and current status
-- These are only included in the collapsible table if it is collapsed.
-- Otherwise, they are added afterwards, so that they align with the
-- notices.
do
local tableNode, statusColspan
if isCollapsed then
tableNode = collapsibleTable
statusColspan = 3
else
tableNode = tableRoot
statusColspan = 2
end
 
-- Collapsible notices
for _, obj in ipairs(collapsibleNotices) do
collapsibleTabletableNode:node(self:try(obj.exportHtml, obj, self, isCollapsed))
end
 
-- Current status.
if isCollapsedstatusObj and noCollapsibleRowsnActionRows > 1 then
tableNode
local statusText
if statusObj then
statusText = statusObj.name
end
statusText = statusText or self:message('status-unknown')
collapsibleTable
:tag('tr')
:tag('td')
:attr('colspan', 3statusColspan)
:wikitext(self:message('status-blurb', statusTextstatusObj.name))
end
end
 
-- Get the categories. We have to do this before the error row, so that
-- Error row
-- category errors display.
local categories = self:renderCategories()
 
-- Error row and error category
local errors = self:getErrorMessages()
local errorCategory
if #errors > 0 then
local errorList = roottableRoot
:tag('tr')
:tag('td')
Line 1,090 ⟶ 1,304:
errorList:tag('li'):wikitext(msg)
end
if self:categoriesAreActive() then
end
errorCategory = tostring(Category.new(self:message(
 
'error-category'
return tostring(root)
)))
end
 
function ArticleHistory:renderCategories()
local ret = {}
-- Child object categories
for i, obj in ipairs(self:getAllObjects()) do
local categories = self:try(obj.exportCategories, obj, self)
for j, categoryObj in ipairs(categories or {}) do
ret[#ret + 1] = tostring(categoryObj)
end
end
 
-- If there are no errors and no active objects, then exit. We can't make
-- Error category
-- this check earlier as we don't know where the errors may be until we
if #self:getErrorMessages() > 0 then
-- have finished rendering the banner.
ret[#ret + 1] = tostring(Category.new(self:message('error-category')))
elseif #self:getAllObjects() < 1 then
return ''
end
 
-- Add the categories
return table.concat(ret)
root:wikitext(categories)
end
root:wikitext(errorCategory)
 
function ArticleHistory:__tostring()
local frame = mw.getCurrentFrame()
-- XXX: If renderCategories is called after renderBox in this function,
return frame:extensionTag{
-- then category error messages aren't displayed. Need to think of a saner
name = 'templatestyles', args = { src = 'Module:Message box/tmbox.css' }
-- way of doing this.
} .. frame:extensionTag{
local categories = self:renderCategories()
name = 'templatestyles', args = { src = 'Module:Article history/styles.css' }
local box = self:renderBox()
} .. tostring(root)
return box .. categories
end
 
Line 1,139 ⟶ 1,345:
wrappers = WRAPPER_TEMPLATE
})
if frame:getTitle():find('sandbox', 1, true) then
CONFIG_PAGE = CONFIG_PAGE .. '/sandbox'
end
return p._main(args)
end
Retrieved from "https://en.wikipedia.org/wiki/Module:Article_history"