Notice: Firmware Links Under Maintenance We are currently undergoing maintenance on all firmware links. If any links are inaccessible, please email or contact Tech Support for the firmware. We appreciate your patience during the maintenance, thank you for your understanding.
Difference between revisions of "Module:Navbox with collapsible groups"
m (Protected "Module:Navbox with collapsible groups": High-risk Lua module ([Edit=Require template editor access] (indefinite) [Move=Require template editor access] (indefinite))) |
m (1 revision imported) |
(No difference)
|
Latest revision as of 17:27, 21 March 2019
Documentation for this module may be created at Module:Navbox with collapsible groups/doc
Script error: Lua error: Internal error: The interpreter exited with status 127.
-- This module implements {{Navbox with collapsible groups}} local q = {} local Navbox = require('Module:Navbox') -- 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 q._navbox(pargs) -- 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(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( {pargs['list' .. n] or '', pargs['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( {pargs['groupstyle'] or '',pargs['secttitlestyle'] or '', pargs['group' .. n .. 'style'] or '', pargs['section' .. n ..'titlestyle'] or ''}) local liststyle = concatstyles( {pargs['liststyle'] or '', pargs['contentstyle'] or '', pargs['list' .. n .. 'style'] or '', pargs['content' .. n .. 'style'] or ''}) local title = concatstrings( {pargs['group' .. n] or '', pargs['sect' .. n] or '', pargs['section' .. n] or ''}) local list = concatstrings( {pargs['list' .. n] or '', pargs['content' .. n] or ''}) local state = (pargs['abbr' .. n] and pargs['abbr' .. n] == pargs['selected']) and 'uncollapsed' or pargs['state' .. n] or 'collapsed' targs['list' .. n] = Navbox._navbox( {'child', navbar = 'plain', state = state, basestyle = pargs['basestyle'], title = title, titlestyle = titlestyle, list1 = list, liststyle = liststyle, listclass = pargs['list' .. n .. 'class'], image = pargs['image' .. n], imageleft = pargs['imageleft' .. n], listpadding = pargs['listpadding']}) end end end end -- ordering of style and bodystyle targs['style'] = concatstyles({targs['style'] or '', targs['bodystyle'] or ''}) 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, {wrappers = {'Template:Navbox with collapsible groups'}}) -- 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