Module:Navbar/sandbox

 localp={}
 localcfg=mw.loadData('Module:Navbar/configuration')

 localfunctionget_title_arg(is_collapsible,template)
 localtitle_arg=1
 ifis_collapsiblethentitle_arg=2end
 iftemplatethentitle_arg='template'end
 returntitle_arg
 end

 localfunctionchoose_links(template,args)
 -- The show table indicates the default displayed items.
 -- view, talk, edit, hist, move, watch
 -- TODO: Move to configuration.
 localshow={true,true,true,false,false,false}
 iftemplatethen
 show[2]=false
 show[3]=false
 localindex={t=2,d=2,e=3,h=4,m=5,w=6,
 talk=2,edit=3,hist=4,move=5,watch=6}
 -- TODO: Consider removing TableTools dependency.
 for_,vinipairs(require('Module:TableTools').compressSparseArray(args))do
 localnum=index[v]
 ifnumthenshow[num]=trueend
 end
 end

 localremove_edit_link=args.noedit
 ifremove_edit_linkthenshow[3]=falseend

 returnshow

 end

 localfunctionadd_link(link_description,ul,is_mini,font_style)
 locall
 iflink_description.urlthen
 l={'[','',']'}
 else
 l={'[[','|',']]'}
 end
 ul:tag('li')
 :addClass('nv-'..link_description.full)
 :wikitext(l[1]..link_description.link..l[2])
 :tag(is_miniand'abbr'or'span')
 :attr('title',link_description.html_title)
 :cssText(font_style)
 :wikitext(is_miniandlink_description.miniorlink_description.full)
 :done()
 :wikitext(l[3])
 :done()
 end

 localfunctionmake_list(title_text,has_brackets,displayed_links,is_mini,font_style)

 localtitle=mw.title.new(mw.text.trim(title_text),cfg.title_namespace)
 ifnottitlethen
 error(cfg.invalid_title..title_text)
 end
 localtalkpage=title.talkPageTitleandtitle.talkPageTitle.fullTextor''

 -- TODO: Get link_descriptions and show into the configuration module.
 -- link_descriptions should be easier...
 locallink_descriptions={
 {['mini']='v',['full']='view',['html_title']='View this template',
 ['link']=title.fullText,['url']=false},
 {['mini']='t',['full']='talk',['html_title']='Discuss this template',
 ['link']=talkpage,['url']=false},
 {['mini']='e',['full']='edit',['html_title']='Edit this template',
 ['link']='Special:EditPage/'..title.fullText,['url']=false},
 {['mini']='h',['full']='hist',['html_title']='History of this template',
 ['link']='Special:PageHistory/'..title.fullText,['url']=false},
 {['mini']='m',['full']='move',['html_title']='Move this template',
 ['link']=mw.title.new('Special:Movepage'):fullUrl('target='..title.fullText),['url']=true},
 {['mini']='w',['full']='watch',['html_title']='Watch this template',
 ['link']=title:fullUrl('action=watch'),['url']=true}
 }

 localul=mw.html.create('ul')
 ifhas_bracketsthen
 ul:addClass(cfg.classes.brackets)
 :cssText(font_style)
 end

 fori,_inipairs(displayed_links)do
 ifdisplayed_links[i]thenadd_link(link_descriptions[i],ul,is_mini,font_style)end
 end
 returnul:done()

 end

 functionp._navbar(args)

 -- TODO: We probably don't need both fontstyle and fontcolor...
 localfont_style=args.fontstyle
 localfont_color=args.fontcolor
 localis_collapsible=args.collapsible
 localis_mini=args.mini
 localis_plain=args.plain

 localcollapsible_class=nil
 ifis_collapsiblethen
 collapsible_class=cfg.classes.collapsible
 ifnotis_plainthenis_mini=1end
 iffont_colorthen
 font_style=(font_styleor'')..'; color: '..font_color..';'
 end
 end

 localnavbar_style=args.style
 localdiv=mw.html.create():tag('div')
 div
 :addClass(cfg.classes.navbar)
 :addClass(cfg.classes.plainlinks)
 :addClass(cfg.classes.horizontal_list)
 :addClass(collapsible_class)-- we made the determination earlier
 :cssText(navbar_style)

 ifis_minithendiv:addClass(cfg.classes.mini)end

 localbox_text=(args.textorcfg.box_text)..' '
 -- the concatenated space guarantees the box text is separated
 ifnot(is_minioris_plain)then
 div
 :tag('span')
 :addClass(cfg.classes.box_text)
 :cssText(font_style)
 :wikitext(box_text)
 end

 localtemplate=args.template
 localdisplayed_links=choose_links(template,args)
 localhas_brackets=args.brackets
 localtitle_arg=get_title_arg(is_collapsible,template)
 localtitle_text=args[title_arg]or(':'..mw.getCurrentFrame():getParent():getTitle())
 locallinks=''
 ifargs.vte_links_overridethen
 links=args.vte_links_override
 div:wikitext(links)
 else
 links=make_list(title_text,has_brackets,displayed_links,is_mini,font_style)
 div:node(links)
 end

 ifis_collapsiblethen
 localtitle_text_class
 ifis_minithen
 title_text_class=cfg.classes.collapsible_title_mini
 else
 title_text_class=cfg.classes.collapsible_title_full
 end
 div:done()
 :tag('div')
 :addClass(title_text_class)
 :cssText(font_style)
 :wikitext(args[1])
 end

 localframe=mw.getCurrentFrame()
 -- hlist -> navbar is best-effort to preserve old Common.css ordering.
 returnframe:extensionTag{
 name='templatestyles',args={src=cfg.hlist_templatestyles}
 }..frame:extensionTag{
 name='templatestyles',args={src=cfg.templatestyles}
 }..tostring(div:done())
 end

 functionp.navbar(frame)
 returnp._navbar(require('Module:Arguments').getArgs(frame))
 end

 returnp