Module:Palette : Différence entre versions
(bug) |
(bugs) |
||
| Ligne 23 : | Ligne 23 : | ||
end | end | ||
local function _pasDePalette() | local function _pasDePalette() | ||
| − | return erreur( 'Erreur dans l’utilisation du [[Modèle:Palette]] : | + | return erreur( 'Erreur dans l’utilisation du [[Modèle:Palette]] : paramètre obligatoire absent.' ) |
end | end | ||
| Ligne 46 : | Ligne 46 : | ||
local i = 1 | local i = 1 | ||
| − | while | + | while parentArgs[i] and i <= maxPalette do |
| − | |||
| − | |||
if parentArgs[i] ~= '' then | if parentArgs[i] ~= '' then | ||
| − | if | + | local codePalette = args[i] |
| + | if codePalette:match( '^%[%[:Modèle:' ) then | ||
-- La palette n'existe pas | -- La palette n'existe pas | ||
wikiTable:insert( _paletteInconnue( parentArgs[i] ) ) | wikiTable:insert( _paletteInconnue( parentArgs[i] ) ) | ||
| − | elseif | + | elseif codePalette:match( '^palette verticale' ) then |
-- C'est une palette verticale | -- C'est une palette verticale | ||
| − | wikiTable:insert( 1, codePalette:sub( | + | wikiTable:insert( 1, codePalette:sub( 18 ) .. '\n' ) |
| − | elseif | + | elseif codePalette:match( '^palette avec paramètres' ) then |
-- C'est une palette nécessitant des paramètres nommés | -- C'est une palette nécessitant des paramètres nommés | ||
wikiTable:insert( _paletteAvecParametres( i ) ) | wikiTable:insert( _paletteAvecParametres( i ) ) | ||
else | else | ||
| − | wikiTable:insert( codePalette | + | wikiTable:insert( codePalette ) |
end | end | ||
end | end | ||
| Ligne 67 : | Ligne 66 : | ||
i = i + 1 | i = i + 1 | ||
end | end | ||
| − | + | ||
| − | + | if i == 1 or #wikiTable == 1 then | |
| − | |||
| − | if i == 1 then | ||
wikiTable:insert( _pasDePalette() ) | wikiTable:insert( _pasDePalette() ) | ||
| − | elseif i > maxPalette and | + | elseif i > maxPalette and parentArgs[i] and ( parentArgs[i] ~= '' or parentArgs[i+1] and parentArgs[i+1] ~= '' ) then |
wikiTable:insert( _tropDePalettes() ) | wikiTable:insert( _tropDePalettes() ) | ||
end | end | ||
| + | |||
| + | wikiTable:insert( '</div>\n' ) | ||
for i, v in pairs( categories ) do | for i, v in pairs( categories ) do | ||
Version du 29 août 2014 à 07:13
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 parentArgs[i] and i <= maxPalette do
if parentArgs[i] ~= '' then
local codePalette = args[i]
if codePalette:match( '^%[%[:Modèle:' ) then
-- La palette n'existe pas
wikiTable:insert( _paletteInconnue( parentArgs[i] ) )
elseif codePalette:match( '^palette verticale' ) then
-- C'est une palette verticale
wikiTable:insert( 1, codePalette:sub( 18 ) .. '\n' )
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
end
i = i + 1
end
if i == 1 or #wikiTable == 1 then
wikiTable:insert( _pasDePalette() )
elseif i > maxPalette and parentArgs[i] and ( parentArgs[i] ~= '' or parentArgs[i+1] and parentArgs[i+1] ~= '' ) then
wikiTable:insert( _tropDePalettes() )
end
wikiTable:insert( '</div>\n' )
for i, v in pairs( categories ) do
wikiTable:insert( v )
end
return wikiTable:concat()
end
return Palette
