Module:L/沙盒
来自音MAD维基
< Module:L
可在Module:L/沙盒/doc创建此模块的帮助文档
local L = {}
local getArgs = require("Module:Arguments").getArgs
local isInArray = require("Module:Utils").isInArray
local yesno = require("Module:Yesno")
local linksTable = require("Module:L/Data")
local mw = mw or {}
function L.paramTable(part, time)
return { ["p"] = part, ["t"] = time }
end
function L.parseParam(paramTable)
local formatedText = {}
local spliter = "?"
for k, v in pairs(paramTable) do
spliter = #formatedText == 0 and "?" or "&"
-- mw.log(k, v)
if #v > 0 then
table.insert(formatedText, spliter .. mw.text.nowiki(k .. "=" .. v))
end
end
return table.concat(formatedText, "")
end
function L.statusTable(titleText, text, partText, category)
-- TODO 使用mediawiki自带模块处理html
return {
normal = { "", "<span title='" .. titleText .. "'>" .. text .. partText .. "</span>", "" },
invalidLink = {
category .. "<span class='plainlinks'>",
"<span title='" .. titleText .. "' style='color:grey'><s>" .. text .. partText .. "</s></span>",
"</span>",
},
invalidPart = {
category,
"<span title='" .. titleText .. "'>" .. text .. "<span style='color:grey'><s>" .. partText .. "</s></span>",
"",
},
reproduceProhibited = {
"",
"<span title='" .. titleText .. "'>" .. text .. partText .. "</span>",
"<span style='color:red'><small>(禁止转载)</small></span>",
},
}
end
function L.parseStatus(statusTable, status)
local formatedText
if isInArray(status, { "失效", "删除", "削除", "非公开" }) then
formatedText = statusTable.invalidLink
elseif isInArray(status, { "分p失效", "分p删除", "分p削除" }) then
formatedText = statusTable.invalidPart
elseif status == "禁止转载" then
formatedText = statusTable.reproduceProhibited
else
formatedText = statusTable.normal
end
return formatedText
end
function L.titleText(archive, id, status)
if archive then
return "原视频号为 " .. id
end
return status and "此作品目前处于" .. status .. "状态。" or id
end
function L.genLink(prefixToLink, params, id)
local prefix = prefixToLink[id:sub(1, 3):lower()] and id:sub(1, 3):lower() or id:sub(1, 2):lower()
local digit = id:sub(#prefix + 1)
if not prefixToLink[prefix] then
return id
end
local link = linksTable[prefix] .. digit .. params
return link
end
function L.generate(frame)
--[=[
生成特定号码对应链接的模块
@param 第一个参数,默认的视频号,会被archive参数覆盖
@param 第二个参数,默认的显示文本,为空时被第一个参数或archive参数覆盖
@param status 状态
@param p 分p号
@param t 时间号
@param archive 搬运地址或者视频号
@param option 样式的设置
@return html
--]=]
local args = getArgs(frame)
local id = args[1]
local pl = yesno(args["pl"])
-- 链接参数处理
local timeStr = args["t"] or "" -- TODO 播放时间点解析器
local partNum = args["p"] and tonumber(args["p"]) or 1
local partStr = partNum > 1 and args["p"] or ""
local params = L.parseParam(L.paramTable(partStr, timeStr))
-- 生成链接
local link = L.genLink(linksTable, params, id)
local pureOutput = link
if pl then
return pureOutput
end
-- html生成参数处理
local text = args[2] or id
local archive = args["archive"] or args["转载"] or args["补档"]
local status = args["status"] or args["状态"]
local option = args["option"]
-- 生成html文本
local category = option ~= "nocategory" and "[[分类:有失效链接的页面]]" or "" -- TODO 选项解析器
local partText = (partNum > 1 and "<sup>第" .. partStr .. "P</sup>") or ""
local titleText = L.titleText(archive, id, status)
local formatter = L.parseStatus(L.statusTable(titleText, text, partText, category), status)
local formattedOutput = ("%s[" .. link .. "%s]%s"):format(unpack(formatter))
if archive then
return formattedOutput .. '<span class="repost-circle">[' .. L.genLink(linksTable, "", archive) .. " 转]</span>"
end
return formattedOutput
end
return L