Module:Paysdujour

La documentation pour ce module peut être créée à Module:Paysdujour/doc

local p = {}

-- Nettoyage avancé d'une ligne de texte
local function nettoyerNom(nom)
    nom = nom or ""
    -- Supprime BOM, ZWSP, retour chariot caché, etc.
    nom = nom:gsub("[%z\1-\31\u200B\uFEFF]", "")
    -- Remplace les apostrophes typographiques par des normales
    nom = nom:gsub("’", "'")
    -- Remplace parenthèses typographiques si jamais utilisées
    nom = nom:gsub("（", "("):gsub("）", ")")
    return mw.text.trim(nom)
end

-- Lire la liste des noms depuis une page externe
local function lireListeDepuisPage()
    local titreListe = mw.title.new("Liste/Pays")
    if not titreListe or not titreListe.exists then return {} end

    local contenu = titreListe:getContent()
    if not contenu then return {} end

    local resultats = {}
    for ligne in mw.text.gsplit(contenu, "\n", true) do
        local nomNettoye = nettoyerNom(ligne)
        if nomNettoye ~= "" then
            table.insert(resultats, nomNettoye)
        end
    end
    return resultats
end

-- Tirage aléatoire
local function pageAleatoire()
    math.randomseed(os.time())
    local liste = lireListeDepuisPage()
    if #liste == 0 then return nil end
    return liste[math.random(#liste)]
end

-- Fonction principale
function p.paysDuJour(frame)
    local titrePage = pageAleatoire()
    if not titrePage then
        titrePage = "Page inconnue"
    end

    -- Nettoyage final de sécurité
    titrePage = nettoyerNom(titrePage)

    -- Vérification d'existence de page
    local page = mw.title.new(titrePage)
    local contenu = page and page.exists and page:getContent() or nil

    -- Récupération de la charte
    local theme = contenu and mw.ustring.match(contenu, "|%s*Theme%s*=%s*(%a+)") or "defaut"

    -- Récupération de l’extrait entre <!-- extrait -->...<!-- /extrait -->
    local extrait = contenu and mw.ustring.match(contenu, "<!%-%-%s*extrait%s*%-%->(.-)<!%-%-%s*/extrait%s*%-%->") or nil
    local texteExtrait = extrait and mw.getCurrentFrame():preprocess(extrait)
        or "<span style='color:gray;'>Aucun extrait disponible pour ce pays.</span>"

    -- Chargement du module charte
    local charteModule = require("Module:Charte")
    local couleurHR = charteModule.couleur{ args = { charte = theme, type = "hr" } }

    -- Construction HTML
    local html = {}
    table.insert(html, "<div class='" .. theme .. "-picto' style='flex: 1 1 54%; border:1px solid #aaa; border-radius:10px; box-shadow:1px 1px 3px #ccc; overflow:hidden; background-repeat:no-repeat; background-position:right center; background-size:cover; display:flex; flex-direction:column;'>")

    table.insert(html, "<div style='padding:12px; flex:1;'>")
    table.insert(html, "<div style='font-size:1.2em; font-weight:bold;'>Pays du jour</div>")
    table.insert(html, "<hr style='border:none; border-top:1px solid " .. couleurHR .. "; margin:0; margin-bottom:12px;'>")

    table.insert(html, "<div style='display:flex; align-items:flex-start; gap:12px;'>")

    -- Image : vérifie si elle existe (optionnel)
    local nomImage = "Bannière " .. titrePage .. ".png"
    nomImage = nettoyerNom(nomImage)
    local fichier = mw.title.new(nomImage, "File")
    local imageHTML = fichier and fichier.exists and ("[[Fichier:" .. nomImage .. "|150px|class=portrait-image]]")
        or "<div style='color:gray;'>[Image manquante]</div>"

    table.insert(html, "<div style='flex:0 0 200px;'>" .. imageHTML .. "</div>")

    table.insert(html, "<div style='flex:1;'>")
    table.insert(html, "<div style='font-size:1.1em; font-weight:bold; margin-bottom:4px;'>[[" .. titrePage .. "]]</div>")
    table.insert(html, texteExtrait)
    table.insert(html, "<div style='text-align:right; font-size:90%; margin-top:8px;'>[[" .. titrePage .. "|→ Vers l’article]]</div>")
    table.insert(html, "</div></div></div></div>")

    return table.concat(html, "\n")
end

return p