Module:Bandeau

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

--Ce module implémente le modèle {{Bandeau}}.

--Standardisation des bandeaux ([[Catégorie:Modèle de bandeau]]).
--Créer une fonction exportable pour le modèle {{Bandeau}} (ns:all).
--Créer une fonction exportable pour les bandeaux d'article (ns:0).
--Créer une fonction exportable pour les bandeaux de section (ns:0).
--Créer une fonction exportable pour les bandeaux d'ébauche (ns:0).
--Créer une fonction exportable pour les bandeaux de discussion (ns:1).
--Créer une fonction exportable pour les bandeaux système (ns:8).
 
local p = {}

local format = mw.ustring.format

local cfg = {}

cfg.classeSimple = 'simple'
cfg.niveauNeutre = 'neutre'
cfg.formatLien = '[[Fichier:%s|40px|alt=%s|link=]]'
cfg.erreurArgument = 'Paramètre <code>|%s=</code> manquant'

local icones = {
	grave = 'Fairytale no.svg',
	['modéré'] = 'Emblem-important.svg',
	information = 'Information icon.svg',
	['ébauche'] = 'Nuvola apps kedit.svg'
}

function p._bandeau(argsBandeau)
	args = argsBandeau
	local res = mw.html.create('div')

	res
		:addClass('test-bandeau-' .. (args.classe or cfg.classeSimple))
		:addClass('test-bandeau-niveau-' .. (args.niveau or cfg.niveauNeutre))
		:addClass('plainlinks')
		:cssText(args.style) --Provisoire

	if args.image then
		local imageFormat = res:tag('div')
			:addClass('test-bandeau-image')

		if mw.ustring.sub(args.image, 1, 1) == '[' then
			imageFormat:wikitext(args.image)
		else
			imageFormat:wikitext(mw.ustring.format(cfg.formatLien,
				args.image,
				args['légende'] or ''))
		end
	end
	res
		:tag('p')
		:addClass('test-bandeau-texte')
		:wikitext(args.texte or erreur(p.erreurArgumentTitre))

	return tostring(res)
end

function p._bandeauAvertissement(args)
	local htmlTexte = mw.html.create()

	htmlTexte
		:tag('strong')
			:wikitext(args.titre or erreur(true, 'titre'))
		:done()
		:tag('br')
		:done()
		:wikitext(args.texte)

	local parametres = {
		classe = 'article',
		niveau = args.niveau,
		image = args['icône'] or icones[niveau],
		texte = tostring(htmlTexte)
	}

	return p._bandeau(parametres)
end

function erreur(gestionArg, texte)
	local res = mw.html.create('span')
		:addClass('error')

	if gestionArg then
		res:wikitext(format(cfg.erreurArgument, texte))
	else
		res:wikitext(texte)
	end

	return tostring(res)
end

p['_ébauche'] = function (args)
	--Construction HTML du bandeau d'ebauche.
	local res = mw.html.create('div')

	res:addClass('test-bandeau-article test-bandeau-niveau-information plainlinks')
	if args.image then
		res
			:tag('div')
				:addClass('test-bandeau-image')
				:wikitext(args.image)
	end
	res
		:tag('p')
		:addClass('test-bandeau-texte')
		:wikitext(args.texte or erreur(p.erreurArgumentTitre))

	return tostring(res)
end

--Insertion dans la table p des fonctions appelées par les
--modèles à l'aide d'un adaptateur de fonction.
function adaptateur(nomFonction)
	return function (frame)
		local args = {}
		local argsParent = frame:getParent().args
 
		--Paramètres vides interprétés par Lua
		for cle, val in pairs(argsParent) do
			if val ~= '' then
				args[cle] = mw.text.trim(val)
			end
		end

		return p[nomFonction](args)
	end
end
 
local nomsFonction = {'bandeau', 'bandeauAvertissement', 'ébauche'} 
for _, nomFonction in ipairs(nomsFonction) do
	p[nomFonction] = adaptateur('_' .. nomFonction)
end

return p