模块:LineList

---

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
        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 = mw.ustring.match(args["Sta" .. i], "|(.+)")
            if transfers then
                for transferInfo in mw.ustring.gmatch(transfers, "([^|]+)") do
                    local line, color = mw.ustring.match(transferInfo, "([^+]+)%+(%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