Module:Infobox

Documentation for this module may be created at Module:Infobox/doc

local p = {}
function p.infobox( f )
	local args = require( 'Module:ProcessArgs' ).merge( true )
	local titleObject = mw.title.getCurrentTitle()
	local title = args.title or titleObject.baseText
	local template = f:getParent():getTitle():lower():gsub( 'template:', '' )
	local headerArea = ''
	
	local json = {
		images = {},
		rows = {}
	}
	
	local imageArea = args.imagearea
	if not imageArea and imageArea ~= 'none' then
		local images = {}
		local defaultImageSize = args.defaultimagesize or '150px'
		local defaultImageClass = args.defaultimageclass
		args.image1 = args.image1 or args.image or 'title'
		args.image1size = args.image1size or args.imagesize
		args.image1class = args.image1class or args.imageclass
		args.group1 = args.group1 or args.group
		args.group1size = args.group1size or args.groupsize
		args.group1class = args.group1class or args.groupclass
		
		local imgCount = {}
		local invImgCount = {}
		local groupCount = {}
		local groupImgList = {}
		for k, v in pairs( args ) do
			if type( k ) == 'string' then
				local image, num = k:match( '^(image)(%d+)$' )
				local invImage, invNum = k:match( '^(invimage)(%d+)$' )
				local group, groupNum = k:match( '^(group)(%d+)$' )
				local groupImg, groupImgNum = k:match( '^(%d+)-(%d+)$' )
				if v:lower() ~= 'none' then
					if image then
						table.insert( imgCount, tonumber( num ) )
					elseif invImage then
						table.insert( invImgCount, tonumber( invNum ) )
					elseif group then
						table.insert( groupCount, tonumber( groupNum ) )
						if not groupImgList['group' .. groupNum] then
							groupImgList['group' .. groupNum] = {}
						end
					elseif groupImg then
						if not groupImgList['group' .. groupImg] then
							groupImgList['group' .. groupImg] = {}
						end
						table.insert( groupImgList['group' .. groupImg], tonumber( groupImgNum ) )
					end
				end
			end
		end
		
		local animate
		if #groupCount > 0 then
			table.sort( groupCount )
			local tabber = {}
			for k, v in ipairs( groupCount ) do
				local group = args['group' .. v]
				local groupSize = args['group' .. v .. 'size'] or defaultImageSize
				local groupClass = args['group' .. v .. 'class'] or defaultImageClass
				local groupImages = {}
				
				table.sort( groupImgList['group' .. v] )
				for _, w in ipairs( groupImgList['group' .. v] ) do
					local image = args[v .. '-' .. w]
					local size = args[v .. '-' .. w .. 'size'] or groupSize
					local class = args[v .. '-' .. w .. 'class'] or groupClass
					
					if string.match( image, 'UNIQ%-%-gallery%-' ) then
						image = image
					elseif image:match( ';' ) then
						if not animate then
							animate = require( 'Module:Animate' ).animate
						end
						image = animate{ image, size, class = class }
					else
						json.images[#json.images + 1] = image
						local altText = image .. ': Infobox image for ' .. title .. ' the ' .. template .. '.'
						image = '[[File:' .. image .. '|' .. size .. '|class=' .. ( class or '' ) .. '|alt=' .. altText .. ']]'
					end
					
					table.insert( groupImages, '<div>' .. image .. '</div>' )
				end
				
				table.insert( tabber, '|-|' .. group .. '=\n' .. table.concat( groupImages, '\n' ) )
			end
			table.insert( images, '<div>' .. f:extensionTag( 'tabber', table.concat( tabber, '\n' ) ) .. '</div>' )
		end
		
		table.sort( imgCount )
		for k, v in ipairs( imgCount ) do
			local image = args['image' .. v]
			local size = args['image' .. v .. 'size'] or defaultImageSize
			local class = args['image' .. v .. 'class'] or defaultImageClass
			
			if image == 'title' then
				local imageTitle = mw.title.new( 'Media:' .. title .. '.png' )
				if #groupCount == 0 and imageTitle and imageTitle.exists then
					json.images[#json.images + 1] = title .. '.png'
					local altText = title .. '.png: Infobox image for ' .. title .. ' the ' .. template .. '.'
					image = '[[File:' .. title .. '.png|' .. size .. '|class=' .. ( class or '' ) .. '|alt=' .. altText .. ']]'
				else
					image = ''
				end
			elseif string.match( image, 'UNIQ%-%-gallery%-' ) then
				image = image
			--[[elseif image:match( ';' ) then
				if not animate then
					animate = require( 'Module:Animate' ).animate
				end
				image = animate{ image, size, class = class }--]]
			else
				json.images[#json.images + 1] = image
				local altText = image .. ': Infobox image for ' .. title .. ' the ' .. template .. '.'
				image = '[[File:' .. image .. '|' .. size .. '|class=' .. ( class or '' ) .. '|alt=' .. altText .. ']]'
			end
			
			table.insert( images, '<div>' .. image .. '</div>' )
		end
		
		images = table.concat( images, '\n' )
		
		if images ~= '' then
			imageArea = images
		else
			imageArea = 'none'
		end
	end
	if imageArea and imageArea ~= 'none' then
		imageArea = '<div class="infobox-imagearea animated-container">' .. imageArea .. '</div>'
	else
		local groupArea = args.grouparea
		if groupArea then
			imageArea = groupArea
		else
			imageArea = ''
		end
	end
	
	local extraText = args.extratext
	
	if extraText and extraText ~= 'none' then
		json.extratext = extraText
		extraText = '<div class="infobox-extratext">'.. extraText ..'</div>'
	else
		extraText = ''
	end
	
	headerArea = imageArea.. '' ..extraText
	local footer = args.footer
	if footer then
		json.footer = footer
		footer = '| class="infobox-footer" colspan="2" | ' .. footer
	end
	
	json.title = title
	--[[local repl = function( label, field )
		json.rows[#json.rows + 1] = {
			label = mw.text.jsonDecode( label:gsub( '\n', '\\n' ) ),
			field = mw.text.jsonDecode( field:gsub( '\n', '\\n' ) )
		}
		return ''
	end
	args.rows = string.gsub( args.rows or '', '<code class="history%-json">{"label": (".-"), "field": (".-")}</code>\n', repl )--]]
	
	local html = {
		'<div class="infobox">',
			'<div class="tfpwiki-header infobox-title">' .. title .. '</div>',
			headerArea,
			'{| class="infobox-rows" cellspacing="1" cellpadding="4"',
			'|-',
			args.rows or '',
			footer or '',
			'|}',
		'</div>',
		f:callParserFunction( '#tag', { 'pre', class = 'history-json noexcerpt navigation-not-searchable',
			mw.text.jsonEncode( json, mw.text.JSON_PRETTY )
		} )
	}
	
	return table.concat( html, '\n' )
end

return p