模块:LineList

来自临东市服务器Wiki
AurLemonCN讨论 | 贡献2023年9月12日 (二) 21:35的版本 (缩进看着好丑啊)

--
-- 柠檬写的 230909
-- For 临东定制
--

local p = {}

function p.infobox(frame)
local args = frame:getParent().args
local lineName = args.Name
local lineColor = args.Color
local company = args.Company
local ticket = args.Ticket
local firstTrain = args.FirstTrain
local lastTrain = args.LastTrain

local output = mw.html.create("div")
output:addClass("infobox-card")

if args.Clear ~= nil then
	output:cssText('clear: unset;')
end

local header = output:tag("div"):addClass("header")
header:tag("div"):addClass("line-name"):wikitext(lineName)

local detail = header:tag("div"):addClass("detail")
detail:tag("div"):addClass("company"):wikitext(company)

local time = header:tag("div"):addClass("time")
time:tag("div"):addClass("first-train"):wikitext(firstTrain)
time:tag("div"):addClass("last-train"):wikitext(lastTrain)
time:tag("div"):addClass("ticket"):wikitext(ticket)

local stationList = output:tag("ul"):addClass("station-list")
if args.Direction then
	local direction = args.Direction
	stationList:tag("div"):addClass("direction"):wikitext(direction)
end
stationList:wikitext("<div class='line' style='background-color:" .. lineColor .. ";'></div>")

local maxStationIndex = 0
for key, _ in pairs(args) do
	local stationIndex = tonumber(key:match("^Sta(%d+)$"))
	if stationIndex and stationIndex > maxStationIndex then
		maxStationIndex = stationIndex
	end
end

for stationIndex = 1, maxStationIndex do
	local stationInfo = args["Sta" .. stationIndex]
	if stationInfo then
		local li = stationList:tag("li")
		local stationDiv = li:tag("div"):addClass("name")
		local stationDivCircle = stationDiv:tag("div"):addClass("circle"):cssText('border: 4px solid ' .. lineColor .. ';')
		local expandedText = frame:preprocess(stationInfo)
		stationDiv:wikitext(expandedText)
		
		if args["Sta" .. stationIndex .. "Unopen"] then
			stationDiv:cssText('color: var(--color-base--subtle);')
			stationDivCircle:cssText('border: 4px solid var(--color-surface-4);')
		end
	end
end

return tostring(output)
end

return p