Module:Palette : Différence entre versions

De Lagny-sur-Marne Wiki
Aller à : navigation, rechercher
(retouche de la modification précédente)
(simplification : on s’arrête à la première palette vide, mef)
Ligne 8 : Ligne 8 :
 
local args = frame.args
 
local args = frame.args
 
local parentArgs = frame:getParent().args  
 
local parentArgs = frame:getParent().args  
 +
 
local wikiTable = { '<div class="navbox_group" style="clear:both;">\n' }
 
local wikiTable = { '<div class="navbox_group" style="clear:both;">\n' }
setmetatable( wikiTable, { __index = table } )
+
setmetatable( wikiTable, { __index = table } )   -- permet d'utiliser les fonctions de table comme des méthodes
 
 
 
local maxPalette = tonumber( args.maxPalette ) or 4
 
local maxPalette = tonumber( args.maxPalette ) or 4
Ligne 17 : Ligne 18 :
 
local categories = { }
 
local categories = { }
 
 
local function erreur( texte, param, ... )
+
local function _erreur( texte, param, ... )
 
if param then texte = texte:format( param, ... )
 
if param then texte = texte:format( param, ... )
 
end  
 
end  
Ligne 23 : Ligne 24 :
 
end
 
end
 
local function _pasDePalette()
 
local function _pasDePalette()
return erreur( 'Erreur dans l’utilisation du [[Modèle:Palette]] : paramètre obligatoire absent.' )
+
return _erreur( 'Erreur dans l’utilisation du [[Modèle:Palette]] : paramètre obligatoire absent.' )
 
end
 
end
 
 
 
local function _paletteInconnue( i )
 
local function _paletteInconnue( i )
 
categories.paletteInconnue = categoriePaletteInconnue
 
categories.paletteInconnue = categoriePaletteInconnue
return erreur( 'Erreur : il n’existe pas de modèle « Palette %s »', parentArgs[i] )
+
return _erreur( 'Erreur : il n’existe pas de modèle « Palette %s »', parentArgs[i] )
 
end
 
end
 
 
Ligne 48 : Ligne 49 :
 
local function _tropDePalettes()
 
local function _tropDePalettes()
 
categories.tropDePalette = categorieTropDePalette
 
categories.tropDePalette = categorieTropDePalette
return erreur( 'Erreur dans le [[Modèle:Palette]] : trop de palettes (maximum : %s)', maxPalette )
+
return _erreur( 'Erreur dans le [[Modèle:Palette]] : trop de palettes (maximum : %s)', maxPalette )
 
end  
 
end  
 
 
 
local i = 1
 
local i = 1
 
 
while parentArgs[i] and i <= maxPalette  do
+
while parentArgs[i] and parentArgs[i] ~= '' and i <= maxPalette  do
+
local codePalette = args[i]:gsub( '<div class="navbox_group"', '<div' )   
if parentArgs[i] ~= '' then
+
-- une ancre ^ pourra être ajoutée pour gagner en performance lorsque le modèle palette ne commencera plus par {{clr}}
local codePalette = args[i]:gsub( '<div class="navbox_group"', '<div' )   
+
-- une ancre ^ pourra être ajoutée pour gagner en performance lorsque le modèle palette ne commencera plus par {{clr}}
+
if codePalette:match( '^%[%[:Modèle:' ) then                 -- La palette n'existe pas
if codePalette:match( '^%[%[:Modèle:' ) then  
+
wikiTable:insert( _paletteInconnue( i ) )
-- La palette n'existe pas
+
elseif codePalette:match( '^palette verticale' ) then       -- C'est une palette verticale
wikiTable:insert( _paletteInconnue( i ) )
+
wikiTable:insert( 1, codePalette:sub( 18 ) )
elseif codePalette:match( '^palette verticale' ) then  
+
elseif codePalette:match( '^palette avec paramètres' ) then -- C'est une palette nécessitant des paramètres nommés
-- C'est une palette verticale
+
wikiTable:insert( _paletteAvecParametres( i ) )
wikiTable:insert( 1, codePalette:sub( 18 ) .. '\n'  )
+
else
elseif codePalette:match( '^palette avec paramètres' ) then
+
wikiTable:insert( codePalette )
-- C'est une palette nécessitant des paramètres nommés
 
wikiTable:insert( _paletteAvecParametres( i ) )
 
else
 
wikiTable:insert( codePalette )
 
end
 
 
end
 
end
 
 
Ligne 75 : Ligne 71 :
 
end
 
end
 
 
if i == 1 or #wikiTable == 1 then
+
if i == 1 then
 
wikiTable:insert( _pasDePalette() )
 
wikiTable:insert( _pasDePalette() )
elseif i > maxPalette and parentArgs[i] and ( parentArgs[i] ~= '' or parentArgs[i+1] and parentArgs[i+1] ~= '' ) then
+
elseif i > maxPalette and parentArgs[i] and parentArgs[i] ~= '' then
 
wikiTable:insert( _tropDePalettes() )
 
wikiTable:insert( _tropDePalettes() )
 
end
 
end

Version du 29 août 2014 à 15:35

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

local Palette = { }

local function paletteAvecParametre( i, args )
	
end

function Palette.listePalette( frame )
	local args = frame.args
	local parentArgs = frame:getParent().args 
	
	local wikiTable = { '<div class="navbox_group" style="clear:both;">\n' }
	setmetatable( wikiTable, { __index = table } )   -- permet d'utiliser les fonctions de table comme des méthodes
	
	local maxPalette = tonumber( args.maxPalette ) or 4
	local categoriePaletteInconnue = '[[Catégorie:Modèle Palette - Palette inconnue]]'
	local categorieTropDePalette = '[[Catégorie:Modèle Palette - Page contenant trop de palettes]]'
	
	local categories = { }
	
	local function _erreur( texte, param, ... )
		if param then texte = texte:format( param, ... )
		end 
		return '<p><strong class="error">' .. texte .. '</strong></p>\n'
	end
	local function _pasDePalette()
		return _erreur( 'Erreur dans l’utilisation du [[Modèle:Palette]] : paramètre obligatoire absent.' )
	end
	
	local function _paletteInconnue( i )
		categories.paletteInconnue = categoriePaletteInconnue
		return _erreur( 'Erreur : il n’existe pas de modèle « Palette %s »', parentArgs[i] )
	end
	
	local function _paletteAvecParametres( i )
		local argsPalette = { }
		for n, v in pairs( parentArgs ) do
			if not tonumber(n) then
				argsPalette[n] = v 
				if n:match( i .. '$' ) then
					argsPalette[ n:sub(0 - #tostring(i) ) ] = v
				elseif not argsPalette[n] then
					argsPalette[n] = v					
				end
			end
		end
		return frame:expandTemplate{ title = 'Palette ' .. parentArgs[i], args = argsPalette }
	end
	
	local function _tropDePalettes()
		categories.tropDePalette = categorieTropDePalette
		return _erreur( 'Erreur dans le [[Modèle:Palette]] : trop de palettes (maximum : %s)', maxPalette )
	end 
	
	local i = 1
	
	while parentArgs[i] and parentArgs[i] ~= '' and i <= maxPalette  do
		local codePalette = args[i]:gsub( '<div class="navbox_group"', '<div' )  
			-- une ancre ^ pourra être ajoutée pour gagner en performance lorsque le modèle palette ne commencera plus par {{clr}}
			
		if codePalette:match( '^%[%[:Modèle:' ) then                  -- La palette n'existe pas
			wikiTable:insert( _paletteInconnue( i ) )
		elseif codePalette:match( '^palette verticale' ) then        -- C'est une palette verticale
			wikiTable:insert( 1, codePalette:sub( 18 ) )
		elseif codePalette:match( '^palette avec paramètres' ) then  -- C'est une palette nécessitant des paramètres nommés
			wikiTable:insert( _paletteAvecParametres( i ) )
		else
			wikiTable:insert( codePalette )
		end
		
		i = i + 1
	end
		
	if i == 1 then
		wikiTable:insert( _pasDePalette() )
	elseif i > maxPalette and parentArgs[i] and parentArgs[i] ~= '' then
		wikiTable:insert( _tropDePalettes() )
	end
	
	wikiTable:insert( '</div>' )
	
	for i, v in pairs( categories ) do
		wikiTable:insert( v )
	end
	
	return wikiTable:concat()
end


return Palette