Modul:CactaceaeTaxonok

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

local p = {}

-- Speciális formázó a taxonómiai nevekhez + Linkelés
local function taxonFormazo(szoveg, isGenus, isTypeLink)
    if not szoveg or szoveg == "" then return "" end
    
    local tiszta_szoveg = szoveg:gsub("Type:", "Típusfaj:")
    
    -- Ellenőrizzük, hogy van-e benne link jelző (@)
    local hasLinkMarker = tiszta_szoveg:find("@")
    if hasLinkMarker then
        tiszta_szoveg = tiszta_szoveg:gsub("@", "")
    end

    local megjelenitendo = tiszta_szoveg
    
    -- 1. Típusfaj linkelés
    if isTypeLink then
        local nev_resz = tiszta_szoveg:match("Típusfaj:%s*(.*)")
        if nev_resz then
            local tiszta_nev = mw.text.trim(nev_resz)
            megjelenitendo = "Típusfaj: [[" .. tiszta_nev .. "|''" .. tiszta_nev .. "'']]"
        else
            megjelenitendo = "[[" .. tiszta_szoveg .. "|''" .. tiszta_szoveg .. "'']]"
        end
    -- 2. Jelölt szinonima linkelés (@ karakter esetén)
    elseif hasLinkMarker then
        local tiszta_nev = mw.text.trim(tiszta_szoveg)
        megjelenitendo = "[[" .. tiszta_nev .. "|''" .. tiszta_nev .. "'']]"
    end
    
    local s = ""
    -- Formázás: 
    -- Ha nemzetség (isGenus) ÉS nem linkelt típusfaj, akkor félkövér-dőlt
    -- Ha @-al linkelt szinonima nemzetség, az is legyen félkövér-dőlt
    if isGenus and not isTypeLink then
        if hasLinkMarker then
            -- Ha linkelt, a linken belülre vagy köré kell a formázás
            s = "'''''" .. megjelenitendo .. "'''''"
        else
            s = "'''''" .. megjelenitendo .. "'''''"
        end
    elseif not isTypeLink and not hasLinkMarker then
        s = "''" .. megjelenitendo .. "''"
    else
        s = megjelenitendo
    end
    
    -- Álló betűs kulcsszavak javítása (pl. subsp., var.)
    local kulcsszavak = {
        "subgen%.", "subg%.", "sect%.", "subsect%.", 
        "subsp%.", "var%.", "subvar%.", "f%.", "Típusfaj:"
    }
    
    for _, kulcs in ipairs(kulcsszavak) do
        local tiszta_kulcs = kulcs:gsub("%%", "")
        s = s:gsub(kulcs, "''" .. tiszta_kulcs .. "''")
    end
    
    -- Dupla dőltetések takarítása
    s = s:gsub("''''''", ""):gsub("''''", "")
    return s
end

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

    local lista = {}

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

    -- 2. Számozott blokkok (szinonimák)
    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_tartalom = mw.text.trim(tartalom)
            
            -- Ellenőrizzük, hogy a tartalom egyszavas-e (nemzetség)
            -- A tiszta nevet nézzük (levéve a @-ot ha van)
            local tiszta_nev_teszt = trimmed_tartalom:gsub("@", "")
            local is_syn_genus = not tiszta_nev_teszt:find(" ") 
            
            local formalt_nev = taxonFormazo(trimmed_tartalom, is_syn_genus, false)
            local elem = tiszta_jel .. " " .. formalt_nev

            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 20 px;">' .. 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: Modul:CactaceaeTaxonokData nem található." end
    local nyers = dataModul.getAdatok()

    local rows = {}
    local counter = 0
    local isVisible = 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:]+)")
            if nemz then
                if szuro == "" or nemz == szuro then
                    isVisible = true
                    counter = counter + 1
                    local nemz_display = "'''''" .. nemz .. "'''''"
                    local nemz_link = "[[:Kategória:" .. nemz .. "|" .. nemz_display .. "]]"
                    local maradek = sor:match("^1%s+[^%s:]+%s*(.*)$") or ""
                    -- white-space:nowrap hozzáadva
                    table.insert(rows, "|-\n| " .. counter .. "\n| style=\"white-space:nowrap\" | " .. nemz_link .. "\n| " .. formazSzinonimak(maradek))
                else
                    isVisible = false
                end
            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_fajnev = mw.text.trim(fajnev)
                -- white-space:nowrap hozzáadva
                table.insert(rows, "|-\n| " .. counter .. "\n| style=\"white-space:nowrap\" | [[" .. tiszta_fajnev .. "|''" .. tiszta_fajnev .. "'']]\n| " .. formazSzinonimak(maradek))
            end
        end
    end

    if #rows == 0 then return "Nincs találat." 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