Module:Portal toolbox

This module implements {{Portal toolbox}}. Please see the template page for documentation.

---

local getArgs = require('Module:Arguments').getArgs

p = {}

local function toolbox_header_row(frame, tbl, text)
	local row = tbl:tag('tr')
	row:tag('th')
		:attr('colspan', '2')
		:wikitext(text)
end

local function edit(frame, pagename)
	return frame:expandTemplate{ title='edit', args={ pagename } }
end

local function toolbox_template_row(frame, tbl, pagename)
	local row = tbl:tag('tr')
	row:tag('td')
		:wikitext(frame:expandTemplate{ title='tl', args={ pagename } })
	row:tag('td')
		:wikitext(edit(frame, 'Template:' .. pagename))
end

local function toolbox_row(frame, tbl, pagename, text, right)
	local row = tbl:tag('tr')
	row:tag('td')
		:wikitext('[[' .. pagename .. '|' .. (text or pagename) .. ']]')
	row:tag('td')
		:wikitext(right)
end

local function toolbox_section(frame, args, tbl, section_header, prefix, page_prefix, row_function)
	if row_function == nil then
		row_function = toolbox_row
	end
	local nums = {}
	for k, _ in pairs(args) do
		if type(k) == 'string' then
			local num = k:match('^' .. prefix .. '(%d+)$')
			if num then
				table.insert(nums, tonumber(num))
			end
		end
	end
	if #nums == 0 then
		return
	end
	table.sort(nums)
	toolbox_header_row(frame, tbl, section_header)
	for _, num in ipairs(nums) do
		local arg_name = prefix .. num
		local a = args[arg_name]
		local pagename = page_prefix .. a
		local text = args[arg_name .. 'text']
		local right = args[arg_name .. 'right']
		if text == nil then
			text = a
		end
		if right == nil then
			right = edit(frame, pagename)
		end
		row_function(frame, tbl, pagename, text, right)
	end
end

local function main(frame)
	local args = getArgs(frame)
	local tbl = mw.html.create('table')
		:cssText('float:right; border:1px navy solid;')
	tbl:tag('caption')
		:wikitext('Portal toolbox')
	toolbox_header_row(frame, tbl, 'Main portal page')
	local rootTitle = mw.title.getCurrentTitle().rootPageTitle.subjectPageTitle
	toolbox_row(frame, tbl, rootTitle.fullText, nil, edit(frame, rootTitle.fullText))
	
	toolbox_section(frame, args, tbl, 'Static subpages', 'static', rootTitle.fullText .. '/')
	toolbox_section(frame, args, tbl, 'Dynamic subpages', 'dynamic', rootTitle.fullText .. '/')
	toolbox_section(frame, args, tbl, 'Templates', 'template', '', toolbox_template_row)
	toolbox_section(frame, args, tbl, 'Other', 'other', '')
	return tbl
end

p.main = main

return p