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

-- http://lua-users.org/wiki/StringTrim
local function trim( s )
	return s:match( '^()%s*$' ) and '' or s:match( '^%s*(.*%S)' )
end

local p = {}

function p.lisPalet( frame )
	local args = frame.args

	local parentArgs = {}
	for k, v in pairs( frame:getParent().args ) do
		-- effectue un trim sur les paramètres non nommés
		if type( k ) == 'number' then
			v = trim( v )
		end
		parentArgs[ k ] = v
	end

	local wikiTable = { '<div class="navbox-container" style="clear:both;">\n' }
	setmetatable( wikiTable, { __index = table } )   -- permet d'utiliser les fonctions de table comme des méthodes
	local paletVetikal= ''

	local maxPalet = tonumber( args.maxPalet ) or 4
	local kategoriPaletEnkoni = '[[Kategori:Modèl Palèt - Palèt enkoni]]'
	local kategoriTwopPalet = '[[Kategori:Modèl Palèt - Paj ki gen twòp palèt]]'
	local kategoriPaletDoub = '[[Kategori:Modèl Palèt - Palèt ki afiche doub ]]'

	local kategori = {}

	local function _erreur( texte, param, ... )
		if param then texte = texte:format( param, ... )
		end
		local sep = #wikiTable > 1 and '<hr>' or ''
		return sep .. '<p><strong class="error" style="padding-left:.5em;">' .. texte .. '</strong></p>\n'
	end
	local function _paGenPalet()
		return _erreur( 'Erreur nan itilizasyon [[Modèl:Palèt]] : paramèt obligatwa absan.' )
	end

	local function _paletEnkoni( i )
		kategori.paletEnkoni = kategoriPaletEnkoni
		local nonPalet = parentArgs[i]
		return _erreur( 'Erreur : modèl {{[[Modèl:Palèt %s|Palèt %s]]}} pa egzizte [[Èd:Palèt navigasyon|(èd)]]', nonPalet, nonPalet )
	end

	local function _paletDoub ( i )
		kategori.paletDoub = kategoriPaletDoub
		return "" -- inutile d'afficher une erreur visible pour ce cas puisque la mise en page n'est pas cassée
	end

	local function _paletAvekParamet( i )
		local argsPalet = {}
		for n, v in pairs( parentArgs ) do
			if not tonumber(n) then
				if n:match( ' ' .. i .. '$' ) then
					argsPalet[ n:sub(1, n:len() - 1 - tostring(i):len() ) ] = v
				elseif n == 'nocat' .. i then
					argsPalet.nocat = v
				elseif not argsPalet[n] and n ~= 'stylecorps' then
					argsPalet[n] = v
				end
			end
		end
		return frame:expandTemplate{ title = 'Palèt ' .. parentArgs[i], args = argsPalet }
	end

	local function _twopPalet()
		kategori.twopPalet = kategoriTwopPalet
		return _erreur( 'Erreur nan [[Modèl:Palèt]] : twòp palèt (maximum : %s)', maxPalet )
	end


local boite = parentArgs['titre boîte déroulante'] or parentArgs['titre boite déroulante']
	if boite then
		wikiTable[1] = '<div class="NavFrame navbox-container" style="clear:both;" >\n'
			.. '<div class="NavHead" style="text-align:center; height:1.6em; background-color:'
			.. ( parentArgs.couleurFondT or '#CCF' )
			.. '; color:' .. ( parentArgs.couleurTexteT or 'black' ) .. ';">'
			.. boite
			.. '</div>\n<div class="NavContent" style="margin-top:2px;">\n'
	end
	local i = 1
	local paletValid = {}

	while parentArgs[i] and i <= maxPalet do
		if parentArgs[i] ~= '' then
			for _, j in ipairs( paletValid ) do
				if args[i] == args[j] and not args[i]:match('^palèt ') then
					wikiTable:insert ( _paletDoub(i))
				end
			end
			table.insert( paletValid, i )
			if parentArgs[i]:match( '^<' ) then
				wikiTable:insert( parentArgs[i] )
			elseif parentArgs[i]:match( '^{|' ) then
				wikiTable:insert( '\n' )
				wikiTable:insert( parentArgs[i] )
			else
				local codePalet = args[i]
				if codePalet:match( '^%[%[:Modèl:' ) then                  -- La palette n'existe pas
					wikiTable:insert( _paletEnkoni( i ) )
					table.remove( paletValid )
				elseif codePalet:match( '^palèt avèk paramèt' ) then  -- C'est une palette nécessitant des paramètres nommés
					wikiTable:insert( _paletAvekParamet( i ) )
				elseif codePalet:match( '^palèt vètikal avèk paramèt' ) then  -- C'est une palette verticale nécessitant des paramètres nommés
					paletVetikal = paletVetikal .. ( _paletAvekParamet( i ) )
				elseif codePalet:match( '^palèt vètikal' ) then        -- C'est une palette verticale
					paletVetikal = paletVetikal .. codePalet:sub( 18 )
				else
					wikiTable:insert( (codePalet:gsub( '^<div class="navbox%-container"', '<div' ) ) )
				end
			end
		end
		i = i + 1
	end

	if i == 1 then
		wikiTable:insert( _paGenPalet() )
	elseif i > maxPalet and parentArgs[i] and parentArgs[i] ~= '' then
		wikiTable:insert( _twopPalet() )
	end
	if #wikiTable == 1 then
		wikiTable[1] = paletVetikal
	else
		if boite then
			wikiTable:insert( '</div>' )
		end
		wikiTable:insert( '</div>' .. paletVetikal )
	end
	if mw.title.getCurrentTitle().namespace == 0 then
		for i, v in pairs( kategori ) do
			wikiTable:insert( v )
		end
	end

	return wikiTable:concat()
end

return p