Module:Bandeau : Différence entre versions

De Lagny-sur-Marne Wiki
Aller à : navigation, rechercher
(on ne peut pas générer d'<aside>…)
 
(75 révisions intermédiaires par 5 utilisateurs non affichées)
Ligne 1 : Ligne 1 :
--Ce module implémente le modèle {{Bandeau}}.
+
--Ce module implémente les modèles de bandeau.
  
 
--Standardisation des bandeaux ([[Catégorie:Modèle de bandeau]]).
 
--Standardisation des bandeaux ([[Catégorie:Modèle de bandeau]]).
Ligne 8 : Ligne 8 :
 
--Créer une fonction exportable pour les bandeaux de discussion (ns:1).
 
--Créer une fonction exportable pour les bandeaux de discussion (ns:1).
 
--Créer une fonction exportable pour les bandeaux système (ns:8).
 
--Créer une fonction exportable pour les bandeaux système (ns:8).
+
--Gérer les images multiples.
 +
 
 
local p = {}
 
local p = {}
  
p.classStructureBoite = 'test-bandeau-simple plainlinks'
+
local trim = require('Module:Outils').trim
p.styleStructureBoite = 'background:#f9f9f9;'
+
local yesno = require('Module:yesno')
p.styleStructureImage = 'display:table-cell; vertical-align:middle; width:50px;'
+
local class = mw.loadData('Module:Bandeau/Class')
p.styleStructureTexte = 'display:table-cell; vertical-align:middle;'
+
local moduleEbauche = 'Module:Bandeau/Ébauche'
p.erreurArgumentTitre = 'Paramètre « texte » manquant'
+
-- local paramEbauche = mw.loadData(moduleEbauche) -- ne sera chargé que pour un bandeau d'ébauche.
 +
 
 +
local cfg = {
 +
forme = 'bandeau-simple',
 +
niveau = 'bandeau-niveau-neutre',
 +
formatLien = '[[Fichier:%s|%spx|alt=%s|class=noviewer]]',
 +
tailleIcone = '45x45',
 +
public = 'domaine public',
 +
erreurArgument = 'Paramètre <code>|%s=</code> manquant',
 +
erreurEbaucheParam = 'le thème « %s » du modèle [[Modèle:Ébauche|{{ébauche}}]] n’est pas [[Aide:Ébauche/Aide paramètres|défini]].',
 +
erreurEbaucheType = 'le thème « %s » doit apparaître en tête de liste du modèle [[Modèle:Ébauche|{{ébauche}}]].',
 +
ebaucheImage = '<span style="white-space:nowrap;word-spacing:5px">%s</span>',
 +
ebaucheTitre = '%s est une [[Aide:Ébauche|ébauche]].',
 +
ebaucheTitreSujet = '%s est une [[Aide:Ébauche|ébauche]] concernant %s.',
 +
ebaucheCateg = '[[Catégorie:Wikipédia:ébauche %s]]',
 +
}
  
function p.bandeau(frame)
+
local function erreur(texte, formatstring, tag)
local args = {}
+
local res = mw.html.create(tag or 'span')
local argsParent = frame:getParent().args
+
res :addClass('error')
 +
:wikitext('Erreur : ')
  
--Paramètres vides interprétés par Lua
+
if formatstring then
for cle, val in pairs(argsParent) do
+
res:wikitext(formatstring:format(texte))
if val ~= '' then
+
else
args[cle] = val
+
res:wikitext(texte)
end
 
 
end
 
end
  
return _bandeau(args)
+
return tostring(res)
 
end
 
end
  
function _bandeau(argsBandeau)
+
function p._bandeau(args)
args = argsBandeau
 
 
local res = mw.html.create('div')
 
local res = mw.html.create('div')
 +
local cells = mw.html.create()
 +
local icone = trim(args.image) or trim(args['icône'])
 +
local backgroundIcone = class.icones[icone] or ''
 +
local texte = (trim(args.texte) or erreur('texte', cfg.erreurArgument))
  
res
+
res :attr{ id = args.id }
:addClass('test-bandeau-' .. args.classe or p.classStructureBoite)
+
:addClass(class.formes[args.forme] or cfg.forme)
:addClass('test-bandeau-niveau-' .. args.niveau or '')
+
:addClass(class.niveau[args.niveau] or cfg.niveau)
:cssText(args.style or '')
+
:addClass('plainlinks')
if args.image then
+
:addClass(args.class)
res
+
:cssText(args.style)
 +
 +
if yesno(args.centrer) then
 +
cells = mw.html.create('div')
 +
:addClass('bandeau-centrer')
 +
elseif trim(args.droite) then
 +
cells = mw.html.create('div')
 +
:css{ display = 'table', width = '100%' }
 +
end
 +
if icone and backgroundIcone == '' then
 +
local iconeWiki = icone
 +
if not icone:match('%[') then
 +
local alt = args.alt or args['légende'] or ''
 +
if alt:lower() == cfg.public then
 +
alt = '|link='
 +
end
 +
if yesno( args['domaine public'] ) then
 +
alt = alt .. '|link='
 +
end
 +
local taille = args['taille icône'] or cfg.tailleIcone
 +
iconeWiki = cfg.formatLien:format(icone, taille, alt)
 +
end
 +
cells
 +
:tag('div')
 +
:addClass('bandeau-cell bandeau-icone')
 +
:wikitext(iconeWiki)
 +
:done()
 +
elseif backgroundIcone ~= '' and args.forme == 'section' then
 +
texte = '&ensp;' .. texte
 +
end
 +
cells
 +
:tag('div')
 +
:addClass('bandeau-cell ' .. backgroundIcone)
 +
:wikitext(texte)
 +
:newline()
 +
:done()
 +
if trim(args.droite) then
 +
cells
 
:tag('div')
 
:tag('div')
:addClass('test-bandeau-image')
+
:addClass('bandeau-cell')
:wikitext(args.image)
+
:css( 'padding-left', '1em' )
 +
:newline()
 +
:wikitext(args.droite)
 +
:done()
 +
end
 +
 +
res :node(cells)
 +
if trim(args['supplément']) then
 +
res :tag('p') 
 +
:wikitext(args['supplément'])
 +
:done()
 
end
 
end
res
+
return tostring(res)
:tag('p')
+
end
:addClass('test-bandeau-texte')
 
:wikitext(args.texte or erreur(p.erreurArgumentTitre))
 
  
--Code HTML brut
+
function p._bandeauAvertissement(args)
if args.raw then
+
local htmlTexte = mw.html.create()
return frame:preprocess('<nowiki>' .. tostring(res) .. '</nowiki>')
+
 
.. '\n:Éxecution : ' .. os.clock() .. 's'
+
htmlTexte
 +
:tag('strong')
 +
:addClass('bandeau-titre')
 +
:wikitext(trim(args.titre) or erreur('titre', cfg.erreurArgument))
 +
:done()
 +
:wikitext(args.date)
 +
:newline():newline()
 +
:wikitext(args.texte)
 +
 
 +
local parametres = {
 +
forme = 'article',
 +
niveau = args.niveau,
 +
id = args.id,
 +
class = ( args.class or '' ) .. ' metadata',
 +
['icône'] = trim(args['icône']) or trim(args['icône-complexe']) or args.niveau,
 +
alt = args.alt or args['légende'],
 +
['domaine public'] = args['domaine public'],
 +
texte = tostring(htmlTexte),
 +
['supplément'] = args['supplément'],
 +
}
 +
 
 +
return p._bandeau(parametres)
 +
end
 +
 
 +
function p._bandeauSection(args)
 +
local res = mw.html.create('div')
 +
local icone = trim(args.image) or trim(args['icône'])
 +
local backgroundIcone = class.icones[icone] or ''
 +
local texte = '&ensp;' .. (trim(args.texte) or erreur('texte', cfg.erreurArgument))
 +
 
 +
res :addClass('bandeau-section metadata')
 +
:addClass(class.niveau[args.niveau] or cfg.niveau)
 +
 +
if icone and backgroundIcone == '' then
 +
local iconeWiki = icone
 +
if not icone:match('%[') then
 +
local alt = args.alt or args['légende'] or ''
 +
if alt:lower() == cfg.public then
 +
alt = '|link='
 +
end
 +
iconeWiki = cfg.formatLien:format(icone, 'text-top|20x17', alt)
 +
end
 +
res :wikitext(iconeWiki)
 +
:done()
 
end
 
end
 +
res :addClass(backgroundIcone)
 +
:wikitext(texte)
 +
:done()
  
 
return tostring(res)
 
return tostring(res)
 
end
 
end
  
function erreur(texte)
+
-- fonction qui inverse la casse du premier caractère d'une chaine
return '<span class="error">Erreur : ' .. texte .. '</span>'
+
local function inverserCasse( str )
 +
if type( str ) == 'string' then
 +
local premierCar = mw.ustring.sub( str, 1, 1 )
 +
if mw.ustring.lower( premierCar ) == premierCar then
 +
return mw.ustring.upper( premierCar ) .. mw.ustring.sub( str, 2 )
 +
else
 +
return mw.ustring.lower( premierCar ) .. mw.ustring.sub( str, 2 )
 +
end
 +
end
 +
end
 +
 
 +
-- fonction qui récupètre la ou les tables d'ébauche correspondant au thème
 +
local function getEbaucheTable( paramEbauche, theme, feminin )
 +
-- suprime les marques de direction ltr
 +
theme = theme:gsub( '\226\128\142', '' ):gsub( '_', ' ' )
 +
-- récupére les paramètres lié au theme, à partir du module:Bandeau/Ébauche
 +
local params = {}
 +
local ebauche = paramEbauche[ theme ] or paramEbauche[ inverserCasse( theme ) ]
 +
if not ebauche and theme:find( ' ' ) then
 +
-- teste si l'un des mots du thème correspond à un adjectif existant
 +
for adj in theme:gmatch( ' ([^ ]+)' ) do
 +
paramsAdj = getEbaucheTable( paramEbauche, adj, feminin )
 +
if paramsAdj and paramsAdj.adjectif == true then
 +
local nom = theme:gsub( ' ' .. adj:gsub( '(%p)', '%%%1'), '' )
 +
params = getEbaucheTable( paramEbauche, nom, feminin )
 +
if params then
 +
return params, paramsAdj
 +
end
 +
end
 +
end
 +
-- aucun mot ne correspond à un adjectif, on essait une autre methode pour trouver une correspondance avec plusieurs mots
 +
if theme:find( ' .+ ' ) then
 +
for adj, paramsAdj in pairs( paramEbauche ) do
 +
if paramsAdj.adjectif == true and theme:find( ' ' .. adj, 2, true ) then
 +
local nom = theme:gsub( ' ' .. adj:gsub( '(%p)', '%%%1'), '' )
 +
params = getEbaucheTable( paramEbauche, nom, feminin )
 +
if params then
 +
return params, paramsAdj
 +
end
 +
end
 +
end
 +
end
 +
end
 +
if feminin and ebauche and ebauche.feminin then
 +
ebauche = paramEbauche[ ebauche.feminin ]
 +
end
 +
if ebauche then
 +
for n, v in pairs( ebauche ) do
 +
params[ n ] = v
 +
end
 +
else
 +
params = nil
 +
end
 +
return params, nil
 +
end
 +
p.getEbaucheTable = getEbaucheTable
 +
 
 +
local function femininFromWikidata()
 +
local entity = mw.wikibase.getEntity()
 +
if entity then
 +
local p31 = entity:getBestStatements( 'P31' )
 +
local estHumain = type( p31 ) == 'table'
 +
and #p31 == 1
 +
and type( p31[ 1 ].mainsnak ) == 'table'
 +
and type( p31[ 1 ].mainsnak.datavalue ) == 'table'
 +
and type( p31[ 1 ].mainsnak.datavalue.value ) == 'table'
 +
and p31[ 1 ].mainsnak.datavalue.value['numeric-id'] == 5
 +
local p21 = entity:getBestStatements( 'P21' )
 +
local estFeminin = type( p21 ) == 'table'
 +
and #p21 == 1
 +
and type( p21[ 1 ].mainsnak ) == 'table'
 +
and type( p21[ 1 ].mainsnak.datavalue ) == 'table'
 +
and type( p21[ 1 ].mainsnak.datavalue.value ) == 'table'
 +
and p21[ 1 ].mainsnak.datavalue.value['numeric-id'] == 6581072
 +
return estHumain, estFeminin
 +
end
 +
return false, false
 
end
 
end
  
function p.ebauche(frame)
+
p['_ébauche'] = function ( args )
--Construction HTML du bandeau d'ebauche
+
local paramEbauche = mw.loadData( moduleEbauche )
args = frame:getParent().args
+
local page = mw.title.getCurrentTitle()
local res = mw.html.create('div')
+
local ebauches, gestionErreur = {}, {}
 +
local humain, feminin = femininFromWikidata()
 +
feminin = yesno( args["féminin"], true ) or feminin
 +
local estFeminin
 +
 +
-- fonction qui retourne la valeur de param pour l'ébauche i, ou une valeur par défaut
 +
local ebaucheParam = function( i, param )
 +
return ebauches[ i ] and ebauches[ i ][ param ] or paramEbauche[''][ param ]
 +
end
 +
 
 +
-- récupération des paramètres de tous les thèmes
 +
for i, theme in ipairs( args ) do
 +
theme = trim( theme )
 +
if theme then
 +
local t, tAdj = getEbaucheTable( paramEbauche, theme, feminin )
 +
if t then
 +
table.insert( ebauches, t )
 +
table.insert( ebauches, tAdj )
 +
else
 +
table.insert(
 +
gestionErreur,
 +
erreur( theme, cfg.erreurEbaucheParam, 'div' )
 +
)
 +
end
 +
end
 +
end
 +
 +
-- récupération des différents titres, images et catégories
 +
local images, titres, categs = {}, {}, {}
 +
local tailleIcone = '45x35'
 +
if #ebauches > 3 then
 +
tailleIcone = '35x25'
 +
end
 +
for i, ebauche in ipairs( ebauches ) do
 +
-- création du lien de l'image
 +
local alt = ebauche.altIcone
 +
if not alt then
 +
if ebauche.sujet then
 +
alt = 'image illustrant ' .. ebauche.sujet
 +
else
 +
alt = ''
 +
end
 +
end
 +
if ebauche.icone then
 +
local image = cfg.formatLien:format( ebauche.icone, tailleIcone, alt )
 +
table.insert( images, image )
 +
end
 +
if math.fmod( #ebauches, 3 ) == 1 and ( #ebauches - i ) == 2
 +
or math.fmod( i, 3 ) == 0 and ( #ebauches - i ) > 1
 +
then
 +
-- sur plusieurs lignes s'il y a plus de 3 images, avec minimum deux images sur la dernière ligne
 +
table.insert( images, '<br> ' )
 +
end
 +
 +
if i > 1 and ebauche.type and ebauche.type ~= paramEbauche[''].type then
 +
-- remplace "Cet article par "Ce portail" ou autre en fonction du premier thème
 +
table.insert(
 +
gestionErreur,
 +
erreur( ebauche.nom, cfg.erreurEbaucheType, 'div' )
 +
)
 +
end
 +
 +
-- récupères les différents noms de thème
 +
if ebauche.adjectif and #titres > 0 then
 +
local sujet = ebauche.sujet or ebauche.nom
 +
if estFeminin then
 +
sujet = ebauche.sujetF or sujet:gsub(
 +
ebauche.nom:gsub( '(%p)', '%%%1') .. '%f[%W]',
 +
ebauche.feminin
 +
)
 +
end
 +
-- ajout du sujet de l'adjectif dans le sujet de l'ébauche précédente
 +
local titre, subst = titres[ #titres ]:gsub(
 +
'<(adj[^>]*)>',
 +
{ adjectif = sujet, adj = ebauche.nom, adjF = ebauche.feminin }
 +
)
 +
if subst > 0 then
 +
titres[ #titres ] = titre
 +
else
 +
titres[ #titres ] = titre .. ' ' .. sujet
 +
end
 +
else
 +
table.insert( titres, ebauche.sujet )
 +
estFeminin = ebauche.estFeminin or ( ebauche.sujet == '' and estFeminin )
 +
end
 +
 +
-- mise en forme des catégories
 +
if ebauche.adjectif then
 +
-- tentative d'ajout du nom de l'adjectif dans les catégories précédentes
 +
local modif = false
 +
for k, v in ipairs( categs ) do
 +
local cat, subst = v:gsub(
 +
'<(adj[^>]*)>',
 +
{ adj = ebauche.nom, adjF =  ebauche.feminin,  adjectif = ebauche.nom }
 +
)
 +
if subst == 0 then
 +
cat = v .. ' ' .. ebauche.nom
 +
end
 +
if mw.title.new( 'Catégorie:Wikipédia:ébauche ' .. cat ).exists then
 +
categs[ k ] = cat
 +
modif = true
 +
end
 +
end
 +
if not modif
 +
and humain
 +
and mw.title.new( 'Catégorie:Wikipédia:ébauche personnalité ' .. ebauche.feminin ).exists
 +
then
 +
table.insert( categs, 'personnalité ' .. ebauche.feminin )
 +
end
 +
end
 +
table.insert( categs, ebauche.categ )
 +
table.insert( categs, ebauche.categ2 )
 +
end
 +
 +
-- mise en forme des images
 +
local image
 +
if trim( args['icône'] ) then
 +
local theme = getEbaucheTable( paramEbauche, args['icône'] )
 +
if theme and theme.icone then
 +
image = cfg.formatLien:format(
 +
theme.icone,
 +
tailleIcone,
 +
theme.altIcone or ( 'image illustrant ' .. theme.sujet )
 +
)
 +
end
 +
elseif #images == 1 then
 +
image = images[ 1 ]
 +
elseif #images > 1 then
 +
image = cfg.ebaucheImage:format( table.concat( images, ' ' ) )
 +
end
 +
 +
-- mise en forme du titre
 +
local titre
 +
if #titres > 0 then
 +
titre = cfg.ebaucheTitreSujet:format(
 +
ebaucheParam( 1, 'type' ),
 +
mw.text.listToText( titres )
 +
)
 +
else
 +
titre = cfg.ebaucheTitre:format( ebaucheParam( 1, 'type' ) )
 +
end
 +
 +
-- mise en forme du texte
 +
local texte
 +
if #ebauches == 0 then
 +
texte = ( ebaucheParam( 1, 'message' ) ) .. '.'
 +
else
 +
local message = ebaucheParam( 1, 'message' )
 +
local selon = ebaucheParam( 1, 'selon' )
 +
-- ajout d'un point si le paramètre selon commence par un retour ligne ou une majuscule
 +
if message:sub( -1 ) == ')' and ( selon:sub( 1, 3 ) == '<br' or mw.ustring.match( selon, '^%u' ) ) then
 +
texte = ( ebaucheParam( 1, 'message' ) ) .. '. ' .. ( ebaucheParam( 1, 'selon' ) ) .. '.'
 +
else
 +
texte = ( ebaucheParam( 1, 'message' ) ) .. ' ' .. ( ebaucheParam( 1, 'selon' ) ) .. '.'
 +
end
 +
end
 +
-- ajout d'un texte s'il y a une liste de tâches
 +
local todo = mw.title.makeTitle( mw.site.namespaces[ page.namespace ].talk.id, page.text .. '/À faire' )
 +
if todo.exists then
 +
texte = texte .. '\n\n'
 +
.. 'Consultez la liste des <b>tâches à accomplir</b> en [['
 +
.. page.talkPageTitle.prefixedText
 +
.. '|page de discussion]].'
 +
end
 +
 +
-- paramètres pour le bandeau
 +
local parametres = {
 +
niveau = 'ébauche',
 +
['icône'] = image,
 +
titre = titre:gsub( ' <adj[^>]*>', '' ),
 +
texte = texte,
 +
id = args.id
 +
}
 +
 +
-- concaténation des différentes catégories (pas de catégorisation si nocat, ou page de discussion, ou espace utilisateur)
 +
local categ = ''
 +
local messageErreur = table.concat( gestionErreur )
 +
if not ( yesno( args.nocat, true, false ) or page.isTalkPage or page.namespace == 2 ) then
 +
for i = 1, #categs do
 +
categs[ i ] = cfg.ebaucheCateg:format( categs[ i ] )
 +
end
 +
categ = table.concat( categs ):gsub( ' <[^>]*>', '' )
 +
if categ == '' then
 +
categ = cfg.ebaucheCateg:format('')
 +
end
 +
if #gestionErreur > 0 then
 +
messageErreur = messageErreur .. '[[Catégorie:Ébauche inconnue]]'
 +
end
 +
end
 +
 +
 +
 
 +
return p._bandeauAvertissement( parametres ) .. messageErreur .. categ
 +
end
 +
 
 +
---
 +
-- fonction retournant un paramètre d'une table d'ébauche.
 +
-- Elle est prévue pour être appelée directement par #invoke:
 +
-- avec pour paramètres le thème et le paramètre désiré
 +
-- Cette fonction est principalement destinée à la page d'aide.
 +
function p.parametreEbauche( frame )
 +
local paramEbauche = mw.loadData( moduleEbauche )
 +
local theme = frame.args[1]
 +
local param = frame.args[2]
 +
if paramEbauche[ theme ] then
 +
return paramEbauche[ theme ][ param ]
 +
elseif paramEbauche[ inverserCasse( theme ) ] then
 +
return paramEbauche[ inverserCasse( theme ) ][ param ]
 +
end
 +
end
 +
 
 +
---
 +
-- Fonction retournant le féminin d'un théme d'ébauche
 +
-- Elle est prévue pour être appelée directement par #invoke:
 +
-- avec pour paramètres le thème et le paramètre désiré
 +
-- Cette fonction est principalement destinée au modèle {{Catégorie d'ébauche}}, donc une valeur n'est retournée que si les catégories sont identiques
 +
function p.femininEbauche( frame )
 +
local paramEbauche = mw.loadData( moduleEbauche )
 +
local theme = frame.args[1]
 +
local themeF
 +
if theme then
 +
local t = getEbaucheTable( paramEbauche, theme )
 +
local tF, tAdjF = getEbaucheTable( paramEbauche, theme, true )
 +
if t.feminin and  tF.categ == t.categ then
 +
if tAdjF then
 +
themeF = tF.nom .. ' ' .. tAdjF.feminin
 +
elseif tF then
 +
themeF = tF.nom
 +
end
 +
return themeF
 +
end
 +
end
 +
end
 +
 
 +
---
 +
-- fonction qui contruit deux tableaux récapitulatif de l'ensemble des paramètres d'ébauche
 +
function p.tableParametresEbauches( frame )
 +
local paramEbauche = mw.loadData( moduleEbauche )
 +
local params, paramAdj, paramType = {}, {}, {}
 +
local wikiTab = { '<table class="wikitable sortable" style="table-layout:fixed;">' }
 +
wikiTab.insert = function ( t, value )
 +
table.insert( t, value )
 +
return t
 +
end
 +
 +
for clef, ebauche in pairs( paramEbauche ) do
 +
local kEbauche = {}
 +
for k, v in pairs( ebauche ) do
 +
kEbauche[ k ] = v
 +
end
 +
kEbauche.clef = clef
 +
if ebauche.type then
 +
table.insert( paramType, kEbauche )
 +
elseif ebauche.adjectif then
 +
if clef == ebauche.nom or clef ~= ebauche.feminin then
 +
table.insert( paramAdj, kEbauche )
 +
end
 +
else
 +
table.insert( params, kEbauche )
 +
end
 +
end
 +
local comp = function( eb1, eb2 )
 +
return eb1.clef < eb2.clef
 +
end
 +
table.sort( params, comp )
 +
table.sort( paramAdj, comp )
 +
table.sort( paramType, comp )
 +
 +
wikiTab
 +
:insert('\n=== Ébauches normales ===\n')
 +
:insert('<caption>Liste des paramètres d\'ébauche</caption>')
 +
:insert('<th scope=col style="width:15%;">nom</th>')
 +
:insert('<th scope=col style="width:50px; box-sizing:border-box;">i</th>')
 +
:insert('<th scope=col style="width:20%;">sujet</th>')
 +
:insert('<th scope=col style="width:20%;">catégorie</th>')
 +
:insert('<th scope=col>selon</th>')
 +
for k, ebauche in ipairs( params ) do
 +
wikiTab
 +
:insert('<tr><td>')
 +
:insert( ebauche.clef )
 +
:insert('</td><td>')
 +
if ebauche.icone then
 +
wikiTab:insert( cfg.formatLien:format( ebauche.icone, '45x35', ebauche.altIcone or '' ) )
 +
end
 +
wikiTab
 +
:insert('</td><td>')
 +
:insert( ebauche.sujet )
 +
:insert('</td><td>')
 +
if ebauche.categ then
 +
wikiTab
 +
:insert( '[[:Catégorie:Wikipédia:ébauche ' .. ebauche.categ .. '|' .. ebauche.categ .. ']]' )
 +
end
 +
if ebauche.cageg2 then
 +
wikiTab
 +
:insert('<br>')
 +
:insert( '[[:Catégorie:Wikipédia:ébauche ' .. ebauche.categ2 .. '|' .. ebauche.categ2 .. ']]' )
 +
end
 +
wikiTab
 +
:insert('</td><td>')
 +
:insert( ebauche.selon )
 +
:insert('</td></tr>')
 +
end
 +
wikiTab:insert('</table>')
 +
 +
-- seconde table pour les adjectifs
 +
wikiTab
 +
:insert('\n=== Adjectifs ===\n')
 +
:insert('<table class="wikitable">')
 +
:insert('<caption>Liste des adjectifs</caption>')
 +
:insert('<th scope=col>adjectif</th>')
 +
:insert('<th scope=col>féminin</th>')
 +
:insert('<th scope=col style="width:50px;">icone</th>')
 +
:insert('<th scope=col>sujet</th>')
 +
:insert('<th scope=col>sujet féminin</th>')
 +
:insert('<th scope=col>catégorie</th>')
 +
for k, ebauche in ipairs( paramAdj ) do
 +
wikiTab
 +
:insert('<tr><td>')
 +
:insert( ebauche.clef )
 +
:insert('</td><td>')
 +
:insert( ebauche.feminin )
 +
:insert('</td><td>')
 +
if ebauche.icone then
 +
wikiTab
 +
:insert( cfg.formatLien:format( ebauche.icone, '45x35', ebauche.altIcone or '' ) )
 +
end
 +
wikiTab
 +
:insert('</td><td>')
 +
:insert( ebauche.sujet )
 +
:insert('</td><td>')
 +
:insert( ebauche.sujetF or ebauche.sujet:gsub( ebauche.nom .. '%f[%W]', ebauche.feminin ) )
 +
:insert('</td><td>')
 +
if ebauche.categ then
 +
wikiTab
 +
:insert( '[[:Catégorie:Wikipédia:ébauche ' .. ebauche.categ .. '|' .. ebauche.categ .. ']]' )
 +
end
 +
wikiTab
 +
:insert('</td></tr>')
 +
end
 +
wikiTab:insert('</table>')
 +
 +
-- troisième table pour les types
 +
wikiTab
 +
:insert('\n=== Types ===\n')
 +
:insert('<table class="wikitable">')
 +
:insert('<caption>Liste des paramètres de type</caption>')
 +
:insert('<th scope=col style="width:15%;">nom</th>')
 +
:insert('<th scope=col style="width:50px;">icone</th>')
 +
:insert('<th scope=col style="width:20%;">type</th>')
 +
:insert('<th scope=col style="width:15%;">sujet</th>')
 +
:insert('<th scope=col style="width:15%;">catégorie</th>')
 +
:insert('<th scope=col>message</th>')
 +
for k, ebauche in ipairs( paramType ) do
 +
wikiTab
 +
:insert('<tr><td>')
 +
:insert( ebauche.clef )
 +
:insert('</td><td>')
 +
if ebauche.icone then
 +
wikiTab:insert( cfg.formatLien:format( ebauche.icone, '45x35', ebauche.altIcone or '' ) )
 +
end
 +
wikiTab
 +
:insert('</td><td>')
 +
:insert ( ebauche.type )
 +
:insert('</td><td>')
 +
:insert( ebauche.sujet )
 +
:insert('</td><td>')
 +
if ebauche.categ then
 +
wikiTab:insert( '[[:Catégorie:Wikipédia:ébauche ' .. ebauche.categ .. '|' .. ebauche.categ .. ']]' )
 +
end
 +
wikiTab
 +
:insert('</td><td>')
 +
:insert( ebauche.message )
 +
:insert('</td></tr>')
 +
end
 +
wikiTab:insert('</table>')
 +
 +
return table.concat( wikiTab ):gsub( ' <adjF?>', '' )
 +
end
  
res:addClass('test-bandeau-article test-bandeau-niveau-information plainlinks')
+
-- fonction destiné au gadget MediaWiki:Gadget-BandeauxEbauches.js
if args.image then
+
function p.listeEbauches( frame )
res
+
local paramEbauche = mw.loadData( moduleEbauche )
:tag('div')
+
local liste = {}
:addClass('test-bandeau-image')
+
for k in pairs( paramEbauche ) do
:wikitext(args.image)
+
if k ~="" then
 +
table.insert( liste, k )
 +
end
 
end
 
end
res
+
table.sort( liste )
:tag('p')
+
return table.concat( liste, '\n' )
:addClass('test-bandeau-texte')
+
end
:wikitext(args.texte or erreur(p.erreurArgumentTitre))
 
  
return tostring(res)
+
 
 +
 
 +
-- Insertion dans la table p des fonctions appelées par les
 +
-- modèles à l'aide d'un adaptateur de fonction.
 +
local function adaptateur(nomFonction)
 +
return function (frame)
 +
local args
 +
if frame.args.texte or frame.args.titre then
 +
args = frame.args
 +
else
 +
args = frame:getParent().args
 +
end
 +
return p[nomFonction](args)
 +
end
 +
end
 +
 +
local nomsFonction = {'bandeau', 'bandeauAvertissement', 'bandeauSection', 'ébauche' }
 +
for _, nomFonction in ipairs(nomsFonction) do
 +
p[nomFonction] = adaptateur('_' .. nomFonction)
 
end
 
end
  
 
return p
 
return p

Version actuelle datée du 19 mai 2017 à 04:23

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

--Ce module implémente les modèles de 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).
--Gérer les images multiples.

local p = {}

local trim = require('Module:Outils').trim
local yesno = require('Module:yesno')
local class = mw.loadData('Module:Bandeau/Class')
local moduleEbauche = 'Module:Bandeau/Ébauche'
-- local paramEbauche = mw.loadData(moduleEbauche) -- ne sera chargé que pour un bandeau d'ébauche.

local cfg = {
	forme = 'bandeau-simple',
	niveau = 'bandeau-niveau-neutre',
	formatLien = '[[Fichier:%s|%spx|alt=%s|class=noviewer]]',
	tailleIcone = '45x45',
	public = 'domaine public',
	erreurArgument = 'Paramètre <code>|%s=</code> manquant',
	erreurEbaucheParam = 'le thème « %s » du modèle [[Modèle:Ébauche|{{ébauche}}]] n’est pas [[Aide:Ébauche/Aide paramètres|défini]].',
	erreurEbaucheType = 'le thème « %s » doit apparaître en tête de liste du modèle [[Modèle:Ébauche|{{ébauche}}]].',
	ebaucheImage = '<span style="white-space:nowrap;word-spacing:5px">%s</span>',
	ebaucheTitre = '%s est une [[Aide:Ébauche|ébauche]].',
	ebaucheTitreSujet = '%s est une [[Aide:Ébauche|ébauche]] concernant %s.',
	ebaucheCateg = '[[Catégorie:Wikipédia:ébauche %s]]',
}

local function erreur(texte, formatstring, tag)
	local res = mw.html.create(tag or 'span')
	res	:addClass('error')
		:wikitext('Erreur : ')

	if formatstring then
		res:wikitext(formatstring:format(texte))
	else
		res:wikitext(texte)
	end

	return tostring(res)
end

function p._bandeau(args)
	local res = mw.html.create('div')
	local cells = mw.html.create()
	local icone = trim(args.image) or trim(args['icône'])
	local backgroundIcone = class.icones[icone] or ''
	local texte = (trim(args.texte) or erreur('texte', cfg.erreurArgument))

	res	:attr{ id = args.id }
		:addClass(class.formes[args.forme] or cfg.forme)
		:addClass(class.niveau[args.niveau] or cfg.niveau)
		:addClass('plainlinks')
		:addClass(args.class)
		:cssText(args.style)
	
	if yesno(args.centrer) then
		cells = mw.html.create('div')
			:addClass('bandeau-centrer')
	elseif trim(args.droite) then
		cells = mw.html.create('div')
			:css{ display = 'table', width = '100%' }
	end
	if icone and backgroundIcone == '' then
		local iconeWiki = icone
		if not icone:match('%[') then
			local alt = args.alt or args['légende'] or ''
			if alt:lower() == cfg.public then
				alt = '|link='
			end
			if yesno( args['domaine public'] ) then
				alt = alt .. '|link='
			end
			local taille = args['taille icône'] or cfg.tailleIcone
			iconeWiki = cfg.formatLien:format(icone, taille, alt)
		end
		cells
			:tag('div')
				:addClass('bandeau-cell bandeau-icone')
				:wikitext(iconeWiki)
			:done()
	elseif backgroundIcone ~= '' and args.forme == 'section' then
		texte = '&ensp;' .. texte
	end
	cells
		:tag('div')
			:addClass('bandeau-cell ' .. backgroundIcone)
			:wikitext(texte)
			:newline()
		:done()
	if trim(args.droite) then
		cells
			:tag('div')
				:addClass('bandeau-cell')
				:css( 'padding-left', '1em' )
				:newline()
				:wikitext(args.droite)
			:done()
	end
		
	res	:node(cells)
	if trim(args['supplément']) then
		res	:tag('p')   
				:wikitext(args['supplément'])
			:done()
	end
	return tostring(res)
end

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

	htmlTexte
		:tag('strong')
			:addClass('bandeau-titre')
			:wikitext(trim(args.titre) or erreur('titre', cfg.erreurArgument))
		:done()
		:wikitext(args.date)
		:newline():newline()
		:wikitext(args.texte)

	local parametres = {
		forme = 'article',
		niveau = args.niveau,
		id = args.id,
		class = ( args.class or '' ) .. ' metadata',
		['icône'] = trim(args['icône']) or trim(args['icône-complexe']) or args.niveau,
		alt = args.alt or args['légende'],
		['domaine public'] = args['domaine public'],
		texte = tostring(htmlTexte),
		['supplément'] = args['supplément'],
	}

	return p._bandeau(parametres)
end

function p._bandeauSection(args)
	local res = mw.html.create('div')
	local icone = trim(args.image) or trim(args['icône'])
	local backgroundIcone = class.icones[icone] or ''
	local texte = '&ensp;' .. (trim(args.texte) or erreur('texte', cfg.erreurArgument))

	res	:addClass('bandeau-section metadata')
		:addClass(class.niveau[args.niveau] or cfg.niveau)
	
	if icone and backgroundIcone == '' then
		local iconeWiki = icone
		if not icone:match('%[') then
			local alt = args.alt or args['légende'] or ''
			if alt:lower() == cfg.public then
				alt = '|link='
			end
			iconeWiki = cfg.formatLien:format(icone, 'text-top|20x17', alt)
		end
		res	:wikitext(iconeWiki)
			:done()
	end
	res	:addClass(backgroundIcone)
		:wikitext(texte)
		:done()

	return tostring(res)
end

-- fonction qui inverse la casse du premier caractère d'une chaine
local function inverserCasse( str )
	if type( str ) == 'string' then
		local premierCar = mw.ustring.sub( str, 1, 1 )
		if mw.ustring.lower( premierCar ) == premierCar then
			return mw.ustring.upper( premierCar ) .. mw.ustring.sub( str, 2 )
		else
			return mw.ustring.lower( premierCar ) .. mw.ustring.sub( str, 2 )
		end
	end	
end

-- fonction qui récupètre la ou les tables d'ébauche correspondant au thème
local function getEbaucheTable( paramEbauche, theme, feminin )
	-- suprime les marques de direction ltr
	theme = theme:gsub( '\226\128\142', '' ):gsub( '_', ' ' )
	-- récupére les paramètres lié au theme, à partir du module:Bandeau/Ébauche
	local params = {}
	local ebauche = paramEbauche[ theme ] or paramEbauche[ inverserCasse( theme ) ]
	if not ebauche and theme:find( ' ' ) then
		-- teste si l'un des mots du thème correspond à un adjectif existant
		for adj in theme:gmatch( ' ([^ ]+)' ) do
			paramsAdj = getEbaucheTable( paramEbauche, adj, feminin )
			if paramsAdj and paramsAdj.adjectif == true then
				local nom = theme:gsub( ' ' .. adj:gsub( '(%p)', '%%%1'), '' )
				params = getEbaucheTable( paramEbauche, nom, feminin )
				if params then
					return params, paramsAdj
				end
			end
		end
		-- aucun mot ne correspond à un adjectif, on essait une autre methode pour trouver une correspondance avec plusieurs mots
		if theme:find( ' .+ ' ) then
			for adj, paramsAdj in pairs( paramEbauche ) do
				if paramsAdj.adjectif == true and theme:find( ' ' .. adj, 2, true ) then
					local nom = theme:gsub( ' ' .. adj:gsub( '(%p)', '%%%1'), '' )
					params = getEbaucheTable( paramEbauche, nom, feminin )
					if params then
						return params, paramsAdj
					end
				end
			end
		end
	end
	if feminin and ebauche and ebauche.feminin then 
		ebauche = paramEbauche[ ebauche.feminin ]
	end
	if ebauche then
		for n, v in pairs( ebauche ) do
			params[ n ] = v
		end
	else
		params = nil
	end
	return params, nil
end
p.getEbaucheTable = getEbaucheTable

local function femininFromWikidata()
	local entity = mw.wikibase.getEntity()
	if entity then
		local p31 = entity:getBestStatements( 'P31' )
		local estHumain = type( p31 ) == 'table'
			and #p31 == 1
			and type( p31[ 1 ].mainsnak ) == 'table'
			and type( p31[ 1 ].mainsnak.datavalue ) == 'table'
			and type( p31[ 1 ].mainsnak.datavalue.value ) == 'table'
			and p31[ 1 ].mainsnak.datavalue.value['numeric-id'] == 5
		local p21 = entity:getBestStatements( 'P21' )
		local estFeminin = type( p21 ) == 'table'
			and #p21 == 1
			and type( p21[ 1 ].mainsnak ) == 'table'
			and type( p21[ 1 ].mainsnak.datavalue ) == 'table'
			and type( p21[ 1 ].mainsnak.datavalue.value ) == 'table'
			and p21[ 1 ].mainsnak.datavalue.value['numeric-id'] == 6581072
		return estHumain, estFeminin
	end
	return false, false
end

p['_ébauche'] = function ( args )
	local paramEbauche = mw.loadData( moduleEbauche )
	local page = mw.title.getCurrentTitle()
	local ebauches, gestionErreur = {}, {}
	local humain, feminin = femininFromWikidata()
	feminin = yesno( args["féminin"], true ) or feminin
	local estFeminin
	
	-- fonction qui retourne la valeur de param pour l'ébauche i, ou une valeur par défaut
	local ebaucheParam = function( i, param )
		return ebauches[ i ] and ebauches[ i ][ param ] or paramEbauche[''][ param ]
	end

	-- récupération des paramètres de tous les thèmes
	for i, theme in ipairs( args ) do
		theme = trim( theme )
		if theme then
			local t, tAdj = getEbaucheTable( paramEbauche, theme, feminin )
			if t then
				table.insert( ebauches, t )
				table.insert( ebauches, tAdj )
			else
				table.insert(
					gestionErreur, 
					erreur( theme, cfg.erreurEbaucheParam, 'div' )
				)
			end
		end
	end
	
	-- récupération des différents titres, images et catégories
	local images, titres, categs = {}, {}, {}
	local tailleIcone = '45x35'
	if #ebauches > 3 then
		tailleIcone = '35x25'
	end
	for i, ebauche in ipairs( ebauches ) do
		-- création du lien de l'image
		local alt = ebauche.altIcone
		if not alt then
			if ebauche.sujet then
				alt = 'image illustrant ' .. ebauche.sujet
			else
				alt = ''
			end
		end
		if ebauche.icone then
			local image = cfg.formatLien:format( ebauche.icone, tailleIcone, alt )
			table.insert( images, image )
		end
		if math.fmod( #ebauches, 3 ) == 1 and ( #ebauches - i ) == 2	
			or math.fmod( i, 3 ) == 0 and ( #ebauches - i ) > 1
		then
			-- sur plusieurs lignes s'il y a plus de 3 images, avec minimum deux images sur la dernière ligne
			table.insert( images, '<br> ' )
		end
		
		if i > 1 and ebauche.type and ebauche.type ~= paramEbauche[''].type then
			-- remplace "Cet article par "Ce portail" ou autre en fonction du premier thème
			table.insert(
				gestionErreur, 
				erreur( ebauche.nom, cfg.erreurEbaucheType, 'div' )
			)
		end
		
		-- récupères les différents noms de thème
		if ebauche.adjectif and #titres > 0 then
			local sujet = ebauche.sujet or ebauche.nom
			if estFeminin then
				sujet = ebauche.sujetF or sujet:gsub(
					ebauche.nom:gsub( '(%p)', '%%%1') .. '%f[%W]', 
					ebauche.feminin
				)
			end
			-- ajout du sujet de l'adjectif dans le sujet de l'ébauche précédente
			local titre, subst = titres[ #titres ]:gsub( 
				'<(adj[^>]*)>', 
				{ adjectif = sujet, adj = ebauche.nom, adjF = ebauche.feminin }
			)
			if subst > 0 then
				titres[ #titres ] = titre
			else
				titres[ #titres ] = titre .. ' ' .. sujet
			end
		else
			table.insert( titres, ebauche.sujet )
			estFeminin = ebauche.estFeminin or ( ebauche.sujet == '' and estFeminin )
		end
		
		-- mise en forme des catégories
		if ebauche.adjectif then
			-- tentative d'ajout du nom de l'adjectif dans les catégories précédentes
			local modif = false
			for k, v in ipairs( categs ) do
				local cat, subst = v:gsub( 
					'<(adj[^>]*)>', 
					{ adj = ebauche.nom, adjF =  ebauche.feminin,  adjectif = ebauche.nom }
				)
				if subst == 0 then
					cat = v .. ' ' .. ebauche.nom
				end
				if mw.title.new( 'Catégorie:Wikipédia:ébauche ' .. cat ).exists then
					categs[ k ] = cat
					modif = true
				end
			end
			if not modif 
				and humain 
				and mw.title.new( 'Catégorie:Wikipédia:ébauche personnalité ' .. ebauche.feminin ).exists
			then
				table.insert( categs, 'personnalité ' .. ebauche.feminin )
			end
		end
		table.insert( categs, ebauche.categ )
		table.insert( categs, ebauche.categ2 )
	end
	
	-- mise en forme des images
	local image 
	if trim( args['icône'] ) then
		local theme = getEbaucheTable( paramEbauche, args['icône'] )
		if theme and theme.icone then
			image = cfg.formatLien:format(
				theme.icone, 
				tailleIcone, 
				theme.altIcone or ( 'image illustrant ' .. theme.sujet )
			)
		end
	elseif #images == 1 then
		image = images[ 1 ]
	elseif #images > 1 then
		image = cfg.ebaucheImage:format( table.concat( images, ' ' ) )
	end
	
	-- mise en forme du titre
	local titre
	if #titres > 0 then
		titre = cfg.ebaucheTitreSujet:format( 
			ebaucheParam( 1, 'type' ), 
			mw.text.listToText( titres )
		)
	else
		titre = cfg.ebaucheTitre:format( ebaucheParam( 1, 'type' ) )
	end
	
	-- mise en forme du texte
	local texte
	if #ebauches == 0 then
		texte = ( ebaucheParam( 1, 'message' ) ) .. '.'
	else
		local message = ebaucheParam( 1, 'message' )
		local selon = ebaucheParam( 1, 'selon' )
		-- ajout d'un point si le paramètre selon commence par un retour ligne ou une majuscule
		if message:sub( -1 ) == ')' and ( selon:sub( 1, 3 ) == '<br' or mw.ustring.match( selon, '^%u' ) ) then
			texte = ( ebaucheParam( 1, 'message' ) ) .. '. ' .. ( ebaucheParam( 1, 'selon' ) ) .. '.'
		else
			texte = ( ebaucheParam( 1, 'message' ) ) .. ' ' .. ( ebaucheParam( 1, 'selon' ) ) .. '.'
		end
	end
	-- ajout d'un texte s'il y a une liste de tâches
	local todo = mw.title.makeTitle( mw.site.namespaces[ page.namespace ].talk.id, page.text .. '/À faire' )
	if todo.exists then
		texte = texte .. '\n\n'
			.. 'Consultez la liste des <b>tâches à accomplir</b> en [['
			.. page.talkPageTitle.prefixedText
			.. '|page de discussion]].'
	end
	
	-- paramètres pour le bandeau
	local parametres = {
		niveau = 'ébauche',
		['icône'] = image,
		titre = titre:gsub( ' <adj[^>]*>', '' ),
		texte = texte,
		id = args.id
	}
	
	-- concaténation des différentes catégories (pas de catégorisation si nocat, ou page de discussion, ou espace utilisateur)
	local categ = ''
	local messageErreur = table.concat( gestionErreur )
	if not ( yesno( args.nocat, true, false ) or page.isTalkPage or page.namespace == 2 ) then
		for i = 1, #categs do
			categs[ i ] = cfg.ebaucheCateg:format( categs[ i ] )
		end
		categ = table.concat( categs ):gsub( ' <[^>]*>', '' )
		if categ == '' then
			categ = cfg.ebaucheCateg:format('')
		end
		if #gestionErreur > 0 then
			messageErreur = messageErreur .. '[[Catégorie:Ébauche inconnue]]'
		end
	end
	
	

	return p._bandeauAvertissement( parametres ) .. messageErreur .. categ
end

---
-- fonction retournant un paramètre d'une table d'ébauche.
-- Elle est prévue pour être appelée directement par #invoke:
-- avec pour paramètres le thème et le paramètre désiré
-- Cette fonction est principalement destinée à la page d'aide.
function p.parametreEbauche( frame )
	local paramEbauche = mw.loadData( moduleEbauche )
	local theme = frame.args[1]
	local param = frame.args[2]
	if paramEbauche[ theme ] then
		return paramEbauche[ theme ][ param ]
	elseif paramEbauche[ inverserCasse( theme ) ] then
		return paramEbauche[ inverserCasse( theme ) ][ param ]
	end
end

--- 
-- Fonction retournant le féminin d'un théme d'ébauche
-- Elle est prévue pour être appelée directement par #invoke:
-- avec pour paramètres le thème et le paramètre désiré
-- Cette fonction est principalement destinée au modèle {{Catégorie d'ébauche}}, donc une valeur n'est retournée que si les catégories sont identiques
function p.femininEbauche( frame )
	local paramEbauche = mw.loadData( moduleEbauche )
	local theme = frame.args[1]
	local themeF
	if theme then
		local t = getEbaucheTable( paramEbauche, theme )
		local tF, tAdjF = getEbaucheTable( paramEbauche, theme, true )
		if t.feminin and  tF.categ == t.categ then
			if tAdjF then
				themeF = tF.nom .. ' ' .. tAdjF.feminin
			elseif tF then
				themeF = tF.nom
			end
			return themeF
		end
	end
end

---
-- fonction qui contruit deux tableaux récapitulatif de l'ensemble des paramètres d'ébauche
function p.tableParametresEbauches( frame )
	local paramEbauche = mw.loadData( moduleEbauche )
	local params, paramAdj, paramType = {}, {}, {}
	local wikiTab = { '<table class="wikitable sortable" style="table-layout:fixed;">' }
	wikiTab.insert = function ( t, value )
		table.insert( t, value )
		return t
	end
	
	for clef, ebauche in pairs( paramEbauche ) do
		local kEbauche = {}
		for k, v in pairs( ebauche ) do
			kEbauche[ k ] = v
		end
		kEbauche.clef = clef
		if ebauche.type then
			table.insert( paramType, kEbauche )
		elseif ebauche.adjectif then
			if clef == ebauche.nom or clef ~= ebauche.feminin then
				table.insert( paramAdj, kEbauche )
			end
		else
			table.insert( params, kEbauche )
		end
	end
	local comp = function( eb1, eb2 )
		return eb1.clef < eb2.clef
	end
	table.sort( params, comp )
	table.sort( paramAdj, comp )
	table.sort( paramType, comp )
	
	wikiTab
		:insert('\n=== Ébauches normales ===\n')
		:insert('<caption>Liste des paramètres d\'ébauche</caption>')
		:insert('<th scope=col style="width:15%;">nom</th>')
		:insert('<th scope=col style="width:50px; box-sizing:border-box;">i</th>')
		:insert('<th scope=col style="width:20%;">sujet</th>')
		:insert('<th scope=col style="width:20%;">catégorie</th>')
		:insert('<th scope=col>selon</th>')
	for k, ebauche in ipairs( params ) do
			wikiTab
			:insert('<tr><td>')
			:insert( ebauche.clef )
			:insert('</td><td>')
		if ebauche.icone then
			wikiTab:insert( cfg.formatLien:format( ebauche.icone, '45x35', ebauche.altIcone or '' ) )
		end
		wikiTab
			:insert('</td><td>')
			:insert( ebauche.sujet )
			:insert('</td><td>')
		if ebauche.categ then
			wikiTab
				:insert( '[[:Catégorie:Wikipédia:ébauche ' .. ebauche.categ .. '|' .. ebauche.categ .. ']]' )
		end
		if ebauche.cageg2 then
			wikiTab
				:insert('<br>')
				:insert( '[[:Catégorie:Wikipédia:ébauche ' .. ebauche.categ2 .. '|' .. ebauche.categ2 .. ']]' )
		end
		wikiTab
			:insert('</td><td>')
			:insert( ebauche.selon )
			:insert('</td></tr>')
	end
	wikiTab:insert('</table>')
	
	-- seconde table pour les adjectifs
	wikiTab
		:insert('\n=== Adjectifs ===\n')
		:insert('<table class="wikitable">')
		:insert('<caption>Liste des adjectifs</caption>')
		:insert('<th scope=col>adjectif</th>')
		:insert('<th scope=col>féminin</th>')
		:insert('<th scope=col style="width:50px;">icone</th>')
		:insert('<th scope=col>sujet</th>')
		:insert('<th scope=col>sujet féminin</th>')
		:insert('<th scope=col>catégorie</th>')
	for k, ebauche in ipairs( paramAdj ) do
		wikiTab
			:insert('<tr><td>')
			:insert( ebauche.clef )
			:insert('</td><td>')
			:insert( ebauche.feminin )
			:insert('</td><td>')
		if ebauche.icone then
			wikiTab
				:insert( cfg.formatLien:format( ebauche.icone, '45x35', ebauche.altIcone or '' ) )
		end
		wikiTab
			:insert('</td><td>')
			:insert( ebauche.sujet )
			:insert('</td><td>')
			:insert( ebauche.sujetF or ebauche.sujet:gsub( ebauche.nom .. '%f[%W]', ebauche.feminin ) )
			:insert('</td><td>')
		if ebauche.categ then
			wikiTab
				:insert( '[[:Catégorie:Wikipédia:ébauche ' .. ebauche.categ .. '|' .. ebauche.categ .. ']]' )
		end
		wikiTab
			:insert('</td></tr>')
	end
	wikiTab:insert('</table>')
	
	-- troisième table pour les types
	wikiTab
		:insert('\n=== Types ===\n')
		:insert('<table class="wikitable">')
		:insert('<caption>Liste des paramètres de type</caption>')
		:insert('<th scope=col style="width:15%;">nom</th>')
		:insert('<th scope=col style="width:50px;">icone</th>')
		:insert('<th scope=col style="width:20%;">type</th>')
		:insert('<th scope=col style="width:15%;">sujet</th>')
		:insert('<th scope=col style="width:15%;">catégorie</th>')
		:insert('<th scope=col>message</th>')
	for k, ebauche in ipairs( paramType ) do
		wikiTab
			:insert('<tr><td>')
			:insert( ebauche.clef )
			:insert('</td><td>')
		if ebauche.icone then
			wikiTab:insert( cfg.formatLien:format( ebauche.icone, '45x35', ebauche.altIcone or '' ) )
		end
		wikiTab
			:insert('</td><td>')
			:insert ( ebauche.type )
			:insert('</td><td>')
			:insert( ebauche.sujet )
			:insert('</td><td>')
		if ebauche.categ then
			wikiTab:insert( '[[:Catégorie:Wikipédia:ébauche ' .. ebauche.categ .. '|' .. ebauche.categ .. ']]' )
		end
		wikiTab
			:insert('</td><td>')
			:insert( ebauche.message )
			:insert('</td></tr>')
	end
	wikiTab:insert('</table>')
	
	return table.concat( wikiTab ):gsub( ' <adjF?>', '' )
end

-- fonction destiné au gadget MediaWiki:Gadget-BandeauxEbauches.js
function p.listeEbauches( frame )
	local paramEbauche = mw.loadData( moduleEbauche )
	local liste = {}
	for k in pairs( paramEbauche ) do
		if k ~="" then
			table.insert( liste, k )
		end
	end
	table.sort( liste )
	return table.concat( liste, '\n' )
end



-- Insertion dans la table p des fonctions appelées par les
-- modèles à l'aide d'un adaptateur de fonction.
local function adaptateur(nomFonction)
	return function (frame)
		local args
		if frame.args.texte or frame.args.titre then
			args = frame.args
		else
			args = frame:getParent().args
		end
		return p[nomFonction](args)
	end
end
 
local nomsFonction = {'bandeau', 'bandeauAvertissement', 'bandeauSection', 'ébauche' } 
for _, nomFonction in ipairs(nomsFonction) do
	p[nomFonction] = adaptateur('_' .. nomFonction)
end

return p