模块:LineList

来自临东市服务器Wiki
AurLemonCN讨论 | 贡献2023年9月9日 (六) 11:56的版本

local p = {}

function p.infobox(frame)
    local args = frame.args
    local lineName = args.Name or ""
    local lineColor = args.Color or "gray"
    local company = args.Company or ""
    local firstTrain = args.FirstTrain or ""
    local lastTrain = args.LastTrain or ""
    
    local output = mw.html.create("div")
    output:addClass("infobox-card")
    
    -- 处理头部信息
    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)
    
    -- 处理站点列表
    local stationList = output:tag("ul"):addClass("station-list")
    
    for i = 1, 30 do  -- 假设最多处理30个站点
        local staName = args["Sta" .. i] or ""
        
        if staName ~= "" then
            local li = stationList:tag("li")
            li:tag("div"):addClass("name"):wikitext(staName)
            
            local transfer = li:tag("div"):addClass("transfer")
            
            -- 检查是否有换乘信息
            local transfers = args["Sta" .. i]
            if transfers then
                for transferInfo in string.gmatch(transfers, "|([^|]+)") do
                    local line, color = string.match(transferInfo, "(%w+)%+(%w+)")
                    if line and color then
                        transfer:tag("div"):wikitext(line)
                            :css("background-color", color)
                    end
                end
            end
        end
    end
    
    return tostring(output)
end

return p