모듈:Infobox military conflict

require('strict')
local infoboxStyle = mw.loadData('Module:WPMILHIST Infobox style')
local templatestyles = 'Module:Infobox military conflict/styles.css'
local IMC = {}
IMC.__index = IMC
local param_ko = {
	'날짜' = 'date',
	'장소' = 'place',
	'좌표' = 'coordinates',
	'배경' = 'action',
	'상태' = 'status',
	'결과' = 'result',
	'영토' = 'territory',
	'전역상자' = 'campaignbox',
	'너비' = 'width',
	'분쟁' = 'conflict',
	'전체' = 'partof',
	'그림' = 'image',
	'그림2' = 'image2', -- kowiki-specific
	'그림크기' = 'image_size',
	'그림크기2' = 'image_size2', -- kowiki-specific
	'크기2' = 'image_size2', -- kowiki-specific
	'기본' = 'sidedefault',
	'대체설명' = 'alt',
	'대체설명2' = 'alt2', -- kowiki-specific
	'설명' = 'caption',
	'설명2' = 'caption2', -- kowiki-specific
	'교전국머리말' = 'combatants_header',
	'기타' = 'notes',
	-- = 'map_type',
	-- = 'map_relief',
	'지도크기' = 'map_size',
	-- = 'map_mark',
	-- = 'map_marksize',
	-- = 'map_label',
	'대체지도설명' = 'map_alt',
	'지도설명' = 'map_caption',
	'교전국1' = 'combatant1',
	'교전국2' = 'combatant2',
	'교전국3' = 'combatant3',
	'교전국4' = 'combatant4',
	'교전국5' = 'combatant5',
	'교전국1a' = 'combatant1a',
	'교전국2a' = 'combatant2a',
	'교전국3a' = 'combatant3a',
	'교전국4a' = 'combatant4a',
	'교전국5a' = 'combatant5a',
	'교전국1b' = 'combatant1b',
	'교전국2b' = 'combatant2b',
	'교전국3b' = 'combatant3b',
	'교전국4b' = 'combatant4b',
	'교전국5b' = 'combatant5b',
	'교전국1c' = 'combatant1c',
	'교전국2c' = 'combatant2c',
	'교전국3c' = 'combatant3c',
	'교전국4c' = 'combatant4c',
	'교전국5c' = 'combatant5c',
	'교전국1d' = 'combatant1d',
	'교전국2d' = 'combatant2d',
	'교전국3d' = 'combatant3d',
	'교전국4d' = 'combatant4d',
	'교전국5d' = 'combatant5d'
}
function IMC:renderPerCombatant(builder, headerText, prefix, suffix)
	prefix = prefix or 
	suffix = suffix or 
	local colspans = {}
	
	-- This may result in colspans1 getting set twice, but
	-- this is no big deal. The second set will be correct.
	local lastCombatant = 1
	
	for i = 1,self.combatants do
		if self.argsprefix .. i .. suffix then
			lastCombatant = i
		end
	end
	local jointText = self.argsprefix .. (self.combatants + 1) .. suffix
	
	if headerText and (colspans1 or jointText) then
		builder:tag('tr')
			:tag('th')
				:attr('colspan', self.combatants)
				:cssText(infoboxStyle.header_raw)
				:wikitext(headerText)
	end
	-- The only time colspans1 wouldn't be set is if no
	-- combatant has a field with the given prefix and suffix.
		-- Since each found argument set the colspan for the previous
		-- one, the final one wasn't set above, so set it now.
		builder = builder:tag('tr')
		for i = 1,self.combatants do
			-- At this point, colspansi will be set for i=1 unconditionally, and for
			-- any other value of i where self.argsprefix .. i .. suffix is set.
			if colspansi then
				builder:tag('td')
					-- don't bother emitting colspan="1"
					:attr('colspan', colspansi ~= 1 and colspansi or nil)
					:css('width', math.floor(100 / self.combatants * colspansi + 0.5) .. '%')
					-- no border on the right of the rightmost column
					:css('border-right', i ~= lastCombatant and infoboxStyle.internal_border or nil)
					-- no padding on the left of the leftmost column
					:css('padding-left', i ~= 1 and '0.25em' or nil)
					-- don't show the border if we're directly under a header
					:css('border-top', not headerText and infoboxStyle.internal_border or nil)
					:newline()
					:wikitext(self.argsprefix .. i .. suffix)
			end
		end
	end
	if jointText then
		builder:tag('tr')
			:tag('td')
				:attr('colspan', self.combatants)
				:css('text-align', 'center')
				-- don't show the border if we're directly under a header
				:css('border-top', (not headerText or colspans1) and infoboxStyle.internal_border or nil)
				:newline()
				:wikitext(jointText)
	end
end
function IMC:renderHeaderTable(builder)
	builder = builder:tag('table')
		:css('width', '100%')
		:css('margin', 0)
		:css('padding', 0)
		:css('border', 0)
		:css('display', 'inline-table')
	if self.args.date then
		builder:tag('tr')
			:tag('th')
				:css('padding-right', '1em')
				:wikitext('날짜')
			:done()
			:tag('td')
				:wikitext(self.args.date)
	end
	builder = builder:tag('tr')
		:tag('th')
			:css('padding-right', '1em')
			:wikitext('장소')
		:done()
		:tag('td')
			:tag('div')
				:addClass('location')
				:wikitext(self.args.place or ) -- hack so that people who don't know Lua know that this parameter is required
			:done()
	if self.args.coordinates then
		builder:wikitext(self.args.coordinates)
	end
	builder = builder:done():done()
	-- only for "Putsch"
if self.args.action then
		builder:tag('tr')
			:tag('th')
				:css('padding-right', '1em')
				:wikitext(self.args.action and '배경')
			:done()
			:tag('td')
				:wikitext(self.args.action)
	end
	if self.args.status or self.args.result then
		builder:tag('tr')
			:tag('th')
				:css('padding-right', '1em')
				:wikitext(self.args.status and '상태' or '결과')
			:done()
			:tag('td')
				:addClass('status')
				:newline()
				:wikitext(self.args.status or self.args.result)
	end
	if self.args.territory then
		builder:tag('tr')
			:tag('th')
				:css('padding-right', '1em')
				:wikitext('영토 변화')
			:done()
			:tag('td')
				:newline()
				:wikitext(self.args.territory)
	end
end
function IMC:render()
	local builder = mw.html.create()
	if self.args.campaignbox then
		-- this should be the same as using ...
		builder = builder:tag('div')
			builder:wikitext(self.frame:expandTemplate{ title = 'stack begin', args = { clear='true'} })
	end
	builder = builder:tag('table')
		:addClass('infobox vevent')
		:cssText(infoboxStyle.main_box_raw)
		:css('width', self.args.width or nil)
	builder:tag('tr')
		:tag('th')
			:addClass('summary')
			:attr('colspan', self.combatants)
			:cssText(infoboxStyle.header_raw)
			:wikitext(self.args.conflict or mw.title.getCurrentTitle().text)
	if self.args.partof then
		builder:tag('tr')
			:tag('td')
				:attr('colspan', self.combatants)
				:cssText(infoboxStyle.sub_header_raw)
				:wikitext(self.args.partof .. '의 일부')
	end
	if self.args.image then
		builder:tag('tr')
			:tag('td')
				:attr('colspan', self.combatants)
				:cssText(infoboxStyle.image_box_raw)
				:wikitext(string.format('%s%s%s',
					require('Module:InfoboxImage').InfoboxImage{args = {
						image = self.args.image,
						size = self.args.image_size,
						sizedefault = 'frameless',
						upright = self.args.image_upright or 1.2,
						alt = self.args.alt
					}},
					self.args.caption and  or ,
					self.args.caption or 
				))
	end
	-- kowiki-specific conditional statement
	if self.args.image2 then
		builder:tag('tr')
			:tag('td')
				:attr('colspan', self.combatants)
				:cssText(infoboxStyle.image_box_raw)
				:wikitext(string.format('%s%s%s',
					require('Module:InfoboxImage').InfoboxImage{args = {
						image = self.args.image2,
						size = self.args.image_size2,
						sizedefault = 'frameless',
						upright = 1,
						alt = self.args.alt2
					}},
					self.args.caption2 and  or ,
					self.args.caption2 or 
				))
	end
	self:renderHeaderTable(builder:tag('tr'):tag('td'):attr('colspan', self.combatants))
	self:renderPerCombatant(builder, self.args.combatants_header or '교전국', '교전국')
	-- can be un-hardcoded once gerrit:165108 is merged
	for _,v in ipairs{'a','b','c','d'} do
		self:renderPerCombatant(builder, nil, '교전국', v)
	end
	
	self:renderPerCombatant(builder, '지휘관', '지휘관')
for _,v in ipairs{'a','b','c','d'} do
		self:renderPerCombatant(builder, nil, '지휘관', v)
	end
	self:renderPerCombatant(builder, '군대', '군대')
	self:renderPerCombatant(builder, '병력', '병력')
	self:renderPerCombatant(builder, '정치적 지원', '정치적지원')
	self:renderPerCombatant(builder, '군사적 지원', '군사적지원')
	self:renderPerCombatant(builder, '피해 규모', '사상자')
	if self.args.notes then
		builder:tag('tr')
			:tag('td')
				:attr('colspan', self.combatants)
				:css('font-size', '90%')
				:css('border-top', infoboxStyle.section_border)
				:newline()
				:wikitext(self.args.notes)
	end
	if self.args'지도' then
		builder:tag('tr')
			:tag('td')
				:attr('colspan', self.combatants)
				:cssText(infoboxStyle.image_box_raw)
				:wikitext(string.format('%s%s%s',
					require('모듈:InfoboxImage').InfoboxImage{args = {
						"그림" = self.args'지도',
						"크기" = self.args'지도크기' or self.args'그림크기' or '300px',
						"기본" = 'frameless',
						upright = 1,
						alt = self.args'대체지도설명'
					}},
					self.args'지도설명' and  or ,
					self.args'지도설명' or 
					))
	end
	if self.args.map_type then
		builder:tag('tr')
			:tag('td')
				:attr('colspan', self.combatants)
				:css('border-top', infoboxStyle.internal_border)
				:node(require('Module:Location map').main(self.frame, {
					self.args.map_type,
					relief = self.args.map_relief,
					coordinates = self.args.coordinates,
					width = self.args.map_size or 220,
					float = 'center',
					border = 'none',
					mark = self.args.map_mark,
					marksize = self.args.map_marksize or 8,
					label = self.args.map_label,
					alt = self.args.map_alt,
					caption = self.args.map_caption or ('장소: ' 
						.. (require('Module:Location map').data(self.frame, {self.args.map_type, 'name'})))
				}))
	end
	builder = builder:done()
	if self.args.campaignbox then
		builder = builder:done()
		builder:wikitext(self.args.campaignbox .. self.frame:expandTemplate{ title = 'stack end'})
	end
	return builder
end
function IMC.new(frame, args)
	if not args then
		args = require('Module:Arguments').getArgs(frame, {wrappers = '틀:전쟁 정보'})
	end
	for kk, vv in pairs(param_ko) do
		if vv ~=  then
			local newVal = argskk
			if newVal ~= nil and newVal ~=  then
				argsparam_kokk = argskk
			end
		end
	end
	local obj = {
		frame = frame,
		args = args
	}
	-- until gerrit:165108 is merged, there's still a cap on combatants, but as soon as it merges, we can update this little bit of code to uncap it
	-- also, don't try to make this more efficient, or references could be in the wrong order
	obj.combatants = 2
	for _,v in ipairs{, 'a', 'b', 'c', 'd'} do
		for i = 1,5 do
			if args'combatant' .. i .. v then
				obj.combatants = math.max(obj.combatants, i)
			end
		end
	end
	return setmetatable(obj, IMC)
end
local p = {}
function p.main(frame)
	return frame:extensionTag{ name = 'templatestyles', args = { src = templatestyles} } .. tostring(IMC.new(frame):render())
end
return p