Space Station 14 Вики

Модуль:FtlMarking: различия между версиями

Интерактивная навигация по истории
← Предыдущая правка
мНет описания правки
мНет описания правки
 
(не показано 9 промежуточных версий этого же участника)
Строка 23: Строка 23:
         local family = params and params._value or nil
         local family = params and params._value or nil
         local size = params and tonumber(params.size) or nil
         local size = params and tonumber(params.size) or nil
         local style_parts = {}
         local style_parts = {}
         if family and family ~= "" then
         if family and family ~= "" then
Строка 31: Строка 30:
             table.insert(style_parts, "font-size:" .. size .. "px")
             table.insert(style_parts, "font-size:" .. size .. "px")
         end
         end
         if #style_parts == 0 then
         if #style_parts == 0 then
             return '<span>' .. inner .. '</span>'
             return '<span>' .. inner .. '</span>'
Строка 54: Строка 52:
     attr_str = trim(attr_str)
     attr_str = trim(attr_str)
     if attr_str == "" then return nil end
     if attr_str == "" then return nil end
    local params = {}


     local params = {}
     local function unquote_val(v)
        if not v then return v end
        v = trim(v)
        v = mw.ustring.gsub(v, "^&#34;(.-)&#34;$", "%1")
        v = mw.ustring.gsub(v, '^"(.-)"$', "%1")
        return v
    end


     for k, v in mw.ustring.gmatch(attr_str, "([%w_%-%:]+)%s*&#61;%s*\"(.-)\"") do
     for k, v in mw.ustring.gmatch(attr_str, "([%w_%-%:]+)%s*&#61;%s*\"(.-)\"") do
         params[mw.ustring.lower(k)] = v
         params[mw.ustring.lower(k)] = unquote_val(v)
     end
     end
     attr_str = mw.ustring.gsub(attr_str, "([%w_%-%:]+)%s*&#61;%s*\"(.-)\"", "")
     attr_str = mw.ustring.gsub(attr_str, "([%w_%-%:]+)%s*&#61;%s*\"(.-)\"", "")


     for k, v in mw.ustring.gmatch(attr_str, "([%w_%-%:]+)%s*&#61;%s*([^%s%]]+)") do
     for k, v in mw.ustring.gmatch(attr_str, "([%w_%-%:]+)%s*&#61;%s*([^%s%]]+)") do
         params[mw.ustring.lower(k)] = v
         params[mw.ustring.lower(k)] = unquote_val(v)
     end
     end
     attr_str = mw.ustring.gsub(attr_str, "([%w_%-%:]+)%s*&#61;%s*([^%s%]]+)", "")
     attr_str = mw.ustring.gsub(attr_str, "([%w_%-%:]+)%s*&#61;%s*([^%s%]]+)", "")


     local unnamed = mw.ustring.match(attr_str, "%s*\"(.-)\"")
     local unnamed = mw.ustring.match(attr_str, "%s*&#34;(.-)&#34;") or mw.ustring.match(attr_str, "%s*\"(.-)\"")
     if unnamed then
     if unnamed then
         params._value = unnamed
         params._value = unquote_val(unnamed)
        attr_str = mw.ustring.gsub(attr_str, "%s*&#34;(.-)&#34;", "", 1)
         attr_str = mw.ustring.gsub(attr_str, "%s*\"(.-)\"", "", 1)
         attr_str = mw.ustring.gsub(attr_str, "%s*\"(.-)\"", "", 1)
     end
     end
Строка 75: Строка 81:
     if not params._value then
     if not params._value then
         local v = mw.ustring.match(attr_str, "%s*([^%s%]]+)")
         local v = mw.ustring.match(attr_str, "%s*([^%s%]]+)")
         if v then params._value = v end
         if v then params._value = unquote_val(v) end
     end
     end


     return params
     return params
end
local function convert_lists(s)
    if not s or s == "" then return s end
    local lines = mw.text.split(s, "\n")
    local first_non_empty = nil
    local first_non_empty_unescaped = nil
    for i, line in ipairs(lines) do
        if line and line:match("%S") then
            first_non_empty = line
            first_non_empty_unescaped = mw.ustring.gsub(line, "&#32;", " ")
            break
        end
    end
    local enable_numeric = false
    if first_non_empty_unescaped and mw.ustring.match(first_non_empty_unescaped, "^%s*%d+%.") then
        enable_numeric = true
    end
    local out_lines = {}
    for _, line in ipairs(lines) do
        local processed = line
        local handled = false
        local line_unescaped = mw.ustring.gsub(line, "&#32;", " ")
        if enable_numeric then
            local leading, num, rest = mw.ustring.match(line_unescaped, "^(%s*)(%d+)%.%s*(.*)$")
            if num then
                local indent = mw.ustring.len(leading or "")
                local level = math.floor(indent / 2)
                local hashes = string.rep('#', 1 + level)
                processed = hashes .. (rest ~= "" and (" " .. rest) or "")
                table.insert(out_lines, processed)
                handled = true
            end
        end
        if not handled then
            local leading, rest = mw.ustring.match(line_unescaped, "^(%s*)%-%s+(.*)$")
            if rest then
                local indent = mw.ustring.len(leading or "")
                local level = math.floor(indent / 2)
                local stars = string.rep('*', 1 + level)
                processed = stars .. (rest ~= "" and (" " .. rest) or "")
                table.insert(out_lines, processed)
                handled = true
            end
        end
        if not handled then
            table.insert(out_lines, processed)
        end
    end
    return table.concat(out_lines, "\n")
end
end


local function transform(s)
local function transform(s)
     s = s or ""
     s = s or ""
    s = mw.ustring.gsub(s, "%[tooltip([^%]]*)%]", function(raw_attrs)
        local params = parse_attrs(raw_attrs)
        local tip = ""
        local visible = ""
        if params then
            if params.tooltip then tip = params.tooltip end
            if params.text then visible = params.text end
            if visible == "" and params._value then visible = params._value end
            if tip == "" and params._value and visible ~= params._value then tip = params._value end
        end
        visible = mw.ustring.gsub(visible, "|", "&#124;")
        tip = mw.ustring.gsub(tip, "|", "&#124;")
        return "{{altTooltip|" .. (visible or "") .. "|" .. (tip or "") .. "}}"
    end)
     while true do
     while true do
         local c_s, c_e, c_tag = mw.ustring.find(s, "%[/([%w_]+)%]")
         local c_s, c_e, c_tag = mw.ustring.find(s, "%[/([%w_]+)%]")
         if not c_s then break end
         if not c_s then break end
         local last_o_s, last_o_e = nil, nil
         local last_o_s, last_o_e = nil, nil
         local search_pos = 1
         local search_pos = 1
Строка 95: Строка 171:
             search_pos = b + 1
             search_pos = b + 1
         end
         end
         if not last_o_s then
         if not last_o_s then
             s = mw.ustring.sub(s, 1, c_s - 1) .. mw.ustring.sub(s, c_e + 1)
             s = mw.ustring.sub(s, 1, c_s - 1) .. mw.ustring.sub(s, c_e + 1)
Строка 103: Строка 178:
             local params = parse_attrs(raw_attrs)
             local params = parse_attrs(raw_attrs)
             local replacement = apply_tag(c_tag, params, inner)
             local replacement = apply_tag(c_tag, params, inner)
             s = mw.ustring.sub(s, 1, last_o_s - 1) .. replacement .. mw.ustring.sub(s, c_e + 1)
             s = mw.ustring.sub(s, 1, last_o_s - 1) .. replacement .. mw.ustring.sub(s, c_e + 1)
         end
         end
     end
     end
     s = mw.ustring.gsub(s, "%[/?[%w_]+[^%]]*%]", "")
     s = mw.ustring.gsub(s, "%[/?[%w_]+[^%]]*%]", "")
 
    s = convert_lists(s)
     return s
     return s
end
end


local function process_nowiki_equals(str)
local function process_nowiki_equals(str)
str = str:gsub('#', '&#35;')
    str = str:gsub('#', '&#35;')
             :gsub('=', '&#61;')
             :gsub('=', '&#61;')
             :gsub(' ', '&#32;')
             :gsub(' ', '&#32;')
Строка 121: Строка 194:
             :gsub("'", '&#10;')
             :gsub("'", '&#10;')
             :gsub('*', '&#42;')
             :gsub('*', '&#42;')
return str
    return str
end
end


Строка 129: Строка 202:
     text = mw.text.unstripNoWiki(text)
     text = mw.text.unstripNoWiki(text)
     text = process_nowiki_equals(text)
     text = process_nowiki_equals(text)
     return transform(text)
     return frame:preprocess(transform(text))
end
end


return p
return p
Источник — https://station14.ru/wiki/Модуль:FtlMarking