Модуль: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 {} end
    local lines = splitLines(recipeStr)
    local steps = {}
    local currentInputs = {}
    local i = 1

    while i <= #lines do
        local line = lines[i]
        local lower = mw.ustring.lower(line)

        if lower:find("смеш") then
            if #currentInputs > 0 then
                local outputs = {}
                i = i + 1

                while i <= #lines do
                    local nextLine = lines[i]
                    local nextLower = mw.ustring.lower(nextLine)
                    if nextLower:find("смеш") then break end
                    table.insert(outputs, parseLineToItem(nextLine))
                    i = i + 1
                end

                table.insert(steps, {
                    inputs = currentInputs,
                    outputs = outputs,
                    action = mw.text.trim(line)
                })

                currentInputs = {}
            else
                i = i + 1
            end
        else
            table.insert(currentInputs, parseLineToItem(line))
            i = i + 1
        end
    end

    if #currentInputs > 0 then
        table.insert(steps, { inputs = currentInputs, outputs = {}, action = "" })
    end

    return steps
end

local FILE_PATTERN = "(%[%[File:[^]]+%]%])"

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

    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('[[File:Beaker.png|36px|class=chem-beaker]] ' .. it.name .. ' [' .. it.qty .. ']')
    end
    inner:node(inputsDiv)

    local actionDiv = inner:tag("div"):addClass("recipe-action")
    if rec.action and rec.action ~= "" then
        local content = actionDiv:tag("div"):addClass("recipe-action-content")

        local sprite = '[[File:Beaker.png|36px|class=chem-beaker]]'
        local actionText = rec.action

        local customSprite = mw.ustring.match(actionText, FILE_PATTERN)
        if customSprite then
            sprite = customSprite
            actionText = mw.text.trim(mw.ustring.gsub(actionText, FILE_PATTERN, ""))
        end

        content:tag("div"):addClass("action-sprite"):wikitext(sprite)
        content:tag("div"):addClass("action-text"):wikitext(actionText)
    end

    local outputsDiv = html.create("div"):addClass("recipe-outputs")
    for _, it in ipairs(rec.outputs) do
        outputsDiv:tag("div")
            :addClass("recipe-item")
            :wikitext('[[File:Beaker.png|36px|class=chem-beaker]] ' .. it.name .. ' [' .. it.qty .. ']')
    end
    inner:node(outputsDiv)

    return inner
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")
    local hcontent = heading:tag("div"):addClass("chem-heading-content")
    hcontent:tag("span"):addClass("heading-text"):wikitext("Эффекты")
    hcontent:tag("span"):addClass("collapse-btn"):wikitext("развернуть")

    container:node(heading)

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

    for effect in mw.text.gsplit(effects, "[;\n]") do
        effect = mw.text.trim(effect)
        if effect ~= "" then
            inner:tag("div"):addClass("chem-effect-line"):wikitext(effect)
        end
    end

    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 desc = args.desc or ""

    local variants = {}
    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 steps = parseRecipeString(recipeStr)
        if #steps > 0 then
            table.insert(variants, {steps = steps})
        end

        i = i + 1
    end

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

    container:tag("div")
        :addClass("chem-name-header")
        :wikitext(name)

    if #variants > 0 then
        local recipeBlock = html.create("div"):addClass("chem-recipe-block")

        local heading = html.create("div"):addClass("chem-heading")
        local hcontent = heading:tag("div"):addClass("chem-heading-content")
        hcontent:tag("span"):addClass("heading-text"):wikitext("Рецепты")
        hcontent:tag("span"):addClass("collapse-btn"):wikitext("развернуть")

        recipeBlock:node(heading)

        local collapsible = html.create("div"):addClass("collapsible")
        local stepsContainer = html.create("div"):addClass("chem-recipe-steps")

        for vidx, variant in ipairs(variants) do
            if #variants > 1 then
                stepsContainer:tag("div")
                    :addClass("recipe-variant-header")
                    :wikitext("Вариант " .. vidx)
            end

            for _, rec in ipairs(variant.steps) do
                local step = buildRecipeStepHtml(rec)
                if step then stepsContainer:node(step) end
            end
        end

        collapsible:node(stepsContainer)
        recipeBlock:node(collapsible)
        container:node(recipeBlock)
    end

    local effectsBlock = buildEffectsHtml(args.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