Modul:SimpleTaxobox2

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

-- Modul:SimpleTaxobox2
local p = {}

-- Betölti a központi adatmodult, amiben a hierarchia szerepel.
local TaxonData = require('Modul:TaxonData')

-- Segédfüggvény: Kinyeri a nemzetség nevét a fajnévből (pl. "Echinocactus grusonii" -> "Echinocactus")
local function extract_genus(full_species_name)
    -- Jó gyakorlat Luában, ha a segédfüggvények elején ellenőrizzük, kaptunk-e adatot. Így nem omlik össze a modul, csak üres értéket ad vissza.
    if not full_species_name then return "" end
    local genus_name = full_species_name:match("([^%s]+)") 
    return genus_name or ""
end

-- Segédfüggvény: Dőlt betűs taxonnév
local function format_name(name)
    -- Jó gyakorlat Luában, ha a segédfüggvények elején ellenőrizzük, kaptunk-e adatot. Így nem omlik össze a modul, csak üres értéket ad vissza.
    if not name or name == '' then return "" end

    if string.match(name, "subsp%.") then
        local minta = "([%a%-]+)%s+([%a%-]+)%s+subsp%.%s+([%a%-]+)"
        local csere = "''%1 %2'' subsp. ''%3''"
        formattedName = string.gsub(name, minta, csere)
    elseif string.match(name, "var%.") then
        local minta = "([%a%-]+)%s+([%a%-]+)%s+var%.%s+([%a%-]+)"
        local csere = "''%1 %2'' var. ''%3''"
        formattedName = string.gsub(name, minta, csere)
    elseif string.match(name, "subvar%.") then
        local minta = "([%a%-]+)%s+([%a%-]+)%s+subvar%.%s+([%a%-]+)"
        local csere = "''%1 %2'' subvar. ''%3''"
        formattedName = string.gsub(name, minta, csere)
    elseif string.match(name, "f%.") then
        local minta = "([%a%-]+)%s+([%a%-]+)%s+f%.%s+([%a%-]+)"
        local csere = "''%1 %2'' f. ''%3''"
        formattedName = string.gsub(name, minta, csere)
    elseif string.match(name, "[%a%-]+%s+[%a%-]+") then
        local minta = "([%a%-]+)%s+([%a%-]+)"
        local csere = "''%1 %2''"
        formattedName = string.gsub(name, minta, csere)
    else
        formattedName = name
    end
    return formattedName
end

function p.buildTaxobox(frame)
    local args = frame:getParent().args
    
    -- A taxon neve, amit a cikkből kaptunk (ez lehet faj vagy nemzetség)
    local initialTaxonName = args.taxon

    -- Ha nincs szinonima, maradjon nil, ne legyen üres string
    local initialSzinonimaName = (args.szinonima ~= '' and args.szinonima) or nil

    -- Javítás: biztosítsuk, hogy az image ne legyen nil, ha nincs megadva
    local taxonImage = args.image or ''
    local imageTitle = args.imageTitle or ''
    
    local hierarchy = {}

    local taxonName = initialTaxonName -- Ez a változó lépked felfelé a hierarchiában
    local szinonimaName = initialSzinonimaName -- Ez a változó lépked felfelé a hierarchiában
    local szinBoo = false -- Kezdeti értékadás

    local parentOverride = args.parent -- A manuálisan átadott szülő (pl. Szekció)

    if not initialTaxonName or initialTaxonName == '' then
        return '<div style="color:red;">Taxobox Hiba: Hiányzó <code>|taxon=</code> paraméter.</div>'
    end
    
    -- Lua sajátosság: Luában csak a nil és a false hamis. Minden más (a 0 és az üres string "" is) igaz.
    if initialSzinonimaName then -- nem egyenlő ~=
        taxonName = initialSzinonimaName
        szinBoo = true
    end
    
    -- 1. Rekurzív adatgyűjtés a Modul:TaxonData-ból
    while taxonName do
        local data = TaxonData.getData(taxonName) 
        
        if data then
            -- 1a. Talált adatot (Rend, Család, Nemzetség, Szekció, stb.)
            table.insert(hierarchy, { rank = data.rank, name = taxonName })
            taxonName = data.parent -- Áttérés a szülőre
        else
            -- 1b. Nem talált adatot a TaxonData-ban.
            -- Ellenőrizzük, hogy ez az aktuális kiindulópont-e (faj vagy szinonima)
            if taxonName == initialTaxonName or (initialSzinonimaName and taxonName == initialSzinonimaName) then
                
                -- Megnézzük, faj-e (van-e benne szóköz)
                local is_species = taxonName:find("%s")
                
                if is_species then
                    local actual_parent
                    if parentOverride and parentOverride ~= '' then
                        actual_parent = parentOverride
                    else
                        -- Automatikusan levágjuk a nemzetséget (pl. "Echinocactus")
                        actual_parent = extract_genus(taxonName)
                    end
                    
                    -- Hozzáadjuk a hierarchiához
                    table.insert(hierarchy, { rank = "Faj", name = taxonName })
                    
                    -- A következő körben a nemzetséget keressük
                    taxonName = actual_parent
                else
                    -- Egy szavas név, de nincs a TaxonData-ban
                    return '<div style="color:red;">Taxobox Hiba: A Modul:TaxonData nem tartalmazza a "' .. taxonName .. '" taxont. Kérem adja hozzá.</div>'
                end
            else
                -- Nem az első elem és nincs adat (megszakadt a lánc)
                return '<div style="color:red;">Taxobox Hiba: Nem található adat a "' .. taxonName .. '" taxonhoz a Modul:TaxonData-ban.</div>'
            end
        end
    end
    
    -- 2. Wikitext Taxobox táblázat felépítése
    local output = '{| class="infobox biota" style="text-align: left; width: 22em;"\n'
	
	-- A caption kódja: "|+""
    -- output = output .. "|+'''" .. initialTaxonName .. "'''\n"

    if szinBoo == false then -- érvényes
        tipus = "acc"
        szoveg = "Érvényes, elfogadott név,<br>érvényes taxonleírás"
        nev = initialTaxonName
    else -- szinonima
        tipus = "syn"
        szoveg = "Ez egy taxonómiai szinonima név,<br>egy szinonima taxonleírás.<br>Az érvényes és a szinonima taxonleírás más-más típpuspéldányról készült.<br>Az érvényes leírást lásd itt:<br>''[[" .. initialTaxonName .. "]]''"
        nev = initialSzinonimaName
    end

    -- A caption helyett th-t használunk (a th kódja: "|-!"):
	output = output .. "|-\n"
	output = output .. '! class="taxonnev" colspan="2" | ' .. format_name(nev) .. "\n"
	output = output .. "|-\n"
	output = output .. '! class="' .. tipus .. '" colspan="2" | ' .. szoveg .. "\n"
    if taxonImage and taxonImage ~= '' then -- nem egyenlő ~=
        output = output .. '|-\n'
        output = output .. '!colspan="2"|[[Fájl:' .. taxonImage .. '|340px'
        if imageTitle and imageTitle ~= '' then -- nem egyenlő ~=
            output = output .. '|' .. imageTitle
        end
        output = output .. ']]\n'
    end
    
    output = output .. '|-\n'
    output = output .. '!colspan="2"|Rendszertani besorolás\n'
    
    -- A hierarchia fordított sorrendben van. Felülről lefelé haladunk.
    for i = #hierarchy, 1, -1 do
        local item = hierarchy[i]
        
        local name_display = item.name
        
        if name_display== "Angiospermae" then 
            name_display = "[[:Kategória:" .. name_display .."|".. name_display .. "]]"
        end
        
        if item.rank == "Rend" then 
            name_display = "[[:Kategória:" .. name_display .."|".. name_display .. "]]"
        end
        
        if item.rank == "Család" then 
            name_display = "[[:Kategória:" .. name_display .."|".. name_display .. "]]"
        end
        
        if item.rank == "Alcsalád" then 
            name_display = "[[:Kategória:" .. name_display .."|".. name_display .. "]]"
        end
        
        if item.rank == "Nemzetségcsoport" then 
            item.rank = "Nemzetség-<br>csoport"
            name_display = "[[:Kategória:" .. name_display .."|".. name_display .. "]]"
        end
        
        if item.rank == "Alnemzetségcsoport" then 
            item.rank = "Alnemzetség-<br>csoport"
            name_display = "[[:Kategória:" .. name_display .."|".. name_display .. "]]"
        end

        if item.rank == "Nemzetség" then 
            name_display = "''[[:Kategória:" .. name_display .."|".. name_display .. "]]''"
        end

        -- Kiemeljük az aktuális cikk tárgyát (ami a hierarchia legalján van)
        if item.rank == "Faj" then 
            -- name_display = "''" .. name_display .. "''"
            name_display = format_name(name_display)
        end

        output = output .. '|-\n'
        output = output .. '| style="text-align: right; line-height: 95%;" | ' .. item.rank .. '\n'
        output = output .. '| style="line-height: 95%;" | ' .. name_display .. '\n'
		
    end

    -- 3. Google és Bing linkek (csak ha a taxon egy Faj)
    -- A hierarchy[1] az az elem, amit legelőször adtunk hozzá (az aktuális taxon)
    if hierarchy[1] and hierarchy[1].rank == "Faj" then 
        local searchTerm = initialTaxonName -- Így nem csak egy növényre fog működni
		-- A szóközöket URL-kompatibilis + jellé alakítjuk
		-- local encodedTerm = searchTerm:gsub(" ", "+")
        local encodedTerm = mw.uri.encode(searchTerm) -- Biztonságos kódolás (szóköz -> %20)

        output = output .. '|-\n'
        -- output = output .. '!colspan="2" style="text-align:center;" |'
        output = output .. '!colspan="2" class="taxobox-icons" |'
        -- Itt használhatod a korábban megbeszélt ikonokat is, ha szeretnéd:
        -- output = output .. '[http://images.google.com/search?tbm=isch&q=' .. encodedTerm .. ' Google képek] '
        -- output = output .. '[https://www.bing.com/images/search?q=' .. encodedTerm .. ' Bing képek]\n'
		-- Az ikonok maradnak a span-ek között, de a stílust majd a CSS-ből kapják
		output = output .. '[[Fájl:Google logo gyz.svg|x30px|link=http://images.google.com/search?tbm=isch&q=' .. encodedTerm .. '|Google képek]] '
		output = output .. '[[Fájl:Bing fluent logo gyz.svg|x30px|link=https://www.bing.com/images/search?q=' .. encodedTerm .. '|Bing képek]]\n'
    end
    
    output = output .. '|}\n'
    
    return output
end

return p