Module:Sandbox/Nardog/14

require('strict') local data = mw.loadData('Module:Sandbox/Nardog/14d') local p = {}

function p._main(args) local code = args.code local doc = args.doc local name = args.name local desc = args.desc if not code and not doc then return mw.html.create('tr'):tag('td'):attr('colspan', 4) :tag('span') :addClass('error') :wikitext('Error:  or   must be specified') :allDone end if not code and not args.instruction then code = doc .. '.js' end if not doc then local title = code:match('^(.+)%.[CJcj][Ss][Ss]?$') if title then title = mw.title.new(title) if not title.isExternal and title.exists then doc = title.fullText end end end if not name then name = doc and mw.ustring.match(doc, '[^/]+$') or			mw.ustring.match(code, '([^/]+)%.js') end local row = mw.html.create('tr') local instruction if args.instruction ~= 'no' then instruction = args.instruction if not instruction then local isGlobal = args.skin == 'global' local temp = code:find('%.[Cc][Ss][Ss]$') and 'luss' or 'lusc' if isGlobal then local interwiki = mw.title.new(code).interwiki local path = interwiki == 'meta' and code:sub(6) or interwiki == '' and 'w:' .. code or code temp = mw.getCurrentFrame:expandTemplate{ title = temp, args = { path, '' } }:gsub('{{subst:localurl', '{{subst:fullurl'):gsub('%s*//.-$', '') else temp = string.format('{{subst:%s|1=%s%s}}',					temp,					code,					args.backlink and '|2=' .. args.backlink or ''				) end instruction = string.format(				'\'\'\'Click here\'\'\' and paste: ',				isGlobal and 'meta:' or '',				args.skin or 'common',				temp			) end instruction = mw.html.create('') :newline :tag('div') :addClass('mw-collapsible mw-collapsed userscripttable-instruction') :tag('div') :addClass('userscripttable-instruction-head') :wikitext('How to install') :done :tag('div') :addClass('mw-collapsible-content') :wikitext(instruction) :done :done end do local cell = mw.html.create('td') :wikitext(doc and string.format('%s', doc, name) or name) if args.indent and args.indent:find('^%d+$') then cell:css('padding-left', args.indent .. 'em') end if code then cell :wikitext(' ') :tag('span') :addClass('userscripttable-sourcelink') :wikitext(string.format('(source)', code)) :done end if instruction and code then cell:tag('span') :addClass('scriptInstallerLink') :attr('id', code) :done end row:node(cell) end row:tag('td') :wikitext(desc) :node(instruction) :done local stats = code and data[code] or { total = 'N/A', active = 'N/A' } row :tag('td'):wikitext(stats.total):done :tag('td'):wikitext(stats.active) return row end

function p.main(frame) local args = {} -- for k, v in pairs(frame:getParent.args) do	for k, v in pairs(frame.args or frame:getParent.args) do		if v and v ~= '' then args[k] = v		end end return p._main(args) end

return p