Module:Portal bar/sandbox

 -- This module implements {{portal bar}}.

 require('strict')

 -- determine whether we're being called from a sandbox
 localisSandbox=mw.getCurrentFrame():getTitle():find('sandbox',1,true)
 localsandbox=isSandboxand'/sandbox'or''

 localportalModule=require('Module:Portal'..sandbox)
 localgetImageName=portalModule._image
 localcheckPortals=portalModule._checkPortals
 localprocessPortalArgs=portalModule._processPortalArgs
 localyesno=require('Module:Yesno')
 localgetArgs=require('Module:Arguments').getArgs
 localp={}

 localfunctionsandboxVersion(s)
 returnisSandboxands.."-sand"ors
 end

 -- Builds the portal bar used by {{portal bar}}.
 functionp._main(portals,args)

 -- check for sensible args
 args=type(args)=="table"andargsor{}

 -- Normalize arguments
 forkey,defaultinpairs({border=true,redlinks=false,tracking=true})do
 ifargs[key]==nilthenargs[key]=defaultend
 args[key]=yesno(args[key],default)
 end

 localnav=mw.html.create('div')
 :addClass(sandboxVersion('portal-bar'))
 :addClass('noprint metadata noviewer')
 :attr('role','navigation')
 :attr('aria-label','Portals')
 :addClass(sandboxVersion(args.borderand'portal-bar-bordered'or'portal-bar-unbordered'))

 localtrackingCat=''
 -- Allow any number of portals
 args.minPortals=0
 args.maxPortals=-1
 -- Check to see whether there are redlinks, filter out unless args.redlink is true
 portals,trackingCat=checkPortals(portals,args)
 nav:wikitext(trackingCat)
 if#portals==0then
 returntrackingCat
 end

 localrelated=yesno(args.related)
 ifrelatedthen
 nav:addClass(sandboxVersion('portal-bar-related'))
 else
 localheader=nav:tag('span')
 header:addClass(sandboxVersion('portal-bar-header'))
 header:wikitext('[[Wikipedia:Contents/Portals|Portal]]')
 if#portals>1then
 header:wikitext('s')
 end
 header:wikitext(':')
 end
 localcontainer=nav:tag('ul')
 container:addClass(sandboxVersion('portal-bar-content'))
 ifrelatedthen
 container:addClass(sandboxVersion('portal-bar-content-related'))
 end
 localsize=relatedand'28x24px'or'21x19px'
 for_,portalinipairs(portals)do
 container
 :tag('li')
 :addClass(sandboxVersion('portal-bar-item'))
 :wikitext(string.format('<span class="nowrap" aria-hidden="true">[[File:%s|%s]] </span>[[Portal:%s|%s]]',
 getImageName(portal,true),size,portal,portal))
 end

 localstyleFile='Module:Portal bar'..sandbox..'/styles.css'
 returnmw.getCurrentFrame():extensionTag{
 name='templatestyles',args={src=styleFile}
 }..tostring(nav)
 end

 -- Processes external arguments and sends them to the other functions.
 functionp.main(frame)
 localorigArgs=getArgs(frame)
 localportals,args=processPortalArgs(origArgs)
 returnp._main(portals,args)
 end

 returnp