Module:Caselist

-- This module implements.

local mNavbox = require('Module:Navbox')

local p = {}

local function wraplinks(s) -- add allow wrap if s and not mw.ustring.match(s, ' ') 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 ')		s = mw.ustring.gsub(s, 			'%[%[([^%[%]<>|]*)|(' .. m .. '[^%[%]<>|]*)%]%]', 			' %2 ')	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