Модуль:FtlMarking

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

local p = {}

local function trim(s)
    return (s:gsub("^%s*(.-)%s*$", "%1"))
end

local function transform(s)
    if not s or s == "" then return "" end

    local pattern = "%[([%w_]+)(=([^%]]+))?%]([%s%S]-)%[/%1%]"

    local changed = true
    while changed do
        changed = false
        s = s:gsub(pattern, function(tag, _, param, inner)
            changed = true
            local t = mw.ustring.lower(tag)

            if t == "bold" then
                return "'''" .. inner .. "'''"
            elseif t == "italic" then
                return "''" .. inner .. "''"
            elseif t == "head" then
                local lvl = tonumber(param) or 1
                if lvl < 1 then lvl = 1 end
                if lvl > 6 then lvl = 6 end
                local eq = mw.ustring.rep("=", lvl)
                return eq .. " " .. trim(inner) .. " " .. eq .. "\n\n"
            elseif t == "color" then
                return '<span style="color:' .. param .. ';">' .. inner .. '</span>'
            else
                return inner
            end
        end)
    end

    s = s:gsub("%[/?[%w_]+[^%]]*%]", "")

    return s
end

function p.main(frame)
    local text = frame.args.text or frame.args[1] or ""
    local out = transform(text)
    return frame:preprocess(out)
end

return p