Module:Sandbox

Documentation for this module may be created at Module:Sandbox/doc

local p = {}

function p.test(frame)
	local number_of_args = ""
	
	for k,v in pairs(frame.args) do
		number_of_args = number_of_args .. k .. ": " .. v .. ", "
	end
	return number_of_args
end

function p.Sandbox(frame)
local title = mw.title.new("asdf")
local content = title:getContent()
local length = string.len(content)
return length
end


-- begin navbox
local function renderTitleRow(tbl, title)
	if title ~= nil then
		local titleRow  = tbl:tag('tr')
		-- this will probably always be 2 in our stripped-down implementation
		local colspan = 2
		
		local titleCell = titleRow:tag('th')
			:attr('colspan', colspan)
			:css('text-align', 'center')
			:wikitext(title)
	end
end

local function renderListRow(tbl, groupX, listX)
	if listX ~= nil then
		local listRow = tbl:tag('tr')
		local listCell
		if groupX ~= nil then
			local groupCell = listRow:tag('th')
				:attr('colspan', 1)
				:css('text-align', 'right')
				:wikitext(groupX)
			
			listCell = listRow:tag('td')
				:attr('colspan', 1)
				:css('text-align', 'left')
				:css('border-left', '1px #9ca6c2 solid')
		else
			listCell = listRow:tag('td')
				:attr('colspan', 2)
				:css('text-align', 'center')
		end
		-- args are automatically trimmed, so we need to insert newline to make lists work properly
		listCell:wikitext('\n' .. listX)
	end
end

local function renderTable(args, listnums)
	local tbl = mw.html.create('table')
		:addClass('article-table')
		:addClass('hlist')
		:addClass('nowraplinks')
		:css('border', '2px solid #9ca6c2')

	if args.title ~= nil then
		renderTitleRow(tbl, args.title)
	end
	
	for i, listnum in ipairs(listnums) do
		renderListRow(tbl, args["group" .. tostring(listnum)], args["list" .. tostring(listnum)])
	end
	
	return tbl
end

function p.navbox(frame)
	-- get sorted list numbers out of arg array
	local listnums = {}
	for k, v in pairs(frame.args) do
		local listnum = k:match('^list(%d+)$')
		if listnum then
			table.insert(listnums, tonumber(listnum))
		end
	end
	table.sort(listnums)
	
	return renderTable(frame.args, listnums)
end
-- end navbox

function p.name_replace(frame)
	local sender = frame.args["Sender"]
	if sender ~= nil or sender == "" then
		local sender_orig
		local additional
		for name, addtl in string.gmatch(sender, "([^< ]+)(.*)$") do
			sender_orig = name
			additional = addtl
		end
		
		return "HELLO" .. sender_orig .. "WORLD" .. additional
	end
	
	return nil
end

return p