模块: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")

    local stationIndex = 1
    while args["Sta" .. stationIndex] do
        local stationInfo = args["Sta" .. stationIndex]
        local staName = mw.ustring.match(stationInfo, "([^|]+)")
        
        if staName then
            local li = stationList:tag("li")
            local stationDiv = li:tag("div"):addClass("name"):wikitext(staName)
            
            local transferInfo = mw.ustring.match(stationInfo, "|(.+)")
            if transferInfo then
                local transferDiv = stationDiv:tag("div"):addClass("transfer")
                for transfer in mw.ustring.gmatch(transferInfo, "([^/]+)") do
                    local line, color = mw.ustring.match(transfer, "(.+)%+(%w+)")
                    if line and color then
                        local transferLineDiv = transferDiv:tag("div")
                        transferLineDiv:tag("div"):wikitext(line)
                        transferLineDiv:tag("div"):css("background-color", color)
                    end
                end
            end
        end

        stationIndex = stationIndex + 1
    end

    local firstLi = stationList:node(1)
    mw.html.create("div")
        :addClass("line")
        :css("background-color", lineColor)
        :wikitext("")
        :done()
        :insertBefore(firstLi)

    return tostring(output)
end

return p