local p = {}
local getArgs = require('Module:Arguments').getArgs
local this -- 当前frame。
function p.main(frame)
this = frame
local args = getArgs(frame)
return p._main(args)
end
local function parseList(args)
local lists, html = {}, {}
for i, v in pairs(args) do
if(i ~= "t") then lists[i] = mw.text.decode(mw.text.unstripNoWiki(v)) end
end
for i = 1, #lists do
html[i] = this:preprocess(lists[i])
end
return lists, html
end
function p.build(frame)
this = frame
local args = getArgs(frame)
local lists, html = parseList(args)
local template = [[{{切换显示按钮|@default=b1|@radio=true|b1=按投稿时间排序|b2=按达成时间排序|b3=按所用时间排序|@#1=b1|@#2=b2|@#3=b3}}
{{切换显示按钮样式|@cancel=display:none}}
{{切换显示|b1|START_REPLACE_b1_END_REPLACE|div}}
{{切换显示|b2|START_REPLACE_b2_END_REPLACE|div}}
{{切换显示|b3|START_REPLACE_b3_END_REPLACE|div}}]]
template = this:preprocess(template)
local tabs, ret = {}, {}
for i = 1, 3 do
lists = p.Ssort(i, lists)
tabs[i] = p.Stab(i, lists, html)
end
ret = mw.ustring.gsub(template, 'START_REPLACE_b(%d+)_END_REPLACE', tabs)
return ret
end
function p._main(args)
local lists, html = parseList(args)
lists = p.Ssort(tonumber(args.t), lists)
return p.Stab(tonumber(args.t), lists, html)
end
local function parseDate(...)
local year, month, day, hour, min = ...
return {
year = tonumber(year),
month = tonumber(month),
day = tonumber(day),
hour = tonumber(hour),
min = tonumber(min)
}
end
local function parseTime(...)
local day, hour, min = ...
day, hour, min = tonumber(day), tonumber(hour), tonumber(min)
return day * 1440 + hour * 24 + min
end
function p.Ssort(t, lists)
local pat = {
"投稿时间%s*=%s*(%d+)-(%d+)-(%d+) (%d+):(%d+)",
"达成时间%s*=%s*(%d+)-(%d+)-(%d+) (%d+):(%d+)",
"(%d+)日(%d+)时(%d+)分"
}
table.sort(lists, function(a, b)
if(t ~= 3) then
a, b = parseDate(mw.ustring.match(a, pat[t])), parseDate(mw.ustring.match(b, pat[t]))
return os.difftime(os.time(a), os.time(b)) < 0
else
a, b = parseTime(mw.ustring.match(a, pat[t])), parseTime(mw.ustring.match(b, pat[t]))
return a < b
end
end)
return lists
end
function p.Stab(t, lists, html)
local Sstr = [[{{tabs/core
|LabelPadding=0.5em 0.75em
|LabelBorderColor=#aaa
|LabelColor=#aaa
|TextPadding=1em
|TextBorderColor=#aaa
]]
local pat = {
"投稿时间%s*=%s*(%d+)",
"达成时间%s*=%s*(%d+)",
"所用时间%s*=%s*(%d+)"
}
if(t ~= 3) then
local j, Ynow, Etext = 1, "2000", {"年投稿", "年达成"}
for i = 1, #lists do
local Ythis = mw.ustring.match(lists[i], pat[t])
if(Ythis ~= Ynow) then
Sstr = Sstr.."|label"..j.."= {{color|#007FFF|'''<u>"..Ythis..Etext[t].."</u>'''}}|text"..j.."="
j, Ynow = j + 1, Ythis
end
Sstr = Sstr..'<span data-replacement="'..i..'"></span>'
end
else
local j = 1
local Etext = {
{0, 10, 40, 100, 200, 400, 600, 800, 1000, 1500, 10000},
{"0~9日", "10~39日", "40~99日", "100~199日", "200~399日", "400~599日", "600~799日", "800~999日", "1000~1499日", "1500日以上"}
}
for i = 1, #lists do
local d = tonumber(mw.ustring.match(lists[i], pat[3]))
if(d >= Etext[1][j]) then
Sstr = Sstr.."|label"..j.."= {{color|#007FFF|'''<u>"..Etext[2][j].."</u>'''}}|text"..j.."="
j = j + 1
end
Sstr = Sstr..'<span data-replacement="'..i..'"></span>'
end
end
Sstr = this:preprocess(Sstr.."}}")
Sstr = mw.ustring.gsub(Sstr, '<span data%-replacement="(%d+)"></span>', html)
return Sstr
end
return p
模块文档