Module:Caselist Explained

-- 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 send

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 ", 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 ", 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,) return p._main(args)end

return p