Module:Navbox with collapsible groups: Difference between revisions

Revision as of 21:07, 24 January 2019

Revision as of 15:07, 16 September 2024

Line 1:

-- This module implements {{Navbox with collapsible groups}}

local q = {}

local Navbox = require('Module:Navboxstrict')

local p = {}

local parentCfg = mw.loadData('Module:Navbox/configuration')

local thisCfg = mw.loadData('Module:Navbox with collapsible groups/configuration')

local cfg = {}

for k, v in pairs(thisCfg) do

if type(v) == 'table' then

cfg[k] = {}

if type(parentCfg[k]) == 'table' then

for kk, vv in pairs(parentCfg[k]) do cfg[k][kk] = vv end

end

for kk, vv in pairs(v) do cfg[k][kk] = vv end

end

end

local inArray = require("Module:TableTools").inArray

local getArgs -- lazily initialized

-- helper functions

local andnum = function(s, n) return string.format(cfg.arg[s..'_and_num'], n) end

local isblank = function(v) return (v or '') == '' end

local function concatstrings(s)

local r = table.concat(s, '')

ifreturn r:match('^%s*$') thenand rnil =or nil endr

return r

end

local function concatstyles(s)

local r = table.concat(s, ';')

Line 15 ⟶ 33:

r = mw.ustring.gsub(r, ';%s*;', ';')

end

ifreturn r:match('^%s*;%s*$') thenand rnil =or nil endr

return r

end

local function getSubgroup(args, listnum, listText)

local subArgs = {

[cfg.arg.border] = cfg.keyword.border_subgroup,

[cfg.arg.navbar] = cfg.keyword.navbar_plain

}

local hasSubArgs = false

for k, v in pairs(args) do

k = tostring(k)

for _, w in ipairs(cfg.keyword.subgroups) do

w = w .. listnum .. "_"

if (#k > #w) and (k:sub(1, #w) == w) then

subArgs[k:sub(#w + 1)] = v

hasSubArgs = true

end

end

end

return hasSubArgs and p._navbox(subArgs) or listText

end

-- Main functions

p._navbox = require('Module:Navbox')._navbox

function qp._navbox_withCollapsibleGroups(pargs)

-- table for args passed to navbox

local targs = {}

Line 25 ⟶ 64:

-- process args

local passthrough = {

['name'cfg.arg.above]=true,['navbar'cfg.arg.aboveclass]=true,['state']=true,['border'cfg.arg.abovestyle]=true,

[cfg.arg.basestyle]=true,

['bodyclass']=true,['groupclass']=true,['listclass']=true,

['style'cfg.arg.below]=true,['bodystyle'cfg.arg.belowclass]=true,['basestyle'cfg.arg.belowstyle]=true,

['title'cfg.arg.bodyclass]=true,['titleclass']=true,['titlestyle'cfg.arg.bodystyle]=true,

[cfg.arg.border]=true,

['above']=true,['aboveclass']=true,['abovestyle']=true,

[cfg.arg.groupclass]=true,

['below']=true,['belowclass']=true,['belowstyle']=true,

['cfg.arg.image']=true,['cfg.arg.imageclass']=true,['cfg.arg.imagestyle']=true,

['cfg.arg.imageleft']=true,['cfg.arg.imageleftstyle']=true,

[cfg.arg.listclass]=true,

[cfg.arg.name]=true,

[cfg.arg.navbar]=true,

[cfg.arg.state]=true,

[cfg.arg.style]=true,

[cfg.arg.title]=true,[cfg.arg.titleclass]=true,[cfg.arg.titlestyle]=true

}

for k,v in pairs(pargs) do

Line 38 ⟶ 83:

if passthrough[k] then

targs[k] = v

elseif (k:match('^list[0-9][0-9]*$'cfg.pattern.num)) then

orlocal n = k:match('^content[0-9][0-9]*$'cfg.pattern.num) ) then

local nlist_and_num = mw.ustring.gsubandnum(k, '^[a-z]*([0-9]*)$list', '%1'n)

if ((k:match(cfg.pattern.listnum) or k:match(cfg.pattern.contentnum))

if (targs['list' .. n] == nil and pargs['group' .. n] == nil

and pargstargs['sect' .. nlist_and_num] == nil and pargs['section' .. n] == nil) then

targs and pargs[andnum('listgroup' .., n)] == concatstrings(nil

{and pargs[andnum('list' .. n] or 'sect', pargs['content' .. n)] or== ''})nil

and pargs[andnum('section', n)] == nil) then

end

targs[list_and_num] = concatstrings({

elseif (k:match('^group[0-9][0-9]*$')

pargs[list_and_num] or '',

or k:match('^sect[0-9][0-9]*$')

or k:match pargs[andnum('^section[0-9][0-9]*$content'), n)] thenor ''

})

local n = mw.ustring.gsub(k, '^[a-z]*([0-9]*)$', '%1')

if (targs['list'list_and_num] and inArray(cfg.keyword.subgroups, ntargs[list_and_num] == nil)) then

targs[list_and_num] = getSubgroup(pargs, n, targs[list_and_num])

local titlestyle = concatstyles(

end

{pargs['groupstyle'] or '',pargs['secttitlestyle'] or '',

elseif ((k:match(cfg.pattern.groupnum) or k:match(cfg.pattern.sectnum) or k:match(cfg.pattern.sectionnum))

pargs['group' .. n .. 'style'] or '',

and targs[list_and_num] == nil) then

pargs['section' .. n ..'titlestyle'] or ''})

local liststyletitlestyle = concatstyles({

{pargs['liststyle'cfg.arg.groupstyle] or '', pargs['contentstyle'] or '',

pargs['list' cfg.arg. n .. 'style'secttitlestyle] or '',

pargs[andnum('contentgroupstyle' .., n .. 'style')] or ''}),

pargs[andnum('sectiontitlestyle', n)] or ''

local title = concatstrings(

})

{pargs['group' .. n] or '',

local liststyle = concatstyles({

pargs['sect' .. n] or '',

pargs['section' cfg.arg. nliststyle] or ''}),

pargs[cfg.arg.contentstyle] or '',

local list = concatstrings(

{pargs[andnum('listliststyle' .., n)] or '',

pargs[andnum('contentcontentstyle' .., n)] or ''})

})

local state = (pargs['abbr' .. n] and pargs['abbr' .. n] == pargs['selected'])

local title = concatstrings({

and 'uncollapsed' or pargs['state' .. n] or 'collapsed'

pargs[andnum('group', n)] or '',

pargs[andnum('sect', n)] or '',

pargs[andnum('section', n)] or ''

})

local list = concatstrings({

pargs[list_and_num] or '',

pargs[andnum('content', n)] or ''

})

if list and inArray(cfg.keyword.subgroups, list) then

list = getSubgroup(pargs, n, list)

end

local abbr_and_num = andnum('abbr', n)

local state = (pargs[abbr_and_num] and pargs[abbr_and_num] == pargs[cfg.arg.selected])

and cfg.keyword.state_uncollapsed

or (pargs[andnum('state', n)] or cfg.keyword.state_collapsed)

targs['list' .. nlist_and_num] = Navboxp._navbox({

cfg.keyword.border_child,

{'child', navbar = 'plain', state = state,

[cfg.arg.navbar] = cfg.keyword.navbar_plain,

basestyle = pargs['basestyle'],

[cfg.arg.state] = state,

title = title, titlestyle = titlestyle,

[cfg.arg.basestyle] = pargs[cfg.arg.basestyle],

list1 = list, liststyle = liststyle,

listclass = pargs['list' cfg.arg.title] n= .. 'class']title,

[cfg.arg.titlestyle] = titlestyle,

image = pargs['image' .. n],

imageleft = pargs[andnum('imageleftlist', ..1)] n]= list,

[cfg.arg.liststyle] = liststyle,

listpadding = pargs['listpadding']})

[cfg.arg.listclass] = pargs[andnum('listclass', n)],

[cfg.arg.image] = pargs[andnum('image', n)],

[cfg.arg.imageleft] = pargs[andnum('imageleft', n)],

[cfg.arg.listpadding] = pargs[cfg.arg.listpadding]

})

end

end

Line 83 ⟶ 148:

end

-- ordering of style and bodystyle

targs['cfg.arg.style'] = concatstyles({targs['cfg.arg.style'] or '', targs['cfg.arg.bodystyle'] or ''})

targs['cfg.arg.bodystyle'] = nil

-- child or subgroup

if targs['cfg.arg.border'] == nil then targs['cfg.arg.border'] = pargs[1] end

return Navboxp._navbox(targs)

end

-- Template entry points

function q.navbox(frame)

function p.navbox (frame, boxtype)

local pargs = require('Module:Arguments').getArgs(frame, {wrappers = {'Template:Navbox with collapsible groups'}})

local function readArgs(args, prefix)

-- Read the arguments in the order they'll be output in, to make references

-- number in the right order.

local _

_ = args[prefix .. cfg.arg.title]

_ = args[prefix .. cfg.arg.above]

-- Limit this to 20 as covering 'most' cases (that's a SWAG) and because

-- iterator approach won't work here

for i = 1, 20 do

_ = args[prefix .. andnum('group', i)]

if inArray(cfg.keyword.subgroups, args[prefix .. andnum('list', i)]) then

for _, v in ipairs(cfg.keyword.subgroups) do

readArgs(args, prefix .. v .. i .. "_")

end

end

end

_ = args[prefix .. cfg.arg.below]

end

if not getArgs then

-- Read the arguments in the order they'll be output in, to make references number in the right order.

getArgs = require('Module:Arguments').getArgs

local _

_ = pargs.title

_ = pargs.above

for i = 1, 20 do

_ = pargs["group" .. tostring(i)]

_ = pargs["list" .. tostring(i)]

end

local args = getArgs(frame, {wrappers = {cfg.pattern[boxtype or 'navbox']}})

_ = pargs.below

readArgs(args, "")

return p['_'..(boxtype or 'navbox')](args)

end

p['with collapsible groups'] = function (frame)

return q._navbox(pargs)

return p.navbox(frame, 'withCollapsibleGroups')

end

local q = {}

q._navbox = p._withCollapsibleGroups

q.navbox = p['with collapsible groups']

return q