Module:Navbox

 require('strict')
 localp={}
 localcfg=mw.loadData('Module:Navbox/configuration')
 localinArray=require("Module:TableTools").inArray
 localgetArgs-- lazily initialized
 localhiding_templatestyles={}

 -- global passthrough variables
 localpassthrough={
 [cfg.arg.above]=true,[cfg.arg.aboveclass]=true,[cfg.arg.abovestyle]=true,
 [cfg.arg.basestyle]=true,
 [cfg.arg.below]=true,[cfg.arg.belowclass]=true,[cfg.arg.belowstyle]=true,
 [cfg.arg.bodyclass]=true,
 [cfg.arg.groupclass]=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.title]=true,[cfg.arg.titleclass]=true,[cfg.arg.titlestyle]=true,
 argHash=true
 }

 -- helper functions
 localandnum=function(s,n)returnstring.format(cfg.arg[s..'_and_num'],n)end
 localisblank=function(v)return(vor'')==''end

 localfunctionconcatstrings(s)
 localr=table.concat(s,'')
 ifr:match('^%s*$')thenreturnnilend
 returnr
 end

 localfunctionconcatstyles(s)
 localr=''
 for_,vinipairs(s)do
 v=mw.text.trim(v,"%s;")
 ifnotisblank(v)thenr=r..v..';'end
 end
 ifisblank(r)thenreturnnilend
 returnr
 end

 localfunctiongetSubgroup(args,listnum,listText,prefix)
 localsubArgs={
 [cfg.arg.border]=cfg.keyword.border_subgroup,
 [cfg.arg.navbar]=cfg.keyword.navbar_plain,
 argHash=0
 }
 localhasSubArgs=false
 localsubgroups_and_num=prefixand{prefix}orcfg.arg.subgroups_and_num
 fork,vinpairs(args)do
 k=tostring(k)
 for_,winipairs(subgroups_and_num)do
 w=string.format(w,listnum).."_"
 if(#k>#w)and(k:sub(1,#w)==w)then
 subArgs[k:sub(#w+1)]=v
 hasSubArgs=true
 subArgs.argHash=subArgs.argHash+(vand#vor0)
 end
 end
 end
 returnhasSubArgsandp._navbox(subArgs)orlistText
 end

 -- Main functions
 functionp._navbox(args)
 ifargs.type==cfg.keyword.with_collapsible_groupsthen
 returnp._withCollapsibleGroups(args)
 elseifargs.type==cfg.keyword.with_columnsthen
 returnp._withColumns(args)
 end

 localfunctionstriped(wikitext,border)
 -- Return wikitext with markers replaced for odd/even striping.
 -- Child (subgroup) navboxes are flagged with a category that is removed
 -- by parent navboxes. The result is that the category shows all pages
 -- where a child navbox is not contained in a parent navbox.
 localorphanCat=cfg.category.orphan
 ifborder==cfg.keyword.border_subgroupandargs[cfg.arg.orphan]~=cfg.keyword.orphan_yesthen
 -- No change; striping occurs in outermost navbox.
 returnwikitext..orphanCat
 end
 localfirst,second=cfg.class.navbox_odd_part,cfg.class.navbox_even_part
 ifargs[cfg.arg.evenodd]then
 ifargs[cfg.arg.evenodd]==cfg.keyword.evenodd_swapthen
 first,second=second,first
 else
 first=args[cfg.arg.evenodd]
 second=first
 end
 end
 localchanger
 iffirst==secondthen
 changer=first
 else
 localindex=0
 changer=function(code)
 ifcode=='0'then
 -- Current occurrence is for a group before a nested table.
 -- Set it to first as a valid although pointless class.
 -- The next occurrence will be the first row after a title
 -- in a subgroup and will also be first.
 index=0
 returnfirst
 end
 index=index+1
 returnindex%2==1andfirstorsecond
 end
 end
 localregex=orphanCat:gsub('([%[%]])','%%%1')
 return(wikitext:gsub(regex,''):gsub(cfg.marker.regex,changer))-- () omits gsub count
 end

 localfunctionprocessItem(item,nowrapitems)
 ifitem:sub(1,2)=='{|'then
 -- Applying nowrap to lines in a table does not make sense.
 -- Add newlines to compensate for trim of x in |parm=x in a template.
 return'\n'..item..'\n'
 end
 ifnowrapitems==cfg.keyword.nowrapitems_yesthen
 locallines={}
 forlinein(item..'\n'):gmatch('([^\n]*)\n')do
 localprefix,content=line:match('^([*:;#]+)%s*(.*)')
 ifprefixandnotcontent:match(cfg.pattern.nowrap)then
 line=string.format(cfg.nowrap_item,prefix,content)
 end
 table.insert(lines,line)
 end
 item=table.concat(lines,'\n')
 end
 ifitem:match('^[*:;#]')then
 return'\n'..item..'\n'
 end
 returnitem
 end

 localfunctionhas_navbar()
 returnargs[cfg.arg.navbar]~=cfg.keyword.navbar_off
 andargs[cfg.arg.navbar]~=cfg.keyword.navbar_plain
 and(
 args[cfg.arg.name]
 ormw.getCurrentFrame():getParent():getTitle():gsub(cfg.pattern.sandbox,'')
 ~=cfg.pattern.navbox
 )
 end

 -- extract text color from css, which is the only permitted inline CSS for the navbar
 localfunctionextract_color(css_str)
 -- return nil because navbar takes its argument into mw.html which handles
 -- nil gracefully, removing the associated style attribute
 returnmw.ustring.match(';'..css_str..';','.*;%s*([Cc][Oo][Ll][Oo][Rr]%s*:%s*.-)%s*;')ornil
 end

 localfunctionrenderNavBar(titleCell)
 ifhas_navbar()then
 localnavbar=require('Module:Navbar')._navbar
 titleCell:wikitext(navbar{
 [cfg.navbar.name]=args[cfg.arg.name],
 [cfg.navbar.mini]=1,
 [cfg.navbar.fontstyle]=extract_color(
 (args[cfg.arg.basestyle]or'')..';'..(args[cfg.arg.titlestyle]or'')
 )
 })
 end

 end

 localfunctionrenderTitleRow(tbl)
 ifnotargs[cfg.arg.title]thenreturnend

 localtitleRow=tbl:tag('tr')

 localtitleCell=titleRow:tag('th'):attr('scope','col')

 localtitleColspan=2
 ifargs[cfg.arg.imageleft]thentitleColspan=titleColspan+1end
 ifargs[cfg.arg.image]thentitleColspan=titleColspan+1end

 titleCell
 :cssText(args[cfg.arg.basestyle])
 :cssText(args[cfg.arg.titlestyle])
 :addClass(cfg.class.navbox_title)
 :attr('colspan',titleColspan)

 renderNavBar(titleCell)

 titleCell
 :tag('div')
 -- id for aria-labelledby attribute
 :attr('id',mw.uri.anchorEncode(args[cfg.arg.title])..args.argHash)
 :addClass(args[cfg.arg.titleclass])
 :css('font-size','114%')
 :css('margin','0 4em')
 :wikitext(processItem(args[cfg.arg.title]))
 end

 localfunctiongetAboveBelowColspan()
 localret=2
 ifargs[cfg.arg.imageleft]thenret=ret+1end
 ifargs[cfg.arg.image]thenret=ret+1end
 returnret
 end

 localfunctionrenderAboveRow(tbl)
 ifnotargs[cfg.arg.above]thenreturnend

 tbl:tag('tr')
 :tag('td')
 :addClass(cfg.class.navbox_abovebelow)
 :addClass(args[cfg.arg.aboveclass])
 :cssText(args[cfg.arg.basestyle])
 :cssText(args[cfg.arg.abovestyle])
 :attr('colspan',getAboveBelowColspan())
 :tag('div')
 -- id for aria-labelledby attribute, if no title
 :attr('id',(notargs[cfg.arg.title])and
 (mw.uri.anchorEncode(args[cfg.arg.above])..args.argHash)
 ornil)
 :wikitext(processItem(args[cfg.arg.above],args[cfg.arg.nowrapitems]))
 end

 localfunctionrenderBelowRow(tbl)
 ifnotargs[cfg.arg.below]thenreturnend

 tbl:tag('tr')
 :tag('td')
 :addClass(cfg.class.navbox_abovebelow)
 :addClass(args[cfg.arg.belowclass])
 :cssText(args[cfg.arg.basestyle])
 :cssText(args[cfg.arg.belowstyle])
 :attr('colspan',getAboveBelowColspan())
 :tag('div')
 :wikitext(processItem(args[cfg.arg.below],args[cfg.arg.nowrapitems]))
 end

 localfunctionrenderListRow(tbl,index,listnum,listnums_size)
 localrow=tbl:tag('tr')

 ifindex==1andargs[cfg.arg.imageleft]then
 row
 :tag('td')
 :addClass(cfg.class.noviewer)
 :addClass(cfg.class.navbox_image)
 :addClass(args[cfg.arg.imageclass])
 :css('width','1px')-- Minimize width
 :css('padding','0 2px 0 0')
 :cssText(args[cfg.arg.imageleftstyle])
 :attr('rowspan',listnums_size)
 :tag('div')
 :wikitext(processItem(args[cfg.arg.imageleft]))
 end

 localgroup_and_num=andnum('group',listnum)
 localgroupstyle_and_num=andnum('groupstyle',listnum)
 ifargs[group_and_num]then
 localgroupCell=row:tag('th')

 -- id for aria-labelledby attribute, if lone group with no title or above
 iflistnum==1andnot(args[cfg.arg.title]orargs[cfg.arg.above]orargs[cfg.arg.group2])then
 groupCell
 :attr('id',mw.uri.anchorEncode(args[cfg.arg.group1])..args.argHash)
 end

 groupCell
 :attr('scope','row')
 :addClass(cfg.class.navbox_group)
 :addClass(args[cfg.arg.groupclass])
 :cssText(args[cfg.arg.basestyle])
 -- If groupwidth not specified, minimize width
 :css('width',args[cfg.arg.groupwidth]or'1%')

 groupCell
 :cssText(args[cfg.arg.groupstyle])
 :cssText(args[groupstyle_and_num])
 :wikitext(args[group_and_num])
 end

 locallistCell=row:tag('td')

 ifargs[group_and_num]then
 listCell
 :addClass(cfg.class.navbox_list_with_group)
 else
 listCell:attr('colspan',2)
 end

 ifnotargs[cfg.arg.groupwidth]then
 listCell:css('width','100%')
 end

 localrowstyle-- usually nil so cssText(rowstyle) usually adds nothing
 ifindex%2==1then
 rowstyle=args[cfg.arg.oddstyle]
 else
 rowstyle=args[cfg.arg.evenstyle]
 end

 locallist_and_num=andnum('list',listnum)
 locallistText=inArray(cfg.keyword.subgroups,args[list_and_num])
 andgetSubgroup(args,listnum,args[list_and_num])orargs[list_and_num]

 localoddEven=cfg.marker.oddeven
 iflistText:sub(1,12)=='</div><table'then
 -- Assume list text is for a subgroup navbox so no automatic striping for this row.
 oddEven=listText:find(cfg.pattern.navbox_title)andcfg.marker.restartorcfg.class.navbox_odd_part
 end

 localliststyle_and_num=andnum('liststyle',listnum)
 locallistclass_and_num=andnum('listclass',listnum)
 listCell
 :css('padding','0')
 :cssText(args[cfg.arg.liststyle])
 :cssText(rowstyle)
 :cssText(args[liststyle_and_num])
 :addClass(cfg.class.navbox_list)
 :addClass(cfg.class.navbox_part..oddEven)
 :addClass(args[cfg.arg.listclass])
 :addClass(args[listclass_and_num])
 :tag('div')
 :css('padding',
 (index==1andargs[cfg.arg.list1padding])orargs[cfg.arg.listpadding]or'0 0.25em'
 )
 :wikitext(processItem(listText,args[cfg.arg.nowrapitems]))

 ifindex==1andargs[cfg.arg.image]then
 row
 :tag('td')
 :addClass(cfg.class.noviewer)
 :addClass(cfg.class.navbox_image)
 :addClass(args[cfg.arg.imageclass])
 :css('width','1px')-- Minimize width
 :css('padding','0 0 0 2px')
 :cssText(args[cfg.arg.imagestyle])
 :attr('rowspan',listnums_size)
 :tag('div')
 :wikitext(processItem(args[cfg.arg.image]))
 end
 end

 localfunctionhas_list_class(htmlclass)
 localpatterns={
 '^'..htmlclass..'$',
 '%s'..htmlclass..'$',
 '^'..htmlclass..'%s',
 '%s'..htmlclass..'%s'
 }

 forarg,_inpairs(args)do
 iftype(arg)=='string'andmw.ustring.find(arg,cfg.pattern.class)then
 for_,patterninipairs(patterns)do
 ifmw.ustring.find(args[arg]or'',pattern)then
 returntrue
 end
 end
 end
 end
 returnfalse
 end

 -- there are a lot of list classes in the wild, so we add their TemplateStyles
 localfunctionadd_list_styles()
 localframe=mw.getCurrentFrame()
 localfunctionadd_list_templatestyles(htmlclass,templatestyles)
 ifhas_list_class(htmlclass)then
 returnframe:extensionTag{
 name='templatestyles',args={src=templatestyles}
 }
 else
 return''
 end
 end

 localhlist_styles=add_list_templatestyles('hlist',cfg.hlist_templatestyles)
 localplainlist_styles=add_list_templatestyles('plainlist',cfg.plainlist_templatestyles)

 -- a second workaround for [[phab:T303378]]
 -- when that issue is fixed, we can actually use has_navbar not to emit the
 -- tag here if we want
 ifhas_navbar()andhlist_styles==''then
 hlist_styles=frame:extensionTag{
 name='templatestyles',args={src=cfg.hlist_templatestyles}
 }
 end

 -- hlist -> plainlist is best-effort to preserve old Common.css ordering.
 -- this ordering is not a guarantee because most navboxes will emit only
 -- one of these classes [hlist_note]
 returnhlist_styles..plainlist_styles
 end

 localfunctionneedsHorizontalLists(border)
 ifborder==cfg.keyword.border_subgrouporargs[cfg.arg.tracking]==cfg.keyword.tracking_nothen
 returnfalse
 end
 returnnothas_list_class(cfg.pattern.hlist)andnothas_list_class(cfg.pattern.plainlist)
 end

 localfunctionhasBackgroundColors()
 for_,keyinipairs({cfg.arg.titlestyle,cfg.arg.groupstyle,
 cfg.arg.basestyle,cfg.arg.abovestyle,cfg.arg.belowstyle})do
 iftostring(args[key]):find('background',1,true)then
 returntrue
 end
 end
 returnfalse
 end

 localfunctionhasBorders()
 for_,keyinipairs({cfg.arg.groupstyle,cfg.arg.basestyle,
 cfg.arg.abovestyle,cfg.arg.belowstyle})do
 iftostring(args[key]):find('border',1,true)then
 returntrue
 end
 end
 returnfalse
 end

 localfunctionisIllegible()
 localstyleratio=require('Module:Color contrast')._styleratio
 forkey,styleinpairs(args)do
 iftostring(key):match(cfg.pattern.style)then
 ifstyleratio{mw.text.unstripNoWiki(style)}<4.5then
 returntrue
 end
 end
 end
 returnfalse
 end

 localfunctiongetTrackingCategories(border)
 localcats={}
 ifneedsHorizontalLists(border)thentable.insert(cats,cfg.category.horizontal_lists)end
 ifhasBackgroundColors()thentable.insert(cats,cfg.category.background_colors)end
 ifisIllegible()thentable.insert(cats,cfg.category.illegible)end
 ifhasBorders()thentable.insert(cats,cfg.category.borders)end
 returncats
 end

 localfunctionrenderTrackingCategories(builder,border)
 localtitle=mw.title.getCurrentTitle()
 iftitle.namespace~=10thenreturnend-- not in template space
 localsubpage=title.subpageText
 ifsubpage==cfg.keyword.subpage_docorsubpage==cfg.keyword.subpage_sandbox
 orsubpage==cfg.keyword.subpage_testcasesthenreturnend

 for_,catinipairs(getTrackingCategories(border))do
 builder:wikitext('[[Category:'..cat..']]')
 end
 end

 localfunctionrenderMainTable(border,listnums)
 localtbl=mw.html.create('table')
 :addClass(cfg.class.nowraplinks)
 :addClass(args[cfg.arg.bodyclass])

 localstate=args[cfg.arg.state]
 ifargs[cfg.arg.title]andstate~=cfg.keyword.state_plainandstate~=cfg.keyword.state_offthen
 ifstate==cfg.keyword.state_collapsedthen
 state=cfg.class.collapsed
 end
 tbl
 :addClass(cfg.class.collapsible)
 :addClass(stateorcfg.class.autocollapse)
 end

 tbl:css('border-spacing',0)
 ifborder==cfg.keyword.border_subgrouporborder==cfg.keyword.border_nonethen
 tbl
 :addClass(cfg.class.navbox_subgroup)
 :cssText(args[cfg.arg.bodystyle])
 :cssText(args[cfg.arg.style])
 else-- regular navbox - bodystyle and style will be applied to the wrapper table
 tbl
 :addClass(cfg.class.navbox_inner)
 :css('background','transparent')
 :css('color','inherit')
 end
 tbl:cssText(args[cfg.arg.innerstyle])

 renderTitleRow(tbl)
 renderAboveRow(tbl)
 locallistnums_size=#listnums
 fori,listnuminipairs(listnums)do
 renderListRow(tbl,i,listnum,listnums_size)
 end
 renderBelowRow(tbl)

 returntbl
 end

 localfunctionadd_navbox_styles(hiding_templatestyles)
 localframe=mw.getCurrentFrame()
 -- This is a lambda so that it doesn't need the frame as a parameter
 localfunctionadd_user_styles(templatestyles)
 ifnotisblank(templatestyles)then
 returnframe:extensionTag{
 name='templatestyles',args={src=templatestyles}
 }
 end
 return''
 end

 -- get templatestyles. load base from config so that Lua only needs to do
 -- the work once of parser tag expansion
 localbase_templatestyles=cfg.templatestyles
 localtemplatestyles=add_user_styles(args[cfg.arg.templatestyles])
 localchild_templatestyles=add_user_styles(args[cfg.arg.child_templatestyles])

 -- The 'navbox-styles' div exists to wrap the styles to work around T200206
 -- more elegantly. Instead of combinatorial rules, this ends up being linear
 -- number of CSS rules.
 returnmw.html.create('div')
 :addClass(cfg.class.navbox_styles)
 :wikitext(
 add_list_styles()..-- see [hlist_note] applied to 'before base_templatestyles'
 base_templatestyles..
 templatestyles..
 child_templatestyles..
 table.concat(hiding_templatestyles)
 )
 :done()
 end

 -- work around [[phab:T303378]]
 -- for each arg: find all the templatestyles strip markers, insert them into a
 -- table. then remove all templatestyles markers from the arg
 localstrip_marker_pattern='(127円[^127円]*UNIQ%-%-templatestyles%-%x+%-QINU[^127円]*127円)'
 localargHash=0
 fork,arginpairs(args)do
 iftype(arg)=='string'then
 formarkerinstring.gfind(arg,strip_marker_pattern)do
 table.insert(hiding_templatestyles,marker)
 end
 argHash=argHash+#arg
 args[k]=string.gsub(arg,strip_marker_pattern,'')
 end
 end

 ifnotargs.argHashthenargs.argHash=argHashend

 locallistnums={}

 fork,_inpairs(args)do
 iftype(k)=='string'then
 locallistnum=k:match(cfg.pattern.listnum)
 iflistnumandargs[andnum('list',tonumber(listnum))]then
 table.insert(listnums,tonumber(listnum))
 end
 end
 end
 table.sort(listnums)

 localborder=mw.text.trim(args[cfg.arg.border]orargs[1]or'')
 ifborder==cfg.keyword.border_childthen
 border=cfg.keyword.border_subgroup
 end

 -- render the main body of the navbox
 localtbl=renderMainTable(border,listnums)

 localres=mw.html.create()
 -- render the appropriate wrapper for the navbox, based on the border param

 ifborder==cfg.keyword.border_nonethen
 res:node(add_navbox_styles(hiding_templatestyles))
 localnav=res:tag('div')
 :attr('role','navigation')
 :node(tbl)
 -- aria-labelledby title, otherwise above, otherwise lone group
 ifargs[cfg.arg.title]orargs[cfg.arg.above]or(args[cfg.arg.group1]
 andnotargs[cfg.arg.group2])then
 nav:attr(
 'aria-labelledby',
 mw.uri.anchorEncode(
 args[cfg.arg.title]orargs[cfg.arg.above]orargs[cfg.arg.group1]
 )..args.argHash
 )
 else
 nav:attr('aria-label',cfg.aria_label..args.argHash)
 end
 elseifborder==cfg.keyword.border_subgroupthen
 -- We assume that this navbox is being rendered in a list cell of a
 -- parent navbox, and is therefore inside a div with padding:0em 0.25em.
 -- We start with a </div> to avoid the padding being applied, and at the
 -- end add a <div> to balance out the parent's </div>
 res
 :wikitext('</div>')
 :node(tbl)
 :wikitext('<div>')
 else
 res:node(add_navbox_styles(hiding_templatestyles))
 localnav=res:tag('div')
 :attr('role','navigation')
 :addClass(cfg.class.navbox)
 :addClass(args[cfg.arg.navboxclass])
 :cssText(args[cfg.arg.bodystyle])
 :cssText(args[cfg.arg.style])
 :css('padding','3px')
 :node(tbl)
 -- aria-labelledby title, otherwise above, otherwise lone group
 ifargs[cfg.arg.title]orargs[cfg.arg.above]
 or(args[cfg.arg.group1]andnotargs[cfg.arg.group2])then
 nav:attr(
 'aria-labelledby',
 mw.uri.anchorEncode(
 args[cfg.arg.title]orargs[cfg.arg.above]orargs[cfg.arg.group1]
 )..args.argHash
 )
 else
 nav:attr('aria-label',cfg.aria_label..args.argHash)
 end
 end

 if(args[cfg.arg.nocat]orcfg.keyword.nocat_false):lower()==cfg.keyword.nocat_falsethen
 renderTrackingCategories(res,border)
 end
 returnstriped(tostring(res),border)
 end--p._navbox

 functionp._withCollapsibleGroups(pargs)
 -- table for args passed to navbox
 localtargs={}

 -- process args
 localpassthroughLocal={
 [cfg.arg.bodystyle]=true,
 [cfg.arg.border]=true,
 [cfg.arg.style]=true,
 }
 fork,vinpairs(pargs)do
 ifkandtype(k)=='string'then
 ifpassthrough[k]orpassthroughLocal[k]then
 targs[k]=v
 elseif(k:match(cfg.pattern.num))then
 localn=k:match(cfg.pattern.num)
 locallist_and_num=andnum('list',n)
 if((k:match(cfg.pattern.listnum)ork:match(cfg.pattern.contentnum))
 andtargs[list_and_num]==nil
 andpargs[andnum('group',n)]==nil
 andpargs[andnum('sect',n)]==nil
 andpargs[andnum('section',n)]==nil)then
 targs[list_and_num]=concatstrings({
 pargs[list_and_num]or'',
 pargs[andnum('content',n)]or''
 })
 if(targs[list_and_num]andinArray(cfg.keyword.subgroups,targs[list_and_num]))then
 targs[list_and_num]=getSubgroup(pargs,n,targs[list_and_num])
 end
 elseif((k:match(cfg.pattern.groupnum)ork:match(cfg.pattern.sectnum)ork:match(cfg.pattern.sectionnum))
 andtargs[list_and_num]==nil)then
 localtitlestyle=concatstyles({
 pargs[cfg.arg.groupstyle]or'',
 pargs[cfg.arg.secttitlestyle]or'',
 pargs[andnum('groupstyle',n)]or'',
 pargs[andnum('sectiontitlestyle',n)]or''
 })
 localliststyle=concatstyles({
 pargs[cfg.arg.liststyle]or'',
 pargs[cfg.arg.contentstyle]or'',
 pargs[andnum('liststyle',n)]or'',
 pargs[andnum('contentstyle',n)]or''
 })
 localtitle=concatstrings({
 pargs[andnum('group',n)]or'',
 pargs[andnum('sect',n)]or'',
 pargs[andnum('section',n)]or''
 })
 locallist=concatstrings({
 pargs[list_and_num]or'',
 pargs[andnum('content',n)]or''
 })
 iflistandinArray(cfg.keyword.subgroups,list)then
 list=getSubgroup(pargs,n,list)
 end
 localabbr_and_num=andnum('abbr',n)
 localstate=(pargs[abbr_and_num]andpargs[abbr_and_num]==pargs[cfg.arg.selected])
 andcfg.keyword.state_uncollapsed
 or(pargs[andnum('state',n)]orcfg.keyword.state_collapsed)

 targs[list_and_num]=p._navbox({
 cfg.keyword.border_child,
 [cfg.arg.navbar]=cfg.keyword.navbar_plain,
 [cfg.arg.state]=state,
 [cfg.arg.basestyle]=pargs[cfg.arg.basestyle],
 [cfg.arg.title]=title,
 [cfg.arg.titlestyle]=titlestyle,
 [andnum('list',1)]=list,
 [cfg.arg.liststyle]=liststyle,
 [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],
 argHash=pargs.argHash
 })
 end
 end
 end
 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
 iftargs[cfg.arg.border]==nilthentargs[cfg.arg.border]=pargs[1]end

 returnp._navbox(targs)
 end--p._withCollapsibleGroups

 functionp._withColumns(pargs)
 -- table for args passed to navbox
 localtargs={}

 -- tables of column numbers
 localcolheadernums={}
 localcolnums={}
 localcolfooternums={}

 -- process args
 localpassthroughLocal={
 [cfg.arg.evenstyle]=true,
 [cfg.arg.groupstyle]=true,
 [cfg.arg.liststyle]=true,
 [cfg.arg.oddstyle]=true,
 [cfg.arg.state]=true,
 }
 fork,vinpairs(pargs)do
 ifpassthrough[k]orpassthroughLocal[k]then
 targs[k]=v
 elseiftype(k)=='string'then
 ifk:match(cfg.pattern.listnum)then
 localn=k:match(cfg.pattern.listnum)
 targs[andnum('liststyle',n+2)]=pargs[andnum('liststyle',n)]
 targs[andnum('group',n+2)]=pargs[andnum('group',n)]
 targs[andnum('groupstyle',n+2)]=pargs[andnum('groupstyle',n)]
 ifvandinArray(cfg.keyword.subgroups,v)then
 targs[andnum('list',n+2)]=getSubgroup(pargs,n,v)
 else
 targs[andnum('list',n+2)]=v
 end
 elseif(k:match(cfg.pattern.colheadernum)andv~='')then
 table.insert(colheadernums,tonumber(k:match(cfg.pattern.colheadernum)))
 elseif(k:match(cfg.pattern.colnum)andv~='')then
 table.insert(colnums,tonumber(k:match(cfg.pattern.colnum)))
 elseif(k:match(cfg.pattern.colfooternum)andv~='')then
 table.insert(colfooternums,tonumber(k:match(cfg.pattern.colfooternum)))
 end
 end
 end
 table.sort(colheadernums)
 table.sort(colnums)
 table.sort(colfooternums)

 -- HTML table for list1
 localcoltable=mw.html.create('table'):addClass('navbox-columns-table')
 localrow,col

 localtablestyle=((#colheadernums>0)or(notisblank(pargs[cfg.arg.fullwidth])))
 and'width:100%'
 or'width:auto; margin-left:auto; margin-right:auto'

 coltable:cssText(concatstyles({
 'border-spacing: 0px; text-align:left',
 tablestyle,
 pargs[cfg.arg.coltablestyle]or''
 }))

 --- Header row ---
 if(#colheadernums>0)then
 row=coltable:tag('tr')
 fork,ninipairs(colheadernums)do
 col=row:tag('td'):addClass('navbox-abovebelow')
 col:cssText(concatstyles({
 (k>1)and'border-left:2px solid #fdfdfd'or'',
 'font-weight:bold',
 pargs[cfg.arg.colheaderstyle]or'',
 pargs[andnum('colheaderstyle',n)]or''
 }))
 col:attr('colspan',tonumber(pargs[andnum('colheadercolspan',n)]))
 col:wikitext(pargs[andnum('colheader',n)])
 end
 end

 --- Main columns ---
 row=coltable:tag('tr'):css('vertical-align','top')
 fork,ninipairs(colnums)do
 ifk==1andisblank(pargs[andnum('colheader',1)])
 andisblank(pargs[andnum('colfooter',1)])
 andisblank(pargs[cfg.arg.fullwidth])then
 localnopad=inArray(
 {'off','0','0em','0px'},
 mw.ustring.gsub(pargs[cfg.arg.padding]or'','[;%%]',''))
 ifnotnopadthen
 row:tag('td'):wikitext('&nbsp;&nbsp;&nbsp;')
 :css('width',(pargs[cfg.arg.padding]or'5em'))
 end
 end
 col=row:tag('td'):addClass('navbox-list')
 col:cssText(concatstyles({
 (k>1)and'border-left:2px solid #fdfdfd'or'',
 'padding:0px',
 pargs[cfg.arg.colstyle]or'',
 ((n%2==0)andpargs[cfg.arg.evencolstyle]orpargs[cfg.arg.oddcolstyle])or'',
 pargs[andnum('colstyle',n)]or'',
 'width:'..(pargs[andnum('colwidth',n)]orpargs[cfg.arg.colwidth]or'10em')
 }))
 localwt=pargs[andnum('col',n)]
 ifwtandinArray(cfg.keyword.subgroups,wt)then
 wt=getSubgroup(pargs,n,wt,cfg.arg.col_and_num)
 end
 col:tag('div'):newline():wikitext(wt):newline()
 end

 --- Footer row ---
 if(#colfooternums>0)then
 row=coltable:tag('tr')
 fork,ninipairs(colfooternums)do
 col=row:tag('td'):addClass('navbox-abovebelow')
 col:cssText(concatstyles({
 (k>1)and'border-left:2px solid #fdfdfd'or'',
 'font-weight:bold',
 pargs[cfg.arg.colfooterstyle]or'',
 pargs[andnum('colfooterstyle',n)]or''
 }))
 col:attr('colspan',tonumber(pargs[andnum('colfootercolspan',n)]))
 col:wikitext(pargs[andnum('colfooter',n)])
 end
 end

 -- assign table to list1
 targs[andnum('list',1)]=tostring(coltable)
 ifisblank(pargs[andnum('colheader',1)])
 andisblank(pargs[andnum('col',1)])
 andisblank(pargs[andnum('colfooter',1)])then
 targs[andnum('list',1)]=targs[andnum('list',1)]..
 cfg.category.without_first_col
 end

 -- Other parameters
 targs[cfg.arg.border]=pargs[cfg.arg.border]orpargs[1]
 targs[cfg.arg.evenodd]=(notisblank(pargs[cfg.arg.evenodd]))andpargs[cfg.arg.evenodd]ornil
 targs[cfg.arg.list1padding]='0px'
 targs[andnum('liststyle',1)]='background:transparent;color:inherit;'
 targs[cfg.arg.style]=concatstyles({pargs[cfg.arg.style],pargs[cfg.arg.bodystyle]})
 targs[cfg.arg.tracking]='no'

 returnp._navbox(targs)
 end--p._withColumns

 -- Template entry points
 functionp.navbox(frame,boxtype)
 localfunctionreadArgs(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
 fori=1,20do
 _=args[prefix..andnum('group',i)]
 ifinArray(cfg.keyword.subgroups,args[prefix..andnum('list',i)])then
 for_,vinipairs(cfg.arg.subgroups_and_num)do
 readArgs(args,prefix..string.format(v,i).."_")
 end
 readArgs(args,prefix..andnum('col',i).."_")
 end
 end
 _=args[prefix..cfg.arg.below]
 end

 ifnotgetArgsthen
 getArgs=require('Module:Arguments').getArgs
 end
 localargs=getArgs(frame,{wrappers={cfg.pattern[boxtypeor'navbox']}})
 readArgs(args,"")
 args.argHash=nil-- we shouldn't accept argHash passed from a template
 args.type=args.typeorcfg.keyword[boxtype]
 returnp['_navbox'](args)
 end

 p[cfg.keyword.with_collapsible_groups]=function(frame)
 returnp.navbox(frame,'with_collapsible_groups')
 end

 p[cfg.keyword.with_columns]=function(frame)
 returnp.navbox(frame,'with_columns')
 end

 returnp