local p = {}
local m = require("Module:Math") -- [[Module:Math]]
function p.timeline(frame)
local firstYear = tonumber(frame.args.first)
local thisYear = tonumber(os.date("%Y"))
local lastYear = tonumber(frame.args.last or thisYear - 1)
local title = mw.title.getCurrentTitle()
local years = {}
local sizes = {}
local maxSize = 0
for year = firstYear, lastYear do
local subTitle = mw.title.new(mw.ustring.format("%s:%s/%i",
title.nsText, title.baseText, year))
if subTitle.exists then
table.insert(years, year)
local size = m._round(tonumber(frame:callParserFunction(
"PAGESIZE", subTitle.fullText, "R")) / 1024, 0)
sizes[year] = size
if size > maxSize then maxSize = size end
end
end
-- Main talk page
table.insert(years, lastYear + 1)
local size = m._round(tonumber(frame:callParserFunction(
"PAGESIZE", title.nsText .. ":" .. title.baseText, "R")) / 1024, 0)
sizes[lastYear + 1] = size
if size > maxSize then maxSize = size end
local barData = {}
for i, year in ipairs(years) do
table.insert(barData, " bar:" .. year)
end
local plotData = {}
for i, year in ipairs(years) do
local bar = mw.ustring.format(" bar:%i from:0 till:%i", year, sizes[year])
if tonumber(title.subpageText) == year or
(year == lastYear + 1 and not title.isSubpage) then
bar = bar .. " color:nhanmanh"
end
table.insert(plotData, bar)
end
local labels = {}
for i, year in ipairs(years) do
local linkText = tostring(year)
local link = title.nsText .. ":" .. title.baseText
if year ~= lastYear + 1 then
link = link .. "/" .. year
elseif lastYear ~= thisYear - 1 then
linkText = linkText .. "+"
end
local label = mw.ustring.format(" bar:%i at:0 text:\"[[%s|%s]]\"",
year, link, linkText)
if tonumber(title.subpageText) == year or
(year == lastYear + 1 and not title.isSubpage) then
label = label .. " fontsize:M"
end
table.insert(labels, label)
end
return frame:expandTemplate{
title = "User:Mxn/Archive timeline",
args = {
MaxPeriod = maxSize,
BarData = table.concat(barData, "\n"),
PlotData = table.concat(plotData, "\n"),
Labels = table.concat(labels, "\n"),
},
}
end
return p