Module"Clade/gallery

local p = {}

-- display a gallery of cladograms using floating div elements

function p.gallery(frame)

local params = mw.getCurrentFrame():getParent().args

   local outerBorders = false
   if params['caption'] or params['footer'] then outerBorders = true end

-- the gallery container local gallery = mw.html.create('div'):addClass('clade-gallery'):css('float',params['align'])

-- main caption for gallery if there is one

if params['main-caption'] then gallery:tag('div'):wikitext(params['main-caption']):addClass('main-caption') end

-- a gallery of floating divs with content

   local shading = 

if params['shading'] then shading = 'wikitable' end -- class for shading

local vertical = -- defaults to horizontal if params['vertical'] then vertical = 'vertical' end -- class for vertical display

local styleAll = params['style'] or -- style for all elements

   local mainBorders = 
   local elementBorders = 
   if 	not params['main-borders'] or params['main-borders'] == "no" then mainBorders = 'no-border' end
   if 	params['borders'] == "no" then elementBorders = 'no-border' end
   	
   -- the gallery	contents
   local content = gallery:tag('div'):addClass('main-content')
                                     :addClass(mainBorders)
                                     --:css('height',params['height'])  
  	local i=0

while i<15 do i=i+1 local caption = params['caption'..i] --or local header = params['header'..i] --or local footer = params['footer'..i] --or local style = params['style'..i] or styleAll local headerstyle = params['headerstyle'..i] or params['headerstyle'] local width = params['width'..i] or params['width']

-- for each gallery element containing a cladogram

       if params['cladogram'..i] then

local cladogramTable = content:tag('table') :addClass(elementBorders) :addClass(shading):addClass('gallery-element') :addClass(vertical) :css('width',width) :css('height',params['height']) :cssText(style)

           if caption then 

cladogramTable:tag('caption'):wikitext(caption):addClass('caption') end if header then local row = cladogramTable:tag('tr'):addClass('header') row:tag('th'):wikitext(header) :cssText(headerstyle) end -- if params['cladogram'..i] already checked local row = cladogramTable:tag('tr') row:tag('td') :wikitext("\n" .. params['cladogram'..i]) :addClass('cladogram') --:css("padding", "20px") -- :css('width',params['cladogram-width']) --:css('height',params['cladogram-height']) :css('height',params['height'])

if footer then local row = cladogramTable:tag('tr') row:tag('td'):wikitext(footer):addClass('footer'):addClass(shading) end

--[[DIV VERSION - different browsers behave differently -- the div containing each element in the gallery local div = content:tag('div'):addClass('gallery-element'):addClass(direction) :css('width',params['width']) :css('height',params['height'])

-- the caption, header, content and footer for each element if caption then div:tag('div'):wikitext(caption):addClass('caption'):addClass(shading) end

if header then div:tag('div'):wikitext(header):addClass('header'):addClass(shading) end

div:tag('div'):wikitext(params['cladogram'..i]):addClass('cladogram'):addClass(shading) :css('width',params['cladogram-width']) :css('height',params['cladogram-height'])

if footer then div:tag('div'):wikitext(footer):addClass('footer'):addClass(shading) end END DIV VERSION--]] else --break -- either break or comment out to allow gaps in sequence end end

-- main footer if params['main-footer'] then gallery:tag('div'):wikitext(params['main-footer']):addClass('main-footer'):addClass(noborder) end -- TemplateStyles file local src = "Template:Clade gallery/styles.css"

return p.templateStyle( frame, src ) .. tostring(gallery) end function p.templateStyle( frame, src )

  return frame:extensionTag( 'templatestyles', , { src = src } );

end

-- this must be at end return p