Module:Palette

De Lagny-sur-Marne Wiki
Révision datée du 29 août 2014 à 06:07 par Zebulon84 (discussion) (Nouvelle page : local Palette = { } local function paletteAvecParametre( i, args ) end function Palette.listePalette( frame ) local args = frame.args local parentArgs = frame.getParent().ar...)
(diff) ← Version précédente | Voir la version actuelle (diff) | Version suivante → (diff)
Aller à : navigation, rechercher

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 } )
	
	local maxPalette = 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 class="error">' .. texte .. '</p>\n'
	end
	local function _pasDePalette()
		return erreur( 'Erreur dans l’utilisation du [[Modèle:Palette]] :  paramètre obligatoire absent.' )
	end
	
	local function _paletteInconnue( nomPalette )
		categories.paletteInconnue = categoriePaletteInconnue
		return erreur( 'la palette [[Modèle:Palette %s|]] n’existe pas', parentArgs[i] )
	end
	
	local function _paletteAvecParametres( i )
		local nocat = parentArgs.nocat
		parentArgs.nocat = parentArgs[ 'nocat' .. i ]
		local resutl = frame:expandTemplate{ title = 'Palette ' .. args[i], args = parentArgs }
		parentArgs.nocat = nocat
		return resutl
	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 i <= maxPalette and parentArgs[i] do
		local codePalette = args[i]
		local testCodePalette = codePalette:sub( 1, 9 )
		
		if parentArgs[i] ~= '' then
			if testCodePalette == '[[:Modèle' then 
				-- La palette n'existe pas
				wikiTable:insert( _paletteInconnue( parentArgs[i] ) )
			elseif testCodePalette == 'verticale' then 
				-- C'est une palette verticale
				wikiTable:insert( 1, codePalette:sub( 11 ) .. '\n'  )
			elseif testCodePalette == 'paramètre' then
				-- C'est une palette nécessitant des paramètres nommés
				wikiTable:insert( _paletteAvecParametres( i ) )
			else
				wikiTable:insert( codePalette .. '\n' )
			end
		end
		
		i = i + 1
	end
	
	wikiTable:insert( '</div>' )
	
	if i == 1 then
		wikiTable:insert( _pasDePalette() )
	elseif i > maxPalette and args[i] and ( args[i] ~= '' or args[i+1] and args[i+1] ~= '' ) then
		wikiTable:insert( _tropDePalettes() )
	end
	
	for i, v in pairs( categories ) do
		wikiTable:insert( v )
	end
	
	return wikiTable:concat()
end


return Palette