Modul:Galeria

A modult a Modul:Galeria/doc lapon tudod dokumentálni

local p = {}

-- =============================================================================
-- SEGÉDFÜGGVÉNYEK
-- =============================================================================

-- Eltávolítja a felesleges szóközöket és a láthatatlan sortörés karaktereket
local function megtisztitString(s)
    if not s then return "" end
    s = s:gsub("^%s*(.-)%s*$", "%1")
    s = s:gsub("[\n\r]", "")
    return s
end

-- Felismeri a kép típusát és visszaadja a letisztított elérési utat
local function detektalKepTipus(nyers_bemenet)
    if not nyers_bemenet or nyers_bemenet == "" then return nil end

    local s = megtisztitString(nyers_bemenet)

    -- 1. Eset: Wikimedia Commons hivatkozás
    if s:lower():find("^commons:") then
        local tiszta_nev = s:sub(9) -- levágjuk a "commons:" részt
        -- Ha a "File:" vagy "Fájl:" sincs ott, kiegészítjük
        if not tiszta_nev:lower():find("^file:") and not tiszta_nev:lower():find("^fájl:") then
            tiszta_nev = "File:" .. tiszta_nev
        end
        -- Átalakítjuk közvetlen URL-lé, hogy a LightGallery külső képként kezelhesse
        local url_nev = tiszta_nev:gsub(" ", "_")
        return {
            tipus = "URL",
            path = "https://commons.wikimedia.org/wiki/Special:FilePath/" .. url_nev,
            felirat = nil
        }
    end

    -- 2. Eset: Külső HTTP/HTTPS vagy Google Cache URL
    if s:find("^https?://") or s:find("^encrypted%-tbn") or s:find("gstatic%.com") then
        return {
            tipus = "URL",
            path = s,
            felirat = nil
        }
    end

    -- 3. Eset: Helyi wiki kép
    return {
        tipus = "WIKI",
        path = s,
        felirat = nil
    }
end

-- Eldönti egy stringről, hogy kép-e vagy pedig felirat
local function isKepFormatum(szoveg)
    if not szoveg or szoveg == "" then return false end
    local s = megtisztitString(szoveg):lower()

    if s:find("^https?://") or s:find("^encrypted%-tbn") or s:find("gstatic%.com") or s:find("^commons:") then
        return true
    end

    if s:find("%.jpg$") or s:find("%.jpeg$") or s:find("%.png$") or s:find("%.gif$") or s:find("%.svg$") or s:find("%.webp$") then
        return true
    end

    return false
end

-- Kinyeri a domaint a külső URL-ekből a forrás megjelöléséhez
local function kinyerForrasNev(url, eredeti_bemenet)
    if not url or url == "" then return "Külső forrás" end

    if url:find("google%.com") or url:find("gstatic%.com") or url:find("^encrypted%-tbn") then
        return "Google Cache"
    end

    local domain = url:match("^https?://([^/]+)")
    if domain then
        domain = domain:gsub("^www%.", "")
        return domain
    end

    return "Külső link"
end

-- =============================================================================
-- FŐ FUNKCIÓ: GALÉRIA GENERÁLÁSA
-- =============================================================================
function p.generalGaleria(frame)
    local args = {}
    if type(frame) == "table" and type(frame.getParent) == "function" then
        args = frame:getParent().args
        if not args or (not args[1] and not args['k1']) then
            args = frame.args
        end
    else
        args = frame
    end

    -- -------------------------------------------------------------------------
    -- BOMBABIZTOS ELŐFELDOLGOZÁS: Újraépítjük a listát sorrendhelyesen
    -- -------------------------------------------------------------------------
    local nyers_elemek = {}
    local max_index = 0

    -- 1. Lépés: Gyűjtsük ki a tiszta numerikus paramétereket
    for k, v in pairs(args) do
        if type(k) == "number" and k > max_index then max_index = k end
    end
    for i = 1, max_index do
        if args[i] then
            nyers_elemek[i] = megtisztitString(args[i])
        end
    end

    -- 2. Lépés: Vadásszuk le a sérült Google/külső URL kulcsokat
    for k, v in pairs(args) do
        if type(k) == "string" then
            local tiszta_kulcs = megtisztitString(k)
            if tiszta_kulcs:find("^https?://") or tiszta_kulcs:find("^encrypted%-tbn") or tiszta_kulcs:find("gstatic%.com") then
                local teljes_url = tiszta_kulcs .. "=" .. megtisztitString(v)

                local beszurt_hely = nil
                for i = 1, max_index + 5 do
                    if nyers_elemek[i] and not isKepFormatum(nyers_elemek[i]) and nyers_elemek[i] ~= "" then
                        table.insert(nyers_elemek, i, teljes_url)
                        beszurt_hely = i
                        break
                    elseif not nyers_elemek[i] or nyers_elemek[i] == "" then
                        nyers_elemek[i] = teljes_url
                        beszurt_hely = i
                        break
                    end
                end

                if beszurt_hely and beszurt_hely > max_index then
                    max_index = beszurt_hely
                end
            end
        end
    end

    -- 3. Lépés: Tömörítés és a rendezett_args véglegesítése
    local rendezett_args = {}
    for i = 1, max_index + 5 do
        if nyers_elemek[i] and nyers_elemek[i] ~= "" then
            table.insert(rendezett_args, nyers_elemek[i])
        end
    end

    -- -------------------------------------------------------------------------
    -- FŐ RENDERELŐ CIKLUS
    -- -------------------------------------------------------------------------
    local html = {}
    table.insert(html, '<div class="egyedi-galeria-container">')

    local i = 1
    while rendezett_args[i] do
        local v = rendezett_args[i]

        if v ~= "" and isKepFormatum(v) then
            local kepAdat = detektalKepTipus(v)

            if kepAdat then
                if rendezett_args[i+1] then
                    local kovetkezo = rendezett_args[i+1]
                    if kovetkezo ~= "" and not isKepFormatum(kovetkezo) then
                        kepAdat.felirat = kovetkezo
                        i = i + 1
                    end
                end

                local tartalom = ""
                local tiszta_felirat = kepAdat.felirat or ""

                if kepAdat.tipus == "URL" then
                    local biztonsagos_path = kepAdat.path:gsub(":", "&#58;")

                    local forras_nev = ""
                    if kepAdat.path:find("commons%.wikimedia%.org") then
                        forras_nev = "Wikimedia Commons"
                    else
                        forras_nev = kinyerForrasNev(kepAdat.path, rendezett_args[i])
                    end

                    tartalom = string.format('<div class="kulso-url-doboz" data-src="%s" data-forras-nev="%s"><span class="url-link-szoveg">Külső kép:<br/>[Link]</span><div class="galeria-felirat">%s</div></div>',
                                                biztonsagos_path,
                                                forras_nev,
                                                tiszta_felirat)

                else
                    if kepAdat.felirat and kepAdat.felirat ~= "" then
                        tartalom = string.format('[[Fájl:%s|thumb|180px|%s]]', kepAdat.path, tiszta_felirat)
                    else
                        tartalom = string.format('[[Fájl:%s|thumb|180px]]', kepAdat.path)
                    end
                end

                table.insert(html, '  <div class="galeria-elem">')
                table.insert(html, '    ' .. tartalom)
                table.insert(html, '  </div>')
            end
        end

        i = i + 1
    end

    table.insert(html, '</div>')

    local vegleges_html = table.concat(html, "\n")
    return frame:preprocess(vegleges_html)
end

return p