Модуль:Palette

Документация

[просмотр | править | история | обновить]

Использование

Экспортируемые функции:

• listePalette(frame) – использует {{Palette}}.

Внешние модули и другие элементы, необходимые для работы этого модуля: нет.

Во избежание поломок страниц, использующих этот модуль, экспериментируйте в песочнице (создать) или песочнице для модулей.
Пожалуйста, добавляйте категории на подстраницу /doc. Подстраницы этого модуля.

local Palette = { }

function Palette.listePalette( frame )
	local args = frame.args
	local parentArgs = frame:getParent().args 
	
	local wikiTable = { '<div class="navbox-container" style="clear:both;">\n' }
	setmetatable( wikiTable, { __index = table } )   -- позволяет использовать табличные функции в качестве методов
	local palettesVerticales = ''
	
	local maxPalette = tonumber( args.maxPalette ) or 4
	local categoriePaletteInconnue = '[[Категория:Шаблон Palette - палета неизвестна]]'
	local categorieTropDePalette = '[[Категория:Шаблон Palette - слишком много палет]]'
	local categoriePaletteEnDouble = '[[Категория:Шаблон Palette - дублированная палета]]'
	
	local categories = { }
	
	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 _pasDePalette()
		return _erreur( 'Ошибка при использовании [[Шаблон:Palette]]: отсутствует обязательный параметр.' )
	end
	
	local function _paletteInconnue( i )
		categories.paletteInconnue = categoriePaletteInconnue
		local nomPalette = mw.text.trim( parentArgs[i] )
		return _erreur( 'Ошибка: не существует шаблона {{[[Шаблон:Palette %s|Palette %s]]}} [[w:Википедия:Шаблоны/Навигационные|(Справка)]]', nomPalette, nomPalette )
	end

	local function _paletteEnDouble ( i )
		categories.paletteEnDouble = categoriePaletteEnDouble
		return "" -- нет необходимости отображать видимую ошибку для этого случая, так как макет не сломан
	end
	
	local function _paletteAvecParametres( i )
		local argsPalette = { }
		for n, v in pairs( parentArgs ) do
			if not tonumber(n) then
				if n:match( ' ' .. i .. '$' ) then
					argsPalette[ n:sub(1, n:len() - 1 - tostring(i):len() ) ] = v
				elseif n == 'nocat' .. i then
					argsPalette.nocat = v
				elseif not argsPalette[n] and n ~= 'stylecorps' then
					argsPalette[n] = v					
				end
			end
		end
		return frame:expandTemplate{ title = 'Palette ' .. mw.text.trim(parentArgs[i]), args = argsPalette }
	end
	
	local function _tropDePalettes()
		categories.tropDePalette = categorieTropDePalette
		return _erreur( '[[Шаблон:Palette]] содержит ошибку: слишком много палет (максимум: %s)', maxPalette )
	end 
	
	
	local boite = parentArgs['выпадающий список заголовков'] -- 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 palettesValides = {}
	
	while parentArgs[i] and i <= maxPalette  do
		if parentArgs[i]:match( '%S' ) then
			for _, j in ipairs( palettesValides ) do
			    if args[i] == args[j] and not args[i]:match('^palette ') then
					wikiTable:insert ( _paletteEnDouble(i))
				end
			end
			table.insert( palettesValides, i )
			if parentArgs[i]:match( '<table class="navbox' ) or parentArgs[i]:match( '{| ?class="navbox' ) then
				wikiTable:insert( parentArgs[i] )
			else
				local codePalette = args[i]  
				local testCodePalette = codePalette:lower()
				if testCodePalette:match( '^%[%[:шаблон:' ) then                  -- Палета не существует
					wikiTable:insert( _paletteInconnue( i ) )
					table.remove( palettesValides )
				elseif testCodePalette:match( '^palette с параметрами' ) then  -- Это палета, требующая именованных параметров
					wikiTable:insert( _paletteAvecParametres( i ) )
				elseif testCodePalette:match( '^palette вертикальная с параметрами' ) then  -- Это вертикальная палета, требующая именованных параметров
					palettesVerticales = palettesVerticales .. ( _paletteAvecParametres( i ) )
				elseif testCodePalette:match( '^palette вертикальная' ) then        -- Это вертикальная палета
					palettesVerticales = palettesVerticales .. codePalette:sub( 18 )
				else
					wikiTable:insert( (codePalette:gsub( '^<div class="navbox%-container"', '<div' ) ) )
				end
			end
		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
	if #wikiTable == 1 then
		wikiTable[1] = palettesVerticales
	else
		if boite then
			wikiTable:insert( '</div>' )
		end
		wikiTable:insert( '</div>' .. palettesVerticales )
	end
	if mw.title.getCurrentTitle().namespace == 0 then
		for i, v in pairs( categories ) do
			wikiTable:insert( v )
		end
	end
	
	return wikiTable:concat()
end

return Palette