Модуль:ChemCard

Для документации этого модуля может быть создана страница Модуль:ChemCard/doc

local p = {}
local mw = mw
local html = mw.html

local function getArgs(frame)
    if type(frame) == "table" and frame.args then
        return frame.args
    end
    return mw.getCurrentFrame():getParent().args or {}
end

local function splitLines(s)
    local t = {}
    if not s then return t end
    for line in mw.text.gsplit(s, "\n") do
        line = mw.text.trim(line)
        if line ~= "" then
            table.insert(t, line)
        end
    end
    return t
end

local function parseLineToItem(l)
    local name, qty = mw.ustring.match(l, "^(.*)%s*%[%s*([%d,%.]+)%s*%]%s*$")
    if not name then
        name = l
        qty = "1"
    end
    return {
        name = mw.text.trim(name),
        qty = qty or "1"
    }
end

local function parseRecipeString(recipeStr)
    if not recipeStr or recipeStr == "" then
        return nil
    end

    local lines = splitLines(recipeStr)
    if #lines == 0 then
        return nil
    end

    local splitIdx, action
    for i, line in ipairs(lines) do
        if mw.ustring.lower(line):find("смеш") then
            splitIdx = i
            action = "смешайте"
            break
        end
    end

    local inputs, outputs = {}, {}

    if splitIdx then
        for i = 1, splitIdx - 1 do
            table.insert(outputs, parseLineToItem(lines[i]))
        end
        for i = splitIdx + 1, #lines do
            table.insert(inputs, parseLineToItem(lines[i]))
        end
    else
        for i = 1, #lines do
            table.insert(outputs, parseLineToItem(lines[i]))
        end
    end

    if #inputs == 0 and #outputs == 0 then
        return nil
    end

    return {
        inputs = inputs,
        outputs = outputs,
        action = action or ""
    }
end

local function buildRecipeHtml(rec)
    if not rec or (#rec.inputs == 0 and #rec.outputs == 0) then
        return nil
    end

    local container = html.create("div"):addClass("chem-recipe-block")

    local heading = html.create("div")
        :addClass("chem-heading")
        :attr("data-kind", "recipe")
    heading:tag("span"):wikitext("Рецепт")
    container:node(heading)

    local collapsible = html.create("div")
        :addClass("collapsible collapsed")
        :attr("data-kind", "recipe")

    local inner = html.create("div"):addClass("chem-recipe")

    local inputsDiv = html.create("div"):addClass("recipe-inputs")
    for _, it in ipairs(rec.inputs) do
        inputsDiv:tag("div")
            :addClass("recipe-item")
            :wikitext(it.name .. " [" .. it.qty .. "]")
    end
    inner:node(inputsDiv)

    if rec.action ~= "" then
        inner:tag("div")
            :addClass("recipe-action")
            :wikitext(rec.action)
    end

    local outputsDiv = html.create("div"):addClass("recipe-outputs")
    for _, it in ipairs(rec.outputs) do
        outputsDiv:tag("div")
            :addClass("recipe-item")
            :wikitext(it.name .. " [" .. it.qty .. "]")
    end
    inner:node(outputsDiv)

    collapsible:node(inner)
    container:node(collapsible)
    return container
end

local function buildEffectsHtml(effects)
    if not effects or effects == "" or effects == "Нет" then
        return nil
    end

    local container = html.create("div"):addClass("chem-effects-block")

    local heading = html.create("div")
        :addClass("chem-heading")
        :attr("data-kind", "effects")
    heading:tag("span"):wikitext("Эффекты")
    container:node(heading)

    local collapsible = html.create("div")
        :addClass("collapsible collapsed")
        :attr("data-kind", "effects")

    local inner = html.create("div"):addClass("chem-effects")
    local ul = html.create("ul")

    local seen = {}
    for effect in mw.text.gsplit(effects, "[;\n]") do
        effect = mw.text.trim(effect)
        if effect ~= "" and not seen[effect] then
            seen[effect] = true
            ul:tag("li"):wikitext(effect)
        end
    end

    inner:node(ul)
    collapsible:node(inner)
    container:node(collapsible)
    return container
end

function p.card(frame)
    local args = getArgs(frame)

    local name = args.name or "—"
    local color = args.color or "#8cf"
    local border = args.border or "#444"
    local effects = args.effects or ""
    local desc = args.desc or ""

    local recipes = {}
    local i = 1
    while true do
        local key = i == 1 and "recipe" or ("recipe" .. i)
        local recipeStr = args[key]
        if not recipeStr then break end

        local parsed = parseRecipeString(recipeStr)
        if parsed then
            table.insert(recipes, parsed)
        end
        i = i + 1
    end

    local container = html.create("div"):addClass("chem-card")
    container:attr("style", "border-color:" .. border .. "; --card-accent:" .. color)

    container:tag("h3"):wikitext(name)

    for _, rec in ipairs(recipes) do
        local block = buildRecipeHtml(rec)
        if block then
            container:node(block)
        end
    end

    local effectsBlock = buildEffectsHtml(effects)
    if effectsBlock then
        container:node(effectsBlock)
    end

    if desc ~= "" then
        container:tag("div"):addClass("chem-desc"):wikitext(desc)
    end

    return tostring(container)
end

return p