-- This module implements {{caselist}}.



local mNavbox = require('Module:Navbox')



local p = {}



local function wraplinks(s)

	-- add allow wrap

	if s and not mw.ustring.match(s, '<span class="wrap">') then

		-- probably a more efficient way to match 40 or more characters

		local m = '[^%[%]<>|][^%[%]<>|][^%[%]<>|][^%[%]<>|][^%[%]<>|]'

		m = m .. m .. m .. m

		m = m .. m

		s = mw.ustring.gsub(s, 

			'%[%[(' .. m .. '[^%[%]<>|]*)%]%]', 

			'[[%1|<span class="wrap">%1</span>]]')

		s = mw.ustring.gsub(s, 

			'%[%[([^%[%]<>|]*)|(' .. m .. '[^%[%]<>|]*)%]%]', 

			'[[%1|<span class="wrap">%2</span>]]')

	end

	

	return s

end



function p._main(args)

	local nargs = {} -- Navbox args



	-- Cases

	do

		local caseNums = {}

		for k in pairs(args) do

			if type(k) == 'string' then

				local num = k:match('^case([1-9][0-9]*)$')

				if num then

					table.insert(caseNums, tonumber(num))

				end

			end

		end

		if #caseNums < 1 then

			error("no 'case1', 'case2', etc. parameters specified in [[Template:Caselist]]", 2)

		end

		table.sort(caseNums)

		for i, num in ipairs(caseNums) do

			nargs'list' .. tostring(i)] = wraplinks(args'case' .. tostring(num)])

		end

	end



	-- Other args

	nargs.name = args.name or 'Caselist'

	nargs.navbar = args.navbar or 'top'

	nargs.style = string.format(

		'width: %s; text-align: %s; font-size: 80%%; line-height: 1.5em; background-color: #fafafa; %s',

		args.width or '350px',

		args.textalign or 'center',

		args.align == 'left'

			and 'float: left; clear: left; margin: 0 1em 1em 0;'

			or 'float: right; clear: right; margin: 0 0 1em 1em;'

	)

	nargs.evenodd = 'off'

	nargs.title = args.title or args.name or error(

		"no 'title' or 'name' parameters specified in [[Template:Caselist]]",

		2

	)

	nargs.below = args.notes or args.below

	nargs.tracking = 'no'



	return mNavbox._navbox(nargs)

end



function p.main(frame)

	local args = require('Module:Arguments').getArgs(frame, {

		wrappers = 'Template:Caselist'

	})

	return p._main(args)

end



return p