Модуль:ChemCard

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

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

local function getArgs(frame)
  local args = {}
  if type(frame) == "table" and frame.args then
    args = frame.args
  else
    args = mw.getCurrentFrame():getParent().args or {}
  end
  return args
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
  name = mw.text.trim(name)
  return {name = name, qty = qty or "1"}
end

local function parseRecipeString(recipeStr)
  if not recipeStr or recipeStr == "" then return {inputs = {}, outputs = {}, action=""} end
  local lines = splitLines(recipeStr)
  local splitIdx, action
  for i,line in ipairs(lines) do
    if mw.ustring.lower(line):find("смеш") then
      splitIdx = i
      action = line
      break
    end
  end
  local inputs = {}
  local outputs = {}
  if splitIdx then
    for i=1,splitIdx-1 do table.insert(inputs, parseLineToItem(lines[i])) end
    for i=splitIdx+1,#lines do table.insert(outputs, parseLineToItem(lines[i])) end
  else
    for i=1,#lines do table.insert(inputs, parseLineToItem(lines[i])) end
  end
  return {inputs = inputs, outputs = outputs, action=action}
end

local function parseRecipeN(args)
  local inputs, outputs, action = {}, {}, ""
  for i = 1, 24 do
    local name = args["recipe"..i] or args["r"..i]
    local q = args["recipe"..i.."_q"] or args["r"..i.."_q"] or args["q"..i]
    local part = args["recipe"..i.."_part"] or args["r"..i.."_part"]
    if name and name ~= "" then
      local qty = q and q ~= "" and tostring(q) or "1"
      local item = {name = name, qty = qty}
      if part and (part == "out" or part == "output" or part == "result") then
        table.insert(outputs, item)
      else
        table.insert(inputs, item)
      end
    end
    local act = args["recipe_action"]
    if act and act ~= "" then action = act end
  end
  return {inputs=inputs, outputs=outputs, action=action}
end

local function mergeRecipes(r1, r2)
  local inputs, outputs, action = {}, {}, r1.action or r2.action
  for _,v in ipairs(r1.inputs or {}) do table.insert(inputs, v) end
  for _,v in ipairs(r2.inputs or {}) do table.insert(inputs, v) end
  for _,v in ipairs(r1.outputs or {}) do table.insert(outputs, v) end
  for _,v in ipairs(r2.outputs or {}) do table.insert(outputs, v) end
  return {inputs=inputs, outputs=outputs, action=action}
end

local function buildRecipeHtml(rec)
  if not rec then return nil end
  local container = html.create("div")
  container: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
  container:node(inputsDiv)

  if rec.action and #rec.inputs>0 and #rec.outputs>0 then
    container: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
  container:node(outputsDiv)

  return tostring(container)
end

function p.card(frame)
  local args = getArgs(frame)
  local name = args.name or args.title or "—"
  local color = args.color or args.colour or ""
  local border = args.border or args.bordercolor or ""
  local bg = args.bg or args.bgcolor or ""
  local recipeStr = args.recipe or args.rezept or ""
  local parsedStr = parseRecipeString(recipeStr)
  local parsedN = parseRecipeN(args)
  local recipeMerged = mergeRecipes(parsedStr, parsedN)
  local desc = args.description or args.desc or ""

  local container = html.create("div")
  container:addClass("chem-card")
  local styleParts = {}
  if color and color ~= "" then table.insert(styleParts, "--card-accent:"..color) end
  if border and border ~= "" then table.insert(styleParts, "--card-border:"..border) end
  if bg and bg ~= "" then table.insert(styleParts, "--card-bg:"..bg) end
  if #styleParts > 0 then container:attr("style", table.concat(styleParts, ";")) end

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

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

  return tostring(container)
end

return p