Module:Caselist

-- This module implements {{caselist}}.local mNavbox = require('Module:Navbox')local p = {}local function wraplinks(s)-- add allow wrapif s and not mw.ustring.match(s, '<span class="wrap">') then-- probably a more efficient way to match 40 or more characterslocal m = '[^%[%]<>|][^%[%]<>|][^%[%]<>|][^%[%]<>|][^%[%]<>|]'m = m .. m .. m .. mm = m .. ms = mw.ustring.gsub(s, '%[%[(' .. m .. '[^%[%]<>|]*)%]%]', '[[%1|<span class="wrap">%1</span>]]')s = mw.ustring.gsub(s, '%[%[([^%[%]<>|]*)|(' .. m .. '[^%[%]<>|]*)%]%]', '[[%1|<span class="wrap">%2</span>]]')endreturn sendfunction p._main(args)local nargs = {} -- Navbox args-- Casesdolocal caseNums = {}for k in pairs(args) doif type(k) == 'string' thenlocal num = k:match('^case([1-9][0-9]*)$')if num thentable.insert(caseNums, tonumber(num))endendendif #caseNums < 1 thenerror("no 'case1', 'case2', etc. parameters specified in [[Template:Caselist]]", 2)endtable.sort(caseNums)for i, num in ipairs(caseNums) donargs['list' .. tostring(i)] = wraplinks(args['case' .. tostring(num)])endend-- Other argsnargs.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.belownargs.tracking = 'no'return mNavbox._navbox(nargs)endfunction p.main(frame)local args = require('Module:Arguments').getArgs(frame, {wrappers = 'Template:Caselist'})return p._main(args)endreturn p