Module:Navbox with collapsible groups explained

-- This module implements local q = local Navbox = require('Module:Navbox')

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

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 rend

function q._navbox(pargs) -- table for args passed to navbox local targs =

-- process args local passthrough = for k,v in pairs(pargs) 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 pargs['group' .. n]

nil and pargs['sect' .. n]

nil and pargs['section' .. n]

nil) then targs['list' .. n] = concatstrings 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 local liststyle = concatstyles local title = concatstrings local list = concatstrings local state = (pargs['abbr' .. n] and pargs['abbr' .. n]

pargs['selected']) and 'uncollapsed' or pargs['state' .. n] or 'collapsed' targs['list' .. n] = Navbox._navbox end end end end -- ordering of style and bodystyle targs['style'] = concatstyles targs['bodystyle'] = nil -- child or subgroup if targs['border']

nil then targs['border'] = pargs[1] end

return Navbox._navbox(targs)end

function q.navbox(frame) local pargs = require('Module:Arguments').getArgs(frame,)

-- Read the arguments in the order they'll be output in, to make references number in the right order. local _ _ = pargs.title _ = pargs.above for i = 1, 20 do _ = pargs["group" .. tostring(i)] _ = pargs["list" .. tostring(i)] end _ = pargs.below

return q._navbox(pargs)end

return q

Module:Navbox with collapsible groups explained

'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 pargs['sect' .. n]

nil) then targs['list' .. n] = concatstrings 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]

pargs['selected']) and 'uncollapsed' or pargs['state' .. n] or 'collapsed' targs['list' .. n] = Navbox._navbox end end end end -- ordering of style and bodystyle targs['style'] = concatstyles targs['bodystyle'] = nil -- child or subgroup if targs['border']

'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) then targs['list' .. n] = concatstrings 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]