Mô đun:Photo montage

-- thực hiện [[bản mẫu:photomontage]]local p = {} local function isnotempty(s)	return s and s:match( '^%s*(.-)%s*$' ) ~= ''endlocal function photomontage( frame )	local tracking = ''	local args = frame:getParent().args	local size = tonumber(args['size'] or '200') or 200	local border = tonumber(args['border'] or '1') or 1	local spacing = tonumber(args['spacing'] or '1') or 1	local color = args['color'] or 'black'	local color_border = args['color_border'] or 'black'	local position = (args['position'] or ''):lower()	local caption = args['text'] or ''	local text_background = isnotempty(args['text_background']) and args['text_background'] or '#F8F8FF'	local foot_montage = args['foot_montage'] or ''	local lastnum = nil	local rownum = nil	local floatstyle = nil	if( position == 'left' or position == 'right' or position == 'none') then		floatstyle = 'float:' .. position		tracking = tracking .. '[[Thể loại:Trang sử dụng dựng phim ảnh không căn giữa|' .. position .. ']]'	else		floatstyle = 'margin-left: auto; margin-right: auto;'	end	if isnotempty(foot_montage) then		local div = mw.html.create('div')		div:css('font-size', '95%')			:wikitext(foot_montage)		foot_montage = '\n' .. tostring(div)	end	local lettertonumber = { 		a = '01', b = '02',	c = '03', d = '04',	e = '05', f = '06',	g = '07',		h = '08', i = '09',	j = '10', k = '11',	l = '12', m = '13',	n = '14',		o = '15', p = '16',	q = '17', r = '18', s = '19', t = '20', u = '21',		v = '22', w = '23', x = '26', y = '27', z = '28' }	local letters = {		'a', 'b', 'c', 'd', 'e', 'f', 'g', 'h', 'i', 'j', 'k', 'l', 'm',		'n', 'o', 'p', 'q', 'r', 's', 't', 'u', 'v', 'w', 'x', 'y', 'z'		}	-- find all the nonempty photo numbers	local photos = {}	local photocount = 0	for k, v in pairs( args ) do		local i = tonumber(tostring(k):match( '^%s*photo([%d]+)[a-z]%s*$' ) or '0')		if( i > 0 and isnotempty(v) ) then			local c = lettertonumber[tostring(k):match( '^%s*photo[%d]+([a-z])%s*$' )]			table.insert( photos, tonumber(i .. '.' .. c ) )			photocount = photocount + 1		end	end	-- sort the photo numbers	table.sort(photos)		-- compute the number of the photos in each row	local count = {}	lastnum = -1	rownum = 0	for k=1,photocount do		local num = math.floor(photos[k])		if(num == lastnum) then			count[rownum] = count[rownum] + 1		else			rownum = rownum + 1			count[rownum] = 1		end		lastnum = num	end	if(photocount > 0) then	-- start table	root = mw.html.create('div')	root		:css('background-color', color)		:css('border-collapse', 'collapse')		:css('border', border .. 'px solid ' .. color_border)		:css('width', size .. 'px')		:css('display', 'table')		:cssText(floatstyle)	local innercell = root		:tag('div'):css('display', 'table-row')			:tag('div'):css('display', 'table-cell')				:css('border-top', 0)				:css('padding', spacing .. 'px 0 0 ' .. spacing .. 'px') 	-- loop over the photos	lastnum = -1	rownum = 0	local row	for k=1,photocount do		local num = math.floor(photos[k])		local c = letters[math.floor(0.5 + 100*(photos[k] - num))]		if(num ~= lastnum) then			rownum = rownum + 1			row = innercell				:tag('div'):css('display', 'table')					:css('background-color', color)					:css('border-collapse', 'collapse')						:tag('div'):css('display', 'table-row')		end		local altstr = (args['alt' .. num .. c] or '') ~= '' and			'|alt=' .. args['alt' .. num .. c] or ''		local image = string.format( '[[Tập tin:%s%s|%dpx]]',			args['photo' .. num .. c], altstr,			(size - spacing*(count[rownum] - 1))/count[rownum] )		row			:tag('div'):css('display', 'table-cell')				:css('border-top', 0)				:css('padding', '0 ' .. spacing .. 'px ' .. spacing .. 'px ' .. '0')				:wikitext(image)		lastnum = num	end	if isnotempty(caption) then		root			:tag('div'):css('display', 'table-row')				:tag('div'):css('display', 'table-cell')					:addClass('thumbcaption')					:css('background-color', text_background)					:css('font-size', '95%')					:wikitext(caption)	end	-- end table	end	if photocount < 2 then		tracking = tracking .. '[[Thể loại:Trang sử dụng dựng phim ảnh có một hoặc ít hình ảnh|' .. photocount ..']]'	end    return tostring(root or '') .. foot_montage .. trackingendfunction p.montage( frame )    return photomontage( frame )end return p