Module:Navbox with collapsible groups

-- This module implements local p = {}

-- helper functions local function concatstrings(s) local r = table.concat(s, '') if r:match('^%s*$') then r = nil end return r end

local function concatstyles(s) local r = table.concat(s, ';') while r:match(';%s*;') do		r = mw.ustring.gsub(r, ';%s*;', ';') end if r:match('^%s*;%s*$') then r = nil end return r end

function p._box(args) local tracking = '' local Navbox = require('Module:Navbox') -- table for args passed to navbox local targs = {}

-- process args local passthrough = { ['name']=true,['navbar']=true,['state']=true,['border']=true, ['bodyclass']=true,['groupclass']=true,['listclass']=true, ['style']=true,['bodystyle']=true,['basestyle']=true, ['title']=true,['titleclass']=true,['titlestyle']=true, ['above']=true,['aboveclass']=true,['abovestyle']=true, ['below']=true,['belowclass']=true,['belowstyle']=true, ['image']=true,['imageclass']=true,['imagestyle']=true, ['imageleft']=true,['imageleftstyle']=true }	for k,v in pairs(args) do		if k and type(k) == 'string' then if passthrough[k] then targs[k] = v			elseif (k:match('^list[0-9][0-9]*$') 					or k:match('^content[0-9][0-9]*$') ) then local n = mw.ustring.gsub(k, '^[a-z]*([0-9]*)$', '%1') if (targs['list' .. n] == nil and args['group' .. n] == nil					and args['sect' .. n] == nil and args['section' .. n] == nil) then targs['list' .. n] = concatstrings(args['list' .. n] or , args['content' .. n] or ) end elseif (k:match('^group[0-9][0-9]*$') 					or k:match('^sect[0-9][0-9]*$') 					or k:match('^section[0-9][0-9]*$') ) then local n = mw.ustring.gsub(k, '^[a-z]*([0-9]*)$', '%1') if targs['list' .. n] == nil then local titlestyle = concatstyles(						{args['groupstyle'] or ,args['secttitlestyle'] or , 							args['group' .. n .. 'style'] or , 							args['section' .. n ..'titlestyle'] or }) local liststyle = concatstyles(						{args['liststyle'] or , args['contentstyle'] or , 							args['list' .. n .. 'style'] or , 							args['content' .. n .. 'style'] or }) local title = concatstrings(						{args['group' .. n] or , 							args['sect' .. n] or ,							args['section' .. n] or ''}) local list = concatstrings(						{args['list' .. n] or , 							args['content' .. n] or }) local state = (args['abbr' .. n] and args['abbr' .. n] == args['selected']) and 'uncollapsed' or args['state' .. n] or 'collapsed' local sargs = {'child', navbar = 'plain', state = state, basestyle = args['basestyle'], title = title, titlestyle = titlestyle, list1 = list, liststyle = liststyle, listclass = args['list' .. n .. 'class'], image = args['image' .. n], imageleft = args['imageleft' .. n], listpadding = args['listpadding']} targs['list' .. n] = Navbox._navbox(sargs) tracking = tracking .. ' '''k = ' .. k .. ', n = ' .. n ..  \n' for ks,vs in pairs(sargs) do tracking = tracking .. ks .. ' = ' .. vs .. ' \n' end tracking = tracking .. '\n \n' end end end end

-- child or subgroup if targs['border'] == nil then targs['border'] = args[1] end -- debug tracking = tracking .. ' targs  \n' for k,v in pairs(targs) do tracking = tracking .. k .. ' = ' .. v .. ' \n' end tracking = tracking .. '\n \n'

return Navbox._navbox(targs) .. tracking end

function p.box(frame) args = require('Module:Arguments').getArgs(frame)

return p._box(args) end

return p