Module:Infobox : Différence entre versions
(test option lien web) |
|||
Ligne 135 : | Ligne 135 : | ||
self.text = self.text .. '<div class="NavFrame" title="[Afficher]/[Masquer]" style="border: none; padding: 0;"><div class="NavContent" style="display: none; text-align: left;">' .. args.value ..'</div></div></td></tr>' | self.text = self.text .. '<div class="NavFrame" title="[Afficher]/[Masquer]" style="border: none; padding: 0;"><div class="NavContent" style="display: none; text-align: left;">' .. args.value ..'</div></div></td></tr>' | ||
elseif args.weblink and args.weblink ~= '' then | elseif args.weblink and args.weblink ~= '' then | ||
− | self.text = self.text .. '<span class="reflink plainlinksneverexpand">' .. args.weblink .. args.value .. '</span></td></tr>' | + | self.text = self.text .. '<a href="' .. args.weblink .. args.value '">' .. args.value .. '</a></td></tr>' |
+ | -- self.text = self.text .. '<span class="reflink plainlinksneverexpand">' .. args.weblink .. args.value .. '</span></td></tr>' | ||
else | else | ||
self.text = self.text .. args.value .. '</td></tr>' -- affichage normal de la valeur | self.text = self.text .. args.value .. '</td></tr>' -- affichage normal de la valeur |
Version du 31 octobre 2013 à 07:07
La documentation pour ce module peut être créée à Module:Infobox/doc
local Infobox = {} function Infobox:new( args ) --Object initialisation local object = { text = "", isPart = false } setmetatable(object, { __index = Infobox, __tostring = function( self ) return self:tostring() end }) if args.isPart then object.isPart = true end --Open main div if object.isPart then return object --On retourne si on construit seulement un module end local str = '<div class="infobox_v3 ' if args.class then str = str .. args.class end str = str ..'"' if args.width then str = str .. ' style="width: ' .. args.width .. 'em"' end object.text = str .. '>' return object end function Infobox:addText( args ) if args.text then self.text = self.text .. args.text end end function Infobox:addTitle( args ) local str = '<p class="entete' if args.icon then str = str .. ' icon ' .. args.icon end if args.class then str = str .. ' ' .. args.class end str = str .. '"' if args.background then local style = {} style['background-color'] = args.background if args['border-color'] then style['border-color'] = args['border-color'] else style['border-color'] = args.background end if args.color then style['color'] = args.color end str = str .. ' style="' .. formatStyle( style ) .. '"' end str = str .. '>' if args.text and args.text ~= '' then str = str .. args.text else str = str .. mw.title.getCurrentTitle().text end self.text = self.text .. str .. '</p>' end function Infobox:openTable( args ) local str = '<table' str = str .. '><caption' if args.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 next( 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 .. '</caption>' end function Infobox:closeTable( args ) self.text = self.text .. '</table>' end function Infobox:addMixedRow( args ) if not args.value or args.value == '' then if args.cat then self.text = self.text .. '[[Catégorie:' .. args.cat .. ']]'-- ajoute catégorie de maintenance end return end if not args.label then self.text = self.text .. '<tr><td class="error">Le paramètre label n\'est pas renseigné.</td></tr>' return end local str = '<tr><th scope="row"' if args.class then str = str .. ' class="' .. args.class .. '"' end local style = {} if args.width then style['width'] = args.width .. 'em' end if next( style ) then str = str .. ' style="' .. formatStyle( style ) .. '"' end self.text = self.text .. str .. '>' .. args.label .. '</th><td>' if args.hidden and args.hidden == 1 then -- option caché sélectionné: affichage de la valeur sera masqué self.text = self.text .. '<div class="NavFrame" title="[Afficher]/[Masquer]" style="border: none; padding: 0;"><div class="NavContent" style="display: none; text-align: left;">' .. args.value ..'</div></div></td></tr>' elseif args.weblink and args.weblink ~= '' then self.text = self.text .. '<a href="' .. args.weblink .. args.value '">' .. args.value .. '</a></td></tr>' -- self.text = self.text .. '<span class="reflink plainlinksneverexpand">' .. args.weblink .. args.value .. '</span></td></tr>' else self.text = self.text .. args.value .. '</td></tr>' -- affichage normal de la valeur end 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 not next( images ) then return --Pas d'images end local imagesCount = table.maxn( images ) local str = '' if imagesCount == 2 then str = '<div class="image2"' if args.background then str = str .. ' style="background: ' .. args.background .. ';"' end str = str .. '>' end for i,image in pairs( images ) do str = str .. '[[Fichier:' .. image.name .. '|thumb' if imagesCount == 1 then str = str .. '|center' end if image.upright then str = str .. '|upright=' .. image.upright else str = str .. '|upright=' .. ( 1 / imagesCount ) end if image.alt then str = str .. '|alt=' .. image.alt else str = str .. '|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 .. '</div>' end if args.legend then str = str .. '<p class="legend">' .. args.legend .. '</p>' end self.text = self.text .. str end function Infobox:tostring() if self.isPart then return self.text else return self.text .. '</div>' end 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 table.insert( elems, 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