Modul:Asbox

--[[
This module was created by User:CodeHydro (Alexander Zhikun He).
User:Jackmcbarn and User:Mr._Stradivarius provided a great deal of assistance in writting p.main()
p.main() draw heavily from the following version of Template:Asbox of the English Wikipedia, authored primarily by User:Rich_Farmbrough
https://en.wikipedia.org/w/index.php?title=Template:Asbox&oldid=619510287
p.templatepage() is derived from the following revision of Template:Asbox/templatepage, authored primarily by User:MSGJ
https://en.wikipedia.org/w/index.php?title=Template:Asbox/templatepage&oldid=632914791
Both templates had significant contributions from numerous others listed in the revision history tab of their respective pages.
--]]
localWRAPPER_TEMPLATE,args='Templat:Asbox'
localtemplatestyles='Templat:Asbox/styles.css'
localp,Buffer,stubCats={
--Prevents dupli-cats... get it? Maybe not?
cats=setmetatable({},{__newindex=function(t,i,v)
ifnotrawget(t,i)then
rawset(t,i,v)
table.insert(t,i)
end
end}),
--initializes variables required by both p.main and p.templatepage
init=function(self,frame,page)
args,page=argsorrequire('Modul:Arguments').getArgs(frame,{
wrappers=WRAPPER_TEMPLATE
}),pageormw.title.getCurrentTitle()
--Ensures demo parameter will never affect category() output for articles
self.demo=self.demoorpage.namespace~=0andargs.demo
returnargs,page
end
},require('Modul:Buffer')
--[[
Formats category links. Stores them until called with cat.done=true
Takes multiple or single categories in the form of 'cat'
or a table of strings and/or tables containing parts. (See below)
]]
localattention,catTag,catKey=Buffer'Templat rintisan yang perlu perhatian','[[Kategori:%s]]','%s|%s%s'
localfunctioncategory(cat)
for_,vinipairs((tostring(cat)==catorcat.t)and{cat}orcat)do
--[[
		If v is a table:
			[1] = full category name; defaults to local attention if blank
			k = Category sort key. Prefix before v.t
			t = page.text or args.tempsort#; appended after k (or in its place if omitted). Required if v is not a string
		Basically the same as v = (v[1] or attention) .. ' | ' .. (v.k or '') .. v.t
		]]
ifvandv~=truethen--reject v = nil, false, or true
localthingToFormat
iftostring(v)==vthen
thingToFormat=v
else
localbuf
ifv[1]then
buf=Buffer(v[1])
else
buf=attention
end
thingToFormat=buf:_in(v.k):_(v.t):_str(2,nil,nil,'|')
end
p.cats[catTag:format(thingToFormat)]=true
end
end
returncat.doneandtable.concat(p.cats,p.demoand' | 'ornil)or''
end
--[[
Makes an ombox warning;
Takes table {ifNot = Boolean, text, {cat. sort key, cat. sort name}}
Will return an empty string instead when ifNot evaluates to true 
]]
localfunctionombox(v)
ifv.ifNotthenreturnend
p.ombox=p.omboxorrequire('Modul:Message box').ombox
category{v[2]}
returnp.ombox{
type='content',
text=v[1]
}
end
--[[
Unlike original template, module now takes unlimited cats! This function also performs
most stub category error checks except for the ombox for when main |category= is omitted (See p.template())
]]
localfunctioncatStub(page,pageDoc)
stubCats={missing={},v={}}
localcode
fork,_inpairs(args)do
--Find category parameters and store the number (main cat = '')
table.insert(stubCats,string.match(k,'^category(%d*)$'))
end
table.sort(stubCats)
fork,vinipairs(stubCats)do
--Get category names and, if called by p.templatepage, the optional sort key
localtsort,cat=args['tempsort'..v],mw.ustring.gsub(args['category'..v],'[^%w%p%s]','')--remove all hidden unicode chars 
--Do not place template in main category if |tempsort = 'no'. However, DO place articles of that template in the main category.
table.insert(stubCats.v,
pageand(--p.templatepage passes page; p.main does not, i.e. articles are categorized without sort keys.
v==''andtsort=='no'--if true, inserts 'true' in table, which category() will reject
ortsortand{cat,k=' ',t=tsort}
or{cat,k=' *',t=page.text}--note space in front of sort key
)
orcat
)
--Check category existance only if on the template page (i.e. stub documentation)
ifpagethen
ifnotmw.title.new('Kategori:'..cat).existsthen
code=codeormw.html.create'code':wikitext'|category'
table.insert(stubCats.missing,tostring(mw.clone(code):wikitext(v)))
end
--[[
			Checks non-demo stub template for documentation and flags if doc is present.
			All stub cats names are checked and flagged if it does not match 'Category: [] stub'.
			The main stub cat is exempt from the name check if the stub template has its own doc
			(presumably, this doc would have an explanation as to why the main stub cat is non-conforming).
			]]
table.insert(stubCats.v,v==''andnotp.demoandpageDoc.existsand
'Pesan templat rintisan dengan subhalaman dokumentasi'
ornotmw.ustring.match(cat,'^[Rr]intisan')and{k='S',t=page.text}
)
end
end
--Add category names after loop is completed
category(stubCats.v)
return#stubCats.missing>0andombox{
--Changed, original msg:
--One or more of the stub categories defined in this template do not seem to exist!
--Please double-check the parameters {{para|category}}, {{para|category1}} and {{para|category2}}.
'Parameter berikut'
..(#stubCats.missing==1and' mendefinisikan kategori rintisan yang'or' mendefinisikan kategori rintisan yang')
..' tidak ada: '..mw.text.listToText(stubCats.missing),
{k='N',t=page.text}
}
end
--Shows population of categories found by catStub(). Outputs demo values if none
localfunctionpopulation()
localwikitext,base={},'* [[:Kategori:%s]] (populasi: %s)\n'
ifnotargs.categoryandstubCats[1]~=falsethen
table.insert(stubCats,1,false)
end
for_,vinipairs(stubCats)do
table.insert(wikitext,base:format(
vandargs['category'..v]or'{{{category}}}',
vandmw.site.stats.pagesInCategory(args['category'..v],'all')or0
))
end
returntable.concat(wikitext)
end
--Includes standard stub documention and flags stub templates with bad parameter values.
functionp.templatepage(frame,page)
args,page=p:init(frame,page)
localtStubDoc=mw.title.new'Templat:Dokumentasi Stub'
localpageDoc=page:subPageTitle('doc')
--Reorganization note: Original Asbox alternates between outputting categories and checking on params |category#=.
--Rather than checking multiple times and switching tasks, all stub category param operations have been rolled into catStub()
returnBuffer(
ombox{--Show ombox warnings for missing args.
ifNot=args.category,
'Parameter <code>|category</code> tidak ditentukan. Harap tambahkan kategori rintisan yang sesuai.',
{k='C',t=page.text}
})
:_(ombox{
ifNot=args.subjectorargs.articleorargs.qualifier,
'Templat rintisan ini tidak berisi deskripsi! Parameter <code>|subject</code>, <code>|article</code> atau <code>|qualifier</code> harus didefinisikan semua atau salah satunya.',
{k='D',t=page.text}
})
:_(catStub(page,pageDoc))--catStub() may also return an ombox if there are non-existing categories
:_(category{
done=p.demo~='doc',--Outputs categories if not doc demo
'Templat rintisan',
'Pengecualian dalam cetakan',
args.iconand
'Templat rintisan yang menggunakan parameter ikon'
orargs.imageand(
mw.title.new('Media:'..mw.text.split(args.image,'|')[1]).exists--do nothing if exists. category() will reject true
or{k='B',t=page.text}
)
or'Templat rintisan tanpa gambar',
args.imagealtand{k='I',t=page.text},
})
:_((notp.demoorp.demo=='doc')and--Add standard stub template documentation
require('Modul:Documentation').main{
content=Buffer(page.text~='Stub'and--This comparison performed in {{Asbox/stubtree}} before it invokes Module:Asbox stubtree
require('Modul:Asbox stubtree').subtree{args={pagename=page.text}}
)
:_in'\n== Tentang templat ini ==\nTemplat ini digunakan untuk mengidentifikasi rintisan bertopik':_(args.subject):_'':_(args.qualifier):_out' '--space
:_'. Templat ini menggunakan {{[[Template:Asbox|asbox]]}}, sebuah meta-templat yang dirancang untuk memudahkan proses pembuatan dan pemeliharaan templat rintisan.\n=== Penggunaan ===\nMengetik '
:_(mw.html.create'code'
:wikitext('{{',page.text=='Stub'and'stub'orpage.text,'}}')
)
:_' menghasilkan pesan yang ditampilkan di bagian paling atas, dan menambahkan artikel ke kategor'
:_(#stubCats>1and'i'or'i')
:_':\n'
:_(population())
:_(pageDoc.existsand--transclusion of /doc if it exists
frame:expandTemplate{title=pageDoc.text}
)
:_'\n== Informasi umum ==\n'
:_(frame:expandTemplate{title=tStubDoc.text})
:_'\n\n'(),
['link box']=Buffer'Dokumentasi ini dibuat secara otomatis dengan [[Modul:Asbox]].'
:_in'Informasi umum ditransklusikan dari [[Templat:dokumentasi Stub]]. '
:_(mw.html.create'span'
:cssText'font-size:smaller;font-style:normal;line-height:130%'
:node(('([%s sunting] | [%s riwayat])'):format(
tStubDoc:fullUrl('action=edit','relative'),
tStubDoc:fullUrl('action=history','relative')
))
)
:_out()
:_(page.protectionLevels.editandpage.protectionLevels.edit[1]=='sysop'and
"Templat ini [[WP:PROTECT|diberi perlindungan penuh]], [[WP:CAT|kategori]] apa pun harus ditambahkan ke subhalaman templat ["
..pageDoc:fullUrl('action=edit&preload=Templat:Category_interwiki/preload','relative')
..'| /doc], yang tidak dilindungi.'
)' <br/>'
}
)()
end
functionp.main(frame,page)
args,page=p:init(frame,page)
localoutput=mw.html.create'div'
:attr{role='note'}
:addClass'metadata plainlinks asbox stub'
:tag'table'
:attr{role='presentation'}
:tag'tr'
:addClass'noresize'
:node((args.iconorargs.image)and
mw.html.create'td'
:wikitext(args.iconor('[[Berkas:%s|%spx|alt=%s|class=notpageimage]]'):format(
args.imageor'',
args.pixor'40x30',
args.imagealtor'Ikon rintisan',
args.imageclassor''
))
)
:tag'td'
:tag'p'
:addClass'asbox-body'
:wikitext(
Buffer'Artikel bertopik':_(args.subject):_(args.articleor''):_(args.qualifier)' ',--space
' ini adalah sebuah [[Wikipedia:Rintisan|rintisan]]. Anda dapat membantu Wikipedia dengan [',
page:fullUrl('action=edit','relative'),
' mengembangkannya].'
)
:done()
:node(args.noteand
mw.html.create()
:tag'p'
:addClass'asbox-note'
:wikitext(args.note)
:done()
)
:allDone()
:node(args.nameand
require'Modul:Navbar'._navbar{
args.name,
mini='yes',
}
)
--[[
	Stub categories for templates include a sort key; this ensures that all stub tags appear at the beginning of their respective categories.
	Articles using the template do not need a sort key since they have unique names.
	When p.demo equals 'doc', the demo stub categories will appear as those for a stub template.
	Otherwise, any non-nil p.demo will emulate article space categories (plus any error cats unless set to 'art')
	]]
ifpage.namespace==0then-- Main namespace -- "Rintisan biografi " (18) -- "Rintisan bertopik " (18)
category'Semua artikel rintisan'
if(string.sub(args.category,1,18)=="Rintisan biografi ")or(string.sub(args.category,1,18)=="rintisan biografi ")or(string.sub(args.category,1,18)=="Semua rintisan bio")then
category'Semua artikel rintisan biografi'
else
if(string.sub(args.category,1,18)=="Rintisan bertopik ")or(string.sub(args.category,1,18)=="rintisan bertopik ")or(string.sub(args.category,1,31)=="Rintisan kecamatan di Indonesia")or(string.sub(args.category,1,31)=="Rintisan kelurahan di Indonesia")then
category'Semua artikel rintisan selain dari biografi'
else
category'Semua artikel rintisan jenis gelap'
end--if
end--if
catStub()
elseifp.demothen
ifp.demo~='doc'thencatStub()end
--Unless p.demo is set to 'art', it will also include error categories normally only shown on
--the template but not in the article. The elseif after namespace == 0 means demo cats will never show in article space.
p.demodoc=p.demo~='art'andp.templatepage(frame,page)
output=mw.html.create()
:node(output)
:tag'small':wikitext(
'Kategori demo: ',
(category{done=true}:gsub('(%[%[)(Kategori:)([^|%]]-)(%|)','%1%2%3|%2%3%4'):gsub('(%[%[)(Kategori:)','%1:%2'))
):done()
:wikitext(p.demo=='doc'andp.demodocornil)
else
--Checks for valid name; emulates original template's check using {{FULLPAGENAME:{{{name|}}}}}
localnormalizedName=mw.title.new(args.nameor'')
ifnormalizedNameandnormalizedName.fullText==page.fullTextthen
output=mw.html.create():node(output):wikitext(p.templatepage(frame,page))
elseifnotpage.isSubpageandpage.namespace==10then-- Template namespace and not a subpage
category{{k=args.nameand'E'or'W',t=page.text}}
end
end
returnframe:extensionTag{name='templatestyles',args={src=templatestyles}}..tostring(output:wikitext(notp.demoandcategory{done=true}ornil))
end
returnp