Module:Infobox

local Infobox = {}

function Infobox:new( args )

   --Object initialisation
   local object = {
       text = "",
       title = mw.title.getCurrentTitle()
   }
   setmetatable(object, {
       __index = Infobox,
       __tostring = function( self ) return self:tostring() end
   })

   --Open main div

local str = '

'

   return object

end

function Infobox:addTitle( args )

local str = '

' if args.text and args.text ~= then str = str .. args.text else str = str .. self.title.text end self.text = self.text .. str .. '

'

end

function Infobox:openTable( args )

   local str = '<table'
   if args.type then 
       str = str .. ' class="' .. args.type .. '"'
   end
   str = str .. '><caption'
   if class then
       str = str .. ' class="' .. args.class .. '"'
   end

   --Style of the caption
   local style = {}
   if args.border then
       style['border-color'] = args.border
   end
   if args.background then
       style['background'] = args.background
       if args.color then
           style['color'] = args.color
       end
   end
   if style ~= {} then
       str = str .. ' style="' .. formatStyle( style ) .. '"'
   end

   str = str .. '>'
   if args.text and args.text ~=  then
       str = str .. args.text
   else
       str = str .. 'Données clés'
   end

self.text = self.text .. str .. '' end function Infobox:closeTable( args ) self.text = self.text .. ''

end

function Infobox:addMixedRow( args )

   if not args.value or args.value ==  then
       return
   end
   if not args.label then

self.text = self.text .. 'Le paramètre label n\'est pas renseigné.'

   end

local str = '' .. args.label .. '' .. args.value .. ''

end

function Infobox:addImages( args )

   --Get images
   local images = {}
   if not args.images then
       return
   end
   for i,conf in pairs( args.images ) do
       if conf.name and conf.name ~=  then
           table.insert( images, conf )
       end
   end

   if images == {} then
       return --Pas d'images
   end
   local imagesCount = table.maxn( images )

   local str = 
   if imagesCount == 2 then

str = '

'

   end

   for i,image in pairs( images ) do

str = str .. '

Fichier:' .. image.name .. '

alt=Description de ' if args.legend then str = str .. 'cette image, également commentée ci-après' else str = str .. 'l\'image ' .. image.name end end str = str .. '

'

   end

   if imagesCount == 2 then

str = str .. '

'

   end

   if args.legend then

str = str .. '

' .. args.legend .. '

'

   end
   
   self.text = self.text .. str

end

function Infobox:tostring()

return self.text .. '

'

end

--Create a style property value from an array CSS property = CSS value function formatStyle( args )

   local elems = {}
   for key, val in pairs( args ) do
       elems.add( key .. ':' .. val )
   end
   return table.concat( elems, '; ' )

end

local p = {} function p.new( args )

   return Infobox:new( args )

end function p.test()

   local a = Infobox:new( {} )
   a:addTitle( {} )
   a:addImages( {
       images = {
           {
               name = 'Pellicule.jpg'
           },
           {
               name = 'Pellicule.jpg'
           }
       },
       legend = 'legend'
   } )
   a:openTable( {} )
   a:addMixedRow( {
       label = 'Test',
       value = 'test'
   } )
   a:closeTable( {} )
   return tostring(a)

end return p