模块: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 lineDiv = output:tag("div")
    lineDiv:addClass("line")
    lineDiv:css("background-color", lineColor)

    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, transferInfo = mw.ustring.match(stationInfo, "([^|]+)|(.+)")

        local li = stationList:tag("li")
        li:tag("div"):addClass("name"):wikitext(staName)

        if transferInfo then
            local transferDiv = li:tag("div"):addClass("transfer")

            for transfer in mw.ustring.gmatch(transferInfo, "([^+]+%+%w+)") do
                local line, color = mw.ustring.match(transfer, "(.+)%(+(%w+))")
                if line and color then
                    local div = transferDiv:tag("div")
                    div:css("background-color", color):wikitext(line)
                end
            end
        end

        stationIndex = stationIndex + 1
    end

    return tostring(output)
end

return p