Modul:CactaceaeTaxonok

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

local p = {}

-- Speciális formázó a taxonómiai nevekhez
local function taxonFormazo(szoveg, isGenusLevel, isTypeLink)
    if not szoveg or szoveg == "" then return "" end
    
    local tiszta_szoveg = szoveg:gsub("Type:", "Típusfaj:")
    -- Idézőjelek és link jelölő takarítása
    local nyers = tiszta_szoveg:gsub("@", ""):gsub("'", ""):gsub("\"", "")
    nyers = mw.text.trim(nyers)

    -- 1. Típusfaj linkelés
    if isTypeLink then
        local nev_resz = nyers:match("Típusfaj:%s*(.*)")
        if nev_resz then
            local t = mw.text.trim(nev_resz)
            return "''Típusfaj:'' [[" .. t .. "|''" .. t .. "'']]"
        else
            return "[[" .. nyers .. "|''" .. nyers .. "'']]"
        end
    end

    -- 2. Link jelölt szinonima (@)
    if tiszta_szoveg:find("@") then
        return "[[" .. nyers .. "|''" .. nyers .. "'']]"
    end

    -- 3. Normál formázás szavanként
    local szavak = mw.text.split(nyers, " ")
    local formalt_szavak = {}
    local allo_kulcsszavak = {
        ["subgen."] = true, ["subg."] = true, ["sect."] = true, 
        ["subsect."] = true, ["subsp."] = true, ["var."] = true, 
        ["f."] = true
    }

    for _, szo in ipairs(szavak) do
        if allo_kulcsszavak[szo] then
            -- A rövidítés ÁLLÓ betűs (nincs körülötte semmilyen jelölő)
            table.insert(formalt_szavak, szo)
        else
            -- A latin név részei
            if isGenusLevel then
                -- 1-es szintű sorban: VASTAG-DŐLT
                table.insert(formalt_szavak, "'''''" .. szo .. "'''''")
            else
                -- 2-es szintű (faj) sorban: SIMA DŐLT
                table.insert(formalt_szavak, "''" .. szo .. "''")
            end
        end
    end

    return table.concat(formalt_szavak, " ")
end

-- Szinonimák feldolgozása
local function formazSzinonimak(sor, isParentGenus)
    if not sor or sor == "" then return "" end
    local lista = {}

    -- Típusfaj
    local tipus_resz = sor:match("^([^%d]+)1#")
    if tipus_resz then
        local t = mw.text.trim(tipus_resz:gsub("^::%s*", ""))
        if t ~= "" then
            table.insert(lista, "<li>" .. taxonFormazo(t, false, true) .. "</li>")
        end
    end

    -- Szinonimák (3# és 4#)
    local aktualis_sor = ""
    for szint, jel, tartalom in mw.ustring.gmatch(sor, "(%d)%s*([^%d%s#]+)%s*([^#]+)%s*%d#") do
        if szint == "3" or szint == "4" then
            local tiszta_jel = mw.ustring.sub(jel, 1, 1)
            local trimmed = mw.text.trim(tartalom)
            
            -- Meghatározzuk a formázási szintet
            local subGen = trimmed:find("subg%.") or trimmed:find("sect%.") or trimmed:find("subsect%.")
            local isGenusLevel = isParentGenus or subGen
            
            local formalt = taxonFormazo(trimmed, isGenusLevel, false)
            local elem = tiszta_jel .. " " .. formalt

            if szint == "3" then
                if aktualis_sor ~= "" then table.insert(lista, "<li>" .. aktualis_sor .. "</li>") end
                aktualis_sor = elem
            else
                aktualis_sor = aktualis_sor .. " " .. elem
            end
        end
    end

    if aktualis_sor ~= "" then table.insert(lista, "<li>" .. aktualis_sor .. "</li>") end
    
    if #lista == 0 then return "" end
    return '<ul style="list-style-type:disc; padding:0; margin:0 0 0 1.5em;">' .. table.concat(lista) .. "</ul>"
end

function p.tablazat(frame)
    local args = frame:getParent().args
    local szuro = args[1] and mw.text.trim(args[1]) or ""
    local status, dataModul = pcall(require, 'Modul:CactaceaeTaxonokData')
    if not status then return "Hiba: Adatmodul hiányzik." end
    local nyers = dataModul.getAdatok()

    local rows, counter, isVisible = {}, 0, false
    for sor in nyers:gmatch("[^\r\n]+") do
        local szint = sor:sub(1, 1)
        if szint == "1" then
            local nemz = sor:match("^1%s+([^%s:]+)")
            isVisible = (szuro == "" or nemz == szuro)
            if nemz and isVisible then
                counter = counter + 1
                local nemz_link = "[[:Kategória:" .. nemz .. "|'''''" .. nemz .. "''''']]"
                local maradek = sor:match("^1%s+[^%s:]+%s*(.*)$") or ""
                table.insert(rows, "|-\n| " .. counter .. "\n| style=\"white-space:nowrap\" | " .. nemz_link .. "\n| " .. formazSzinonimak(maradek, true))
            end
        elseif szint == "2" and isVisible then
            local fajnev, maradek = sor:match("^2%s+([^2#]+)2#%s*(.*)")
            if fajnev then
                counter = counter + 1
                local tiszta = mw.text.trim(fajnev)
                table.insert(rows, "|-\n| " .. counter .. "\n| style=\"white-space:nowrap\" | [[" .. tiszta .. "|''" .. tiszta .. "'']]\n| " .. formazSzinonimak(maradek, false))
            end
        end
    end
    
    local head = '{| class="wikitable sortable datatable-hook stripe hover compact" style="width:100%; font-size:90%;"\n! # !! Taxonnév !! Típusfaj, szinonimák\n'
    return frame:preprocess(head .. table.concat(rows, "\n") .. "\n|}")
end

return p