Modul:WikiProject banner

require('strict')
localp={}
localsandbox-- = '/sandbox' -- BE SURE TO COMMENT OUT this definition when deploying to live
localcfg=mw.loadData('Modul:WikiProject banner/config'..(sandboxor''))
localauxiliary=cfg.auxiliary_module..(sandboxor'')
localargs_module=require('Modul:Arguments')
localmbox=require('Modul:Message box').main
localyesno=require('Modul:Yesno')
localframe=mw.getCurrentFrame()
locallang=mw.getLanguage(cfg.language)
localcurrent_title=mw.title.getCurrentTitle()
localparameter_format=function(parameter,value)
returnframe:expandTemplate{title='para',args={parameter,valueor''}}
end
localwikilink=function(link,display)
iflinkthen
returndisplayand'[['..link..'|'..display..']]'or'[['..link..']]'
else
returndisplayor''
end
end
localdisplay_error=function(text)
localspan=mw.html.create('div')
:addClass('error')
:wikitext(text)
returntostring(span)
end
localimage=function(image_name,size,alt,position)
returnimage_nameand'[[File:'
..image_name
..(sizeand'|'..sizeor'')
..(positionand'|'..positionor'')
..(altand'|alt='..altor'')
..']]'
end
localif_exists=function(target,fallback)-- function to add wikilink if target exists
localtitle=mw.title.new(target)
iftitleandtitle.existsthen
returnwikilink(target)
else
returnfallbackortarget
end
end
localimportance_mask=function(importance,scale,banner_name,pagetype,class)
---------------------------
-- Importance mask --------
---------------------------
localimportance_normalised
ifscale=='inline'then-- pass importance without change
importance_normalised=importanceor''
elseifscale=='subpage'then
localcustom_mask=banner_name:subPageTitle('importance')
ifcustom_mask.existsand#custom_mask:getContent()>1then-- pass to custom importance mask
importance_normalised=mw.text.trim(frame:expandTemplate{
title=custom_mask.prefixedText,
args={
importance=importance,
class=class,
pagetype=pagetype
}
})
end
else-- standard importance scale
importance_normalised=cfg.importance.na
ifpagetype=='article'orpagetype=='set index article'orpagetype=='redirect'orpagetype=='draft'then
localmask=cfg.importance.mask
ifimportanceandmask[importance:lower()]then-- valid importance specified
importance_normalised=mask[importance:lower()]
elseifpagetype=='article'orpagetype=='set index article'then-- unspecified or invalid importance, use "Unknown" for articles
importance_normalised=cfg.importance.unknown
end
end
end
returnimportance_normalised
end
---------------------------
-- Quality class mask -----
---------------------------
p.readarticleclass=function(options,page)-- used by _main and also Modul:Banner shell
page=pageorcurrent_title.prefixedText
localget_parameter_value=require('Modul:Template parameter value').getParameter
localsuccess,result=get_parameter_value(page,cfg.banner_shell.redirects,'class',options)
returnsuccessandresult
-- returns FALSE if banner shell template does not exist on page
-- returns BLANK if class parameter is not defined or is defined blank
-- otherwise returns class parameter
end
p.class_mask=function(class,title,FQS,pagetype,article)
localresolveFQSgrade=function(class)
returnFQSandlang:ucfirst(class)or'NA'
end
localout
title=titleormw.title.getCurrentTitle()
localns=title.namespace
class=class:match('^%s*(.-)%s*$'):lower()
ifpagetype=='redirect'orpagetype=='soft redirect'then
out=resolveFQSgrade('redirect')
elseifpagetype=='disambiguation page'then
out=resolveFQSgrade('disambig')
elseifarticleorpagetype=='article'orpagetype=='set index article'then
ifpagetype=='set index article'then
out='List'
elseifclass=='start'orclass=='stub'then-- Ucfirst
out=lang:ucfirst(class)
elseifclass=='b'orclass=='c'orclass=='fa'orclass=='fl'orclass=='a'orclass=='ga'then-- Upper-case
out=class:upper()
elseifclass=='list'orclass=='sia'orclass=='si'orclass=='sl'then-- List
out='List'
else
out=''-- unassessed
end
elseifns==7orns==711then-- File talk
ifclass=='fm'then
out='FM'
else
out=resolveFQSgrade('file')
end
else
localgrade=cfg.quality.ns_to_class[ns]or'NA'
out=resolveFQSgrade(grade)
end
returnout
end
localpage_assessment=function(project,class,importance)-- add PageAssessments parser function
localassessment=table.concat({project,classor'',importanceor''},'|')
frame:preprocess('{{#assessment:'..assessment..'}}')
end
localbubble=function(text,style)
localout=mw.html.create('span')
:addClass('wpb-header-bubbles')
:addClass(style)
:wikitext(text)
returntostring(out)
end
p._main=function(args,raw_args,demo_page,banner_name,inactive)
---------------------------
-- Initialise parameters --
---------------------------
localproject=args.PROJECTor'PROJECT'
localproject_name=args.PROJECT_NAMEor'WikiProject '..project
localproject_link=mw.title.new(args.PROJECT_LINKor'Wikipedia:'..project_name)
localpagetype=demo_page==trueand'article'orrequire('Modul:Pagetype')._main({
page=demo_page,
dab='disambiguation page',
sia='set index article',
draft='draft'
})
localarticle=pagetype=='article'orpagetype=='set index article'
localrows,nested_ratings,task_forces,notes,categories,taskforce_categories={},{},{},{},{},{}
localadd_category=function(category,key)
ifcategoryandcategory~='none'then
table.insert(categories,{category=category,key=key})
end
end
localparse_pt=function(text)-- function to replace _PAGETYPE_ with the actual page type
localptype=articleand'article'orpagetype-- display "article" for articles otherwise page type
returntextandtext:gsub('_PAGETYPE_',ptype)
end
forarg_name,arg_valueinpairs(args)do
localtf_match=mw.ustring.match(arg_name,'^tf (%d+)$')
localnote_match=mw.ustring.match(arg_name,'^note (%d+)$')
iftf_matchandyesno(arg_value,true)then
table.insert(task_forces,tf_match)
elseifnote_matchandyesno(arg_value,true)then
table.insert(notes,note_match)
else
localtf,cat=mw.ustring.match(arg_name,'^tf (%d+) cat (%d+)$')
iftfandyesno(arg_value,true)then
ifnottaskforce_categories[tf]then-- initialise table
taskforce_categories[tf]={}
end
table.insert(taskforce_categories[tf],cat)
end
end
end
table.sort(task_forces,function(x,y)returntonumber(x)<tonumber(y)end)
table.sort(notes,function(x,y)returntonumber(x)<tonumber(y)end)
localassessment_category=function(cat,name)
ifcatthen
returncat:gsub(' articles','')-- remove "articles" from category
else
returnnameor''
end
end
localassessment_cat=assessment_category(args.ASSESSMENT_CAT,project)
---------------------------
-- Location warning -------
---------------------------
localwarning=''
ifnotcurrent_title.isTalkPageandnotdemo_pagethen
localtext=cfg.namespace_warning.text:format(
current_title.talkPageTitle.fullText,
parameter_format('category','no')
)
localsortkey=current_title.namespace==10andcfg.namespace_warning.sortkey_on_template_pageorcfg.namespace_warning.sortkey
ifcurrent_title.namespace==10then-- on the Template namespace
text=text..'  '..cfg.namespace_warning.on_template_page:format(
parameter_format('BANNER_NAME'),
current_title.prefixedText
)
end
warning=mbox('ombox',{
image='[[File:'..cfg.namespace_warning.image..'|40px]]',
type=cfg.namespace_warning.type_,
text=parse_pt(text)
})
ifnotcurrent_title.subjectPageTitle:inNamespace(2)then
add_category(cfg.namespace_warning.categories,sortkey)
end
end
---------------------------
-- Substitution warning ---
---------------------------
ifargs.substcheck=='SUBST'then
localtext=cfg.subst_warning.text:format(
project_name,
'<code>&#123;&#123;'..banner_name.prefixedText..'&#125;&#125;</code>'
)
warning=warning..mbox('ombox',{
image='[[File:'..cfg.subst_warning.image..'|40px]]',
type=cfg.subst_warning.type_,
text=text,
})..cfg.subst_warning.categories
end
---------------------------
-- Primary image/text -----
---------------------------
localprimary_image=function(image_name,size)
localcell=mw.html.create('td')
ifimage_nameandimage_name~=''then
cell:addClass('mbox-image wpb-image')
:wikitext(image(image_name,size,cfg.image.alt))
else
cell:addClass('mbox-empty-cell')
end
returncell
end
localportal=args.PORTAL
localportal_box=portalandframe:expandTemplate{title='Portal',args={portal}}or''
localmain_text=portal_box..parse_pt(args.MAIN_TEXTorcfg.main_text:format(
project_link.prefixedText,
project_name,
args.MAIN_ARTICLEandif_exists(args.MAIN_ARTICLE)orif_exists(project,project..' articles'),
project_link.talkPageTitle.prefixedText
))
localimage_left_size=args.IMAGE_LEFT_SIZEorcfg.image.default_size
localmetadata=function(class,data)
returnmw.html.create('span')
:addClass(class)
:wikitext(data)
end
localtext_cell=mw.html.create('td')
:addClass('mbox-text')
:wikitext(main_text)
:tag('span')
:addClass('metadata wpb-metadata')
:node(metadata('wpb-project',project))
:node(metadata('wpb-project_link',project_link.prefixedText))
:node(metadata('wpb-banner_name',banner_name.prefixedText))
:node(metadata('wpb-assessment_cat',assessment_cat))
:done()
localprimary_row=mw.html.create('tr')
:node(primary_image(args.IMAGE_LEFT,image_left_size))
:node(text_cell)
:node(primary_image(args.IMAGE_RIGHT,args.IMAGE_RIGHT_SIZEorcfg.image.default_size))
table.insert(rows,primary_row)
---------------------------
-- Banner shell checks ----
---------------------------
localtitle=demo_pageanddemo_page~=trueandmw.title.new(demo_page)orcurrent_title
localclass=p.readarticleclass({ignore_subtemplates=true},title.prefixedText)
ifclassthen-- banner shell exists
localspecial_chars='([%%%(%)%.%+%-%*%?%[%]%^%$])'
localbanner_name_escaped=banner_name.text
localpage_content=require('Modul:Wikitext Parsing'..(sandboxor'')).PrepareText(title:getContent())-- get content of current page
localcontent_without_shell
forcaptureinmw.ustring.gmatch(page_content,'%b{}')do-- look for possible templates on page
for_,redirectinipairs(cfg.banner_shell.redirects)do
ifmw.ustring.find(capture,'^{{%s*'..redirect..'%s*[|}].*}}$')then-- found a banner shell
banner_name_escaped=banner_name_escaped:gsub(special_chars,'%%%1')-- escape each special character
capture=capture:gsub(special_chars,'%%%1')
content_without_shell=mw.ustring.gsub(page_content,capture,'')-- remove banner shell content from page content
end
ifcontent_without_shellthenbreakend
end
ifcontent_without_shellthenbreakend
end
localtemplate_outside_shell
ifcontent_without_shellandmw.ustring.find(content_without_shell,'{{%s*'..banner_name_escaped..'%s*[|}]')then-- found banner template outside of the shell
add_category(cfg.banner_shell.category.outside_shell)
end
else-- no banner shell on page
iftitle.namespace==3then--User talk namespace
for_,userinipairs(cfg.banner_shell.valid_users)do
ifstring.find(title.rootText,user)then
add_category(cfg.banner_shell.category.no_banner_shell)
end
end
elseiftitle.namespace~=2then-- not in user namespace
add_category(cfg.banner_shell.category.no_banner_shell)
end
class=''
end
---------------------------
-- Quality assessment -----
---------------------------
localassessment_link=args.ASSESSMENT_LINK
ifnotassessment_linkthen
localfallback=mw.title.new(project_link.prefixedText..'/Assessment')
assessment_link=fallback.existsandfallback.prefixedText
elseifassessment_link=='no'then
assessment_link=nil
end
localcheck_fallbacks=function(class,category)-- function to check non-article classes and automatically fall back to NA (or other) class if category does not exist
ifarticleorargs.QUALITY_CRITERIA=='custom'then-- no fallbacks for articles or projects with custom quality scales
returnclass
else-- check fallbacks for non-article classes
localnew_class=class
localcategory_exists=function(class)
localcat=mw.title.new(cfg.quality.assessment_category:format(class,category..' '..(articleand'articles'or'pages')))
returncat.existsand#cat:getContent()>0-- check if category exists and is not blank
end
ifclass=='FM'andnotcategory_exists('FM')then
new_class='File'-- fall back to File-class if FM category does not exist
end
ifnotcategory_exists(new_class)then
new_class='NA'-- use NA for non-article pages if category does not exist
end
returnnew_class
end
end
ifraw_args.classthen-- banner gives quality ratings
class=classandp.class_mask(class,title,true,pagetype,article)-- put PIQA class through standard class mask
ifargs.QUALITY_CRITERIA=='custom'then-- project has opted out of standard assessment scale and uses a custom mask
localproject_class
localcustom_mask=banner_name:subPageTitle('class')
ifcustom_mask.existsand#custom_mask:getContent()>1then
raw_args.demo_page=demo_page-- send demo_page to custom mask
project_class=mw.text.trim(frame:expandTemplate{
title=custom_mask.prefixedText,
args=raw_args
})
ifproject_class==''andclassandclass~=''then-- if unassessed and PIQA class exists, check if it can be inherited
localnew_arg_table={}
forarg,valinpairs(raw_args)do-- construct new argument table to send to custom mask
new_arg_table[arg]=val
end
new_arg_table.class=class-- replace class with inherited class
project_class=mw.text.trim(frame:expandTemplate{
title=custom_mask.prefixedText,
args=new_arg_table
})-- inherit project class from PIQA class normalised by custom mask
end
localcategory=(project_class==''and'Unassessed'orproject_class..'-Class')..' '..assessment_cat..' '..(articleand'articles'or'pages')
add_category(category)
ifclass~=project_classthen-- display project class in banner
class=project_class
localrating=project_class==''andcfg.quality.not_yetorcfg.quality.rated:format(class)
localscale=cfg.quality.project_scale:format(wikilink((assessment_linkor'')..'#'..lang:ucfirst(cfg.quality.name),cfg.quality.name))
localcssClass='class-'..(class==''and'unassessed'orclass:lower())
localclass_row=mw.html.create('tr')
:tag('td')
:addClass('assess'):addClass(cssClass)
:wikitext(wikilink(':Kategori:'..category,class==''and'???'orclass))
:done()
:tag('td')
:addClass('mbox-text')
:attr('colspan','2')
:wikitext(parse_pt(cfg.quality.rating:format(rating,scale)))
:done()
table.insert(rows,class_row)
table.insert(
nested_ratings,
1,
bubble(class==''and'Unassessed'or(class..'‑class'),cssClass)
)
end
end
else-- project uses standard PIQA assessment
class=check_fallbacks(class,assessment_cat)-- check fallbacks for non-article classes
localcategory=(class==''and'Unassessed'or(class..'-Class'))..' '..assessment_cat..' '..(articleand'articles'or'pages')
add_category(category)
ifraw_args.class~=''then-- page has a non-blank class value which is ignored
add_category(cfg.banner_shell.category.ignored_class)
end
end
end
ifargs.HOOK_ASSESSthen
table.insert(rows,args.HOOK_ASSESS)
end
ifraw_args.b1orraw_args.b2orraw_args.b3orraw_args.b4orraw_args.b5orraw_args.b6then
localb_checklist=require(auxiliary).b_checklist(args,raw_args,class,demo_page,assessment_link)
table.insert(rows,b_checklist)
end
---------------------------
-- Priority assessment ----
---------------------------
localimportance
localimportance_name=args.IMPNor(raw_args.priorityand'priority'orcfg.importance.default_name)
ifraw_args.importanceorraw_args.prioritythen-- banner gives priority ratings
importance=importance_mask(args.importanceorargs.priority,args.IMPORTANCE_SCALE,banner_name,pagetype,class)
localcategory=importance..'-'..importance_name..' '..assessment_cat..' '..(importance=='NA'and'pages'or'articles')
ifimportance~='NA'then-- display importance rating
localrating=importance=='Unknown'andcfg.importance.not_yetorcfg.importance.rated:format(importance,importance_name)
localscale=assessment_link
andcfg.importance.project_scale:format(assessment_link..'#'..lang:ucfirst(cfg.importance.scale:format(importance_name)),cfg.importance.scale:format(importance_name))
orcfg.importance.default_scale
localimportance_rating=parse_pt(cfg.importance.rating:format(rating,scale))
localcssClass='import-'..importance:lower()
localimportance_row=mw.html.create('tr')
:tag('td')
:addClass('assess')
:addClass(cssClass)
:wikitext(wikilink(':Kategori:'..category,importance=='Unknown'and'???'orimportance))
:done()
:tag('td')
:addClass('mbox-text')
:attr('colspan','2')
:wikitext(importance_rating)
:done()
table.insert(rows,importance_row)
ifimportance~='Unknown'then-- importance is not NA or Unknown
table.insert(
nested_ratings,
bubble(importance..'‑'..importance_name,cssClass)
)
end
end
add_category(category)
ifargs.QII_FORMATthen
add_category(require(auxiliary).quality_importance_insection(args,class,importance,importance_name,assessment_cat,article))
end
end
ifclassorimportancethen
page_assessment(project,class,importance)
end
ifargs.HOOK_IMPORTANCEthen
table.insert(rows,args.HOOK_IMPORTANCE)
end
---------------------------
-- Collapsing sections ----
---------------------------
localcollapse_section=function(collapse,new_rows,header)
ifcollapsethen
localheader_row=mw.html.create('tr')
:tag('th')
:attr('colspan','3')
:addClass('wpb-collapsed-head')
:wikitext(header)
:done()
localblank_row=mw.html.create('tr')
:tag('td')
:addClass('mbox-image wpb-gutter')
:css('min-width',image_left_size)
:tag('span')
:addClass('wpb-iefix')
:wikitext('/&nbsp;')
:done()--TO FIX IE
:done()
:tag('td'):done()
:tag('td'):done()
localcollapsed_rows=mw.html.create('table')
:addClass('mw-collapsible mw-collapsed')
:node(header_row)
:node(blank_row)
for_,rowinipairs(new_rows)do
collapsed_rows:node(row)
end
localcollapsed_section=mw.html.create('tr')
:tag('td')
:attr('colspan','3')
:addClass('wpb-collapsed-notes')
:node(collapsed_rows)
:done()
table.insert(rows,collapsed_section)
else
for_,rowinipairs(new_rows)do
table.insert(rows,row)
end
end
end
---------------------------
-- Task forces ------------
---------------------------
localnested_tf,taskforce_output={},{}
localtf_default_size=args.TF_SIZEorcfg.task_force.default_size
for_,kinipairs(task_forces)do
localtf_prefix='TF_'..k..'_'
localtf_assessment_cat=assessment_category(
args[tf_prefix..'ASSESSMENT_CAT'],
args[tf_prefix..'NAME']
)
ifyesno(args[tf_prefix..'QUALITY'])andclassthen
localtf_class=check_fallbacks(class,tf_assessment_cat)
add_category((tf_class==''and'Unassessed'ortf_class..'-Class')..' '..tf_assessment_cat..' '..(articleand'articles'or'pages'))
end
localtf_importance,tf_importance_category
ifraw_args['tf '..k..' importance']then
tf_importance=importance_mask(args['tf '..k..' importance'],args.IMPORTANCE_SCALE,banner_name,pagetype,class)
iftf_importance=='Unknown'andyesno(args.INHERIT_IMPORTANCE)then
tf_importance=importance
end
tf_importance_category=tf_importance..'-'..importance_name..' '..tf_assessment_cat..' '..(tf_importance=='NA'and'pages'or'articles')
add_category(tf_importance_category)
end
ifargs[tf_prefix..'TEXT']~='none'then
localportal=args[tf_prefix..'PORTAL']andframe:expandTemplate{
title='Portal',
args={args[tf_prefix..'PORTAL'],height='15',margin='0'}
}or''
localtext=''
localtf_text=args[tf_prefix..'TEXT']orargs.TF_TEXT
iftf_textthen
text=portal..tf_text
:gsub('_NAME_',args[tf_prefix..'NAME']or'')
:gsub('_LINK_',args[tf_prefix..'LINK']or'')
:gsub('_IMPORTANCE_',tf_importanceor'')
else
localtf_importance_text=tf_importance
andtf_importance~='NA'
andtf_importance~='Unknown'
and' '..cfg.task_force.importance:format(
wikilink(':Kategori:'..tf_importance_category,tf_importance..'-'..importance_name)
)or''
text=portal..cfg.task_force.text:format(
wikilink(args[tf_prefix..'LINK'],args[tf_prefix..'NAME']),
tf_importance_text
)
end
localtf_size=args[tf_prefix..'SIZE']ortf_default_size
localtf_image=''
ifargs[tf_prefix..'IMAGE']then
tf_image=image(args[tf_prefix..'IMAGE'],tf_size,cfg.task_force.icon_alt,'center')
end
localtaskforce=mw.html.create('tr')
:tag('td')
:wikitext(tf_image)
:done()
:tag('td')
:addClass('mbox-text')
:attr('colspan','2')
:wikitext(parse_pt(text))
:done()
table.insert(taskforce_output,taskforce)
end
ifargs[tf_prefix..'HOOK']then
table.insert(taskforce_output,args[tf_prefix..'HOOK'])
end
ifargs[tf_prefix..'QII_FORMAT']then
add_category(require(auxiliary).quality_importance_insection(args,class,tf_importance,importance_name,tf_assessment_cat,article,tf_prefix))
end
ifargs[tf_prefix..'NAME']then
page_assessment(project..'/'..args[tf_prefix..'NAME'],class,tf_importance)
end
ifargs[tf_prefix..'MAIN_CAT']then
add_category(args[tf_prefix..'MAIN_CAT'])
end
ifargs[tf_prefix..'NESTED']then
table.insert(nested_tf,wikilink(args[tf_prefix..'LINK'],args[tf_prefix..'NESTED']))
end
for_,cinipairs(taskforce_categories[k]or{})do-- add additional taskforce categories
add_category(args[tf_prefix..'CAT_'..c])
end
end
ifargs.HOOK_TFthen
table.insert(taskforce_output,args.HOOK_TF)
end
localthreshold=tonumber(args.TF_COLLAPSE)or(args.TF_HEADERandcfg.task_force.lower_threshold)orcfg.task_force.upper_threshold
collapse_section(
#taskforce_output>threshold,
taskforce_output,
args.TF_HEADERorcfg.task_force.header
)
---------------------------
-- Notes ------------------
---------------------------
localnote_output={}
localnote_default_size=args.NOTE_SIZEorargs.NOTE_1_SIZEorcfg.note.default_size
localrender_note=function(note_args)--text, image_name, size, category, sort_prefix
localsort=note_args.sort_prefixandnote_args.sort_prefix..current_title.text
add_category(note_args.category,sort)
add_category(note_args.category2,sort)
ifnote_args.textthen
localnote_image=image(
note_args.image_name,
note_args.sizeornote_default_size,
cfg.note.icon_alt,
'center'
)
localnew_note=mw.html.create('tr')
:tag('td')
:css('background',note_args.background)
:wikitext(note_image)
:done()
:tag('td')
:addClass('mbox-text')
:attr('colspan','2')
:wikitext(parse_pt(note_args.text))
:done()
table.insert(note_output,new_note)
ifnote_imagethen
localicon=mw.html.create('span')
:addClass('wpb-header-bubbles')
:wikitext('[[File:'..note_args.image_name..'|'..cfg.note.header_icon..'|'..parse_pt(note_args.text)..'|alt=icon]]')
table.insert(nested_ratings,tostring(icon))
end
end
end
localauto=false
localauto_arg=args.autoandargs.auto:lower()
if(auto_arg=='yes'orauto_arg=='stub')andclass=='Stub'then
auto='stub'
elseif(auto_arg=='inherit'orauto_arg=='length')andclassandclass~=''then
auto=auto_arg
end
ifautothen
localauto_cat=args.AUTO_ASSESS_CATorcfg.auto.default_cat:format(project)
localauto_text=cfg.auto.assessed:format(
cfg.auto[auto],-- method of automatic assessment
parameter_format('auto')
)
localsort_prefix
ifauto=='stub'then
sort_prefix='S'
elseifauto=='length'then
sort_prefix='L'
elseifauto=='inherit'then
localsort_codes=cfg.auto.sort_codes
sort_prefix=sort_codes[class]orcfg.auto.default_sort_code
end
render_note{
text=auto_text,
image_name=cfg.auto.icon,
category=auto_cat,
sort_prefix=sort_prefix
}
end
ifyesno(args.attention,true)then
localattention_cat=args.ATTENTION_CATorcfg.attention.default_cat:format(project)
render_note{
text=cfg.attention.text,
image_name=cfg.attention.icon,
category=attention_cat
}
end
ifyesno(args.infobox,true)then
localinfobox_cat=args.INFOBOX_CATorcfg.infobox.default_cat:format(project)
render_note{
text=cfg.infobox.text,
image_name=cfg.infobox.icon,
category=infobox_cat
}
end
for_,kinipairs(notes)do
localnote_prefix='NOTE_'..k..'_'
render_note{
text=parse_pt(args[note_prefix..'TEXT']),
image_name=args[note_prefix..'IMAGE'],
size=args[note_prefix..'SIZE'],
category=args[note_prefix..'CAT']
}
end
ifyesno(args['image-needed'],true)then
localimage_needed_args=require(auxiliary).image_needed(args)
render_note(image_needed_args)
end
ifyesno(args['collaboration-candidate'],true)oryesno(args['collaboration-current'],true)oryesno(args['collaboration-past'],true)then
localcollaboration_args=require(auxiliary).collaboration(args,current_title)
render_note(collaboration_args.candidate)
render_note(collaboration_args.current)
render_note(collaboration_args.past)
end
ifyesno(args['a class'],true)then
locala_class_args=require(auxiliary).a_class(args,lang)
render_note(a_class_args)
end
ifyesno(args['peer review'],true)oryesno(args['old peer review'],true)then
localpeer_review_args=require(auxiliary).peer_review(args,current_title)
render_note(peer_review_args.current)
render_note(peer_review_args.past)
end
localnote_count=#note_output
ifargs.HOOK_NOTEthen
table.insert(note_output,args.HOOK_NOTE)
localhook_collapsed=0
ifargs.HOOK_COLLAPSEDthen
localsuccess,result=pcall(mw.ext.ParserFunctions.expr,args.HOOK_COLLAPSED)
hook_collapsed=successandtonumber(result)or0
ifargs.HOOK_COLLAPSED=='auto'then
hook_collapsed=1
end
end
note_count=note_count+hook_collapsed
end
collapse_section(
note_count>(tonumber(args.COLLAPSED)orcfg.note.threshold),
note_output,
args.COLLAPSED_HEADorcfg.note.header
)
---------------------------
-- Bottom text ------------
---------------------------
ifargs.HOOK_BOTTOMthen
table.insert(rows,args.HOOK_BOTTOM)
end
ifargs.TODO_LINKorargs.TODO_TEXTthen
localtodolist=require(auxiliary).todo_list(args,frame)
table.insert(rows,todolist)
end
ifargs.BOTTOM_TEXTthen
localbottom_text=mw.html.create('tr')
:tag('td')
:attr('colspan','3')
:wikitext(parse_pt(args.BOTTOM_TEXT))
:done()
table.insert(rows,bottom_text)
end
ifargs.MAIN_CATthen
add_category(args.MAIN_CAT)
end
---------------------------
-- Nested display ---------
---------------------------
ifargs.HOOK_NESTEDthen
localhook_nested=args.HOOK_NESTED:gsub('^&#32;/ ','')-- remove initial slash, will be added later
table.insert(nested_tf,hook_nested)
end
localnested_tf_str=''
if#nested_tf>0then
nested_tf_str=tostring(mw.html.create('span')
:addClass('wpb-nested-task-force')
:wikitext(': '..table.concat(nested_tf,' / '))
)
end
localnested_ratings_str=#nested_ratings>0andtable.concat(nested_ratings,' ')or''
ifargs.HOOK_NESTED_ASSESSthen
nested_ratings_str=nested_ratings_str..tostring(mw.html.create('span')
:addClass('wpb-header-bubbles')
:wikitext(args.HOOK_NESTED_ASSESS)
)
end
localheader_row=mw.html.create('tr')
:addClass('wpb-header')
:tag('td')
:addClass('wpb-header-icon')
:wikitext(image(args.IMAGE_LEFT,cfg.image.header_size,cfg.image.alt))
:done()
:tag('td')
:addClass('wpb-header-combined')
:wikitext(wikilink(project_link.prefixedText,project)..nested_tf_str..'  '..nested_ratings_str)
:done()
---------------------------
-- Prepare categories -----
---------------------------
localcategories_formatted=''
ifdemo_pageanddemo_page~=truethen-- for testing purposes
localcategory_list=mw.html.create('ul')
for_,catinipairs(categories)do
localitem=mw.html.create('li')
:wikitext(wikilink(':Kategori:'..cat.category,cat.category))
category_list:node(item)
end
localcategory_box=mw.html.create('div')
:addClass('wpb-category-box')
:wikitext('Categories:')
:node(category_list)
categories_formatted=tostring(category_box)
elseifnotdemo_pagethen
localcategories_linked={}
for_,catinipairs(categories)do
localcat_link=wikilink('Kategori:'..cat.category,cat.key)
table.insert(categories_linked,cat_link)
end
categories_formatted=table.concat(categories_linked)
end
---------------------------
-- Make banner ------------
---------------------------
localbanner_rows=mw.html.create('table')
for_,rowinipairs(rows)do
banner_rows:node(row)
end
localbanner=mw.html.create('table')
:addClass('tmbox tmbox-notice mw-collapsible innercollapse wpb wpb-table')
:addClass(inactiveandcfg.inactive.classornil)
:node(header_row)
:tag('tr')
:tag('td')
:addClass('mbox-text wpb-main')
:attr('colspan','2')
:node(banner_rows)
:allDone()
localtstyle=frame:extensionTag('templatestyles','',{src='Modul:Message box/tmbox.css'})..
frame:extensionTag('templatestyles','',{src='Modul:WikiProject banner'..(sandboxor'')..'/styles.css'})
returnwarning..tstyle..tostring(banner)..categories_formatted,note_count,#taskforce_output,assessment_link
end
localinitialise=function(args,raw_args,inactive_status)
---------------------------
-- Initialise arguments ---
---------------------------
localparent_args=args_module.getArgs(frame,{parentOnly=true})
localcategory=parent_args.categoryorargs.categoryortrue
localdemo_page=parent_args.demo_page
localconfig,project
ifargs.projectthen-- check for config page
project=args.project
localconfig_file=mw.title.new('Templat:WikiProject '..args.project..'/config')
ifconfig_file.existsthen
config=mw.loadJsonData(config_file.fullText)
else
returnnil
end
end
ifconfigthen-- use config file
ifparent_args.taskforcethen-- split comma-separated list
fortaskforceinmw.text.gsplit(parent_args.taskforce,',%s*')do
parent_args[taskforce]='yes'
end
end
args,raw_args=require(auxiliary).map_config(config,parent_args)-- map parameters from config page
args.PROJECT=project
end
localon_template_page=false
localbanner_name=mw.title.new(args.BANNER_NAMEor'Template:WikiProject '..(args.PROJECTor'PROJECT'))
ifnotdemo_pagethen
ifyesno(category,true)then
on_template_page=current_title.rootPageTitle==banner_name.rootPageTitle
else
demo_page=true
end
end
localproject_name=args.PROJECT_NAMEor'WikiProject '..(args.PROJECTor'PROJECT')
localunknown_parameters=''
ifbanner_name.existsandnotdemo_pagethen-- check for unknown parameters
localparameter_list={}
forparameterinbanner_name:getContent():gmatch('{{{([^|}]+)')do
parameter_list[parameter]=true
end
ifparameter_list.importance==truethen-- add priority as a valid alias of importance
parameter_list.priority=true
end
ifargs.QUALITY_CRITERIA~='custom'then-- class is unrecognised, so remove from list
parameter_list.class=false
end
parameter_list.listas=false-- remove listas even if parameter used (should be in banner shell)
localparameters,paramer_list={}
fork,vinpairs(parameter_list)do
ifvthen
table.insert(parameters,k)
end
end
parameters.showblankpositional="1"
localcheck_for_unknown=require('Modul:Check for unknown parameters')._check
localunknowns=check_for_unknown(parameters,parent_args)
ifunknownsandunknowns~=''then-- there are some unknown parameters
parameters.preview=cfg.unknown_parameters.preview:format(wikilink(banner_name.fullText))
localunknown_category=cfg.unknown_parameters.tracking:format(project_name)
ifnotmw.title.new(unknown_category).existsthen
unknown_category=cfg.unknown_parameters.default
end
parameters.unknown=unknown_categoryand'[['..unknown_category..'|_VALUE_]]'or''
unknown_parameters=check_for_unknown(parameters,parent_args)
end
end
ifnotargs.importancethen-- allow priority to be used even by banners which don't support it
args.importance=parent_args.priority
end
ifon_template_pagethen
localtemplatepage=require('Modul:WikiProject banner/templatepage'..(sandboxor'')).templatepage
returntemplatepage(args,raw_args,inactive_status,config)
else
returnunknown_parameters
..p._main(args,raw_args,demo_page,banner_name,inactive_statusandtrueorfalse),nil-- nil to disregard subsequent returned values
end
end
p.main=function(frame)
localargs=args_module.getArgs(frame,{frameOnly=true})
localraw_args=args_module.getArgs(frame,{frameOnly=true,removeBlanks=false})
returninitialise(args,raw_args)
end
---------------------------
-- Inactive projects ------
---------------------------
p.inactive=function(frame)
localargs=args_module.getArgs(frame,{frameOnly=true})
localproject_name=args.PROJECT_NAMEor'WikiProject '..(args.PROJECTor'PROJECT')
localproject_link=mw.title.new(args.PROJECT_LINKor'Wikipedia:'..project_name)
local_status=cfg.inactive.status[args.PROJECT_STATUS]orcfg.inactive.default
localmain_text=cfg.inactive.text:format(
project_link.prefixedText,
project_name,
_status
)
returninitialise(
{
PROJECT=args.PROJECT,
BANNER_NAME=args.BANNER_NAME,
IMAGE_LEFT=cfg.inactive.image,
IMAGE_LEFT_SIZE=cfg.inactive.image_size,
MAIN_TEXT=main_text,
HOOK_NESTED_ASSESS=' '..cfg.inactive.nested:format(_status),
substcheck=args.substcheck,
category=args.category
},{
substcheck=''-- to prevent warning on templatepage
},_status
)
end
returnp