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

мНет описания правки
Нет описания правки
 
(не показаны 42 промежуточные версии этого же участника)
Строка 53: Строка 53:
     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, "^"(.-)"$", "%1")
        v = mw.ustring.gsub(v, '^"(.-)"$', "%1")
        return v
    end
     for k, v in mw.ustring.gmatch(attr_str, "([%w_%-%:]+)%s*=%s*\"(.-)\"") do
     for k, v in mw.ustring.gmatch(attr_str, "([%w_%-%:]+)%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*=%s*\"(.-)\"", "")
     attr_str = mw.ustring.gsub(attr_str, "([%w_%-%:]+)%s*=%s*\"(.-)\"", "")
     for k, v in mw.ustring.gmatch(attr_str, "([%w_%-%:]+)%s*=%s*([^%s%]]+)") do
     for k, v in mw.ustring.gmatch(attr_str, "([%w_%-%:]+)%s*=%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*=%s*([^%s%]]+)", "")
     attr_str = mw.ustring.gsub(attr_str, "([%w_%-%:]+)%s*=%s*([^%s%]]+)", "")
     local unnamed = mw.ustring.match(attr_str, "%s*\"(.-)\"")
 
     local unnamed = mw.ustring.match(attr_str, "%s*"(.-)"") 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*"(.-)"", "", 1)
         attr_str = mw.ustring.gsub(attr_str, "%s*\"(.-)\"", "", 1)
         attr_str = mw.ustring.gsub(attr_str, "%s*\"(.-)\"", "", 1)
     end
     end
     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
end


local function convert_lists(s)
local function convert_lists(s, indent_size)
     local lines = mw.text.split(s or "", "\n", true)
     indent_size = indent_size or 2
    local out = {}
    if not s or s == "" then return s end


     for _, line in ipairs(lines) do
     local lines = mw.text.split(s, "\n")
        local indentEsc = mw.ustring.match(line, "^((  )*)") or ""
    local out_lines = {}
        local level = 0
 
    local stack = {}


         if indentEsc ~= "" then
    local function make_prefix_from_stack()
            level = mw.ustring.len(indentEsc) / mw.ustring.len("  ")
         if #stack == 0 then return "" end
        end
        return table.concat(stack, "")
    end


         local content = mw.ustring.sub(line, mw.ustring.len(indentEsc) + 1)
    for _, line in ipairs(lines) do
         local line_unescaped = mw.ustring.gsub(line, " ", " ")
        local leading, num, rest_num = mw.ustring.match(line_unescaped, "^(%s*)(%d+)%.%s*(.*)$")
        local leading2, rest_dash = mw.ustring.match(line_unescaped, "^(%s*)%-%s+(.*)$")


         local numMatch = mw.ustring.match(content, "^%d+%.%s*(.*)")
         if num then
        if numMatch then
            local indent = mw.ustring.len(leading or "")
             table.insert(out, string.rep("#", level + 1) .. " " .. numMatch)
            local level = math.floor(indent / indent_size)
         else
            while #stack > level do table.remove(stack) end
             local dashMatch = mw.ustring.match(content, "^%-%s*(.*)")
            if #stack == level then
             if dashMatch then
                table.insert(stack, "#")
                 table.insert(out, string.rep("*", level + 1) .. " " .. dashMatch)
             else
                while #stack < level do table.insert(stack, "#") end
                table.insert(stack, "#")
            end
            local prefix = make_prefix_from_stack()
            local text = rest_num or ""
            table.insert(out_lines, (prefix ~= "" and (prefix .. (text ~= "" and (" " .. text) or "")) or text))
         elseif rest_dash then
             local indent = mw.ustring.len(leading2 or "")
            local level = math.floor(indent / indent_size)
            while #stack > level do table.remove(stack) end
             if #stack == level then
                 table.insert(stack, "*")
             else
             else
                 table.insert(out, line)
                 while #stack < level do table.insert(stack, "*") end
                table.insert(stack, "*")
             end
             end
            local prefix = make_prefix_from_stack()
            local text = rest_dash or ""
            table.insert(out_lines, (prefix ~= "" and (prefix .. (text ~= "" and (" " .. text) or "")) or text))
        else
            stack = {}
            table.insert(out_lines, line)
         end
         end
     end
     end


     return table.concat(out, "\n")
     return table.concat(out_lines, "\n")
end
end


Строка 115: Строка 153:
             if tip == "" and params._value and visible ~= params._value then tip = params._value end
             if tip == "" and params._value and visible ~= params._value then tip = params._value end
         end
         end
        visible = mw.ustring.gsub(visible, "|", "&#124;")
         return "{{altTooltip|1=" .. (visible or "") .. "|2=<span style='white-space:pre-wrap;'>{{#invoke:Loc|GetRawString|noFormat=1|" .. (tip or "") .. "}}</span>}}"
        tip = mw.ustring.gsub(tip, "|", "&#124;")
         return "{{tooltip|" .. (visible or "") .. "||" .. (tip or "") .. "}}"
     end)
     end)
     while true do
     while true do
Строка 149: Строка 185:
             :gsub('=', '&#61;')
             :gsub('=', '&#61;')
             :gsub(' ', '&#32;')
             :gsub(' ', '&#32;')
            :gsub('{"', '')
            :gsub('"}', '')
             :gsub('{', '&#123;')
             :gsub('{', '&#123;')
             :gsub('"', '&#34;')
             :gsub('"', '&#34;')
Строка 159: Строка 197:
     local args = frame.args or {}
     local args = frame.args or {}
     local text = args[1] or args.text or ""
     local text = args[1] or args.text or ""
    local noFormat = args.noFormat
     text = mw.text.unstripNoWiki(text)
     text = mw.text.unstripNoWiki(text)
     text = process_nowiki_equals(text)
     text = process_nowiki_equals(text)
     return frame:preprocess(transform(text))
 
    local class = noFormat and "ts-loc-format" or ""
    local content = transform(text)
    if mw.ustring.find(content, '^[ \t]*[#%*;%:]+') then
        content = '\n' .. content
    end
 
     return frame:preprocess(
        frame:extensionTag(
            'templatestyles',
            '',
            { src = 'Модуль:Loc/styles.css' }
        ) ..
        '<span class="list-reset-margin ' .. class .. '">' .. content .. '</span>'
    )
end
end


return p
return p