Module:XfD old/sandbox

Module documentation[view] [edit] [history] [purge]

This module provides various tasks relating to old XfDs:

1. Produces the "Old discussions" at Wikipedia:Templates for discussion and Wikipedia:Templates for discussion/All current discussions, and Wikipedia:Files for discussion
2. Populates Wikipedia:Categories for discussion/Awaiting closure
3. Populates Wikipedia:Categories for discussion/All old discussions
4. Implements {{XFD backlog}}

The above documentation is transcluded from Module:XfD old/doc. (edit | history)
Editors can experiment in this module's sandbox (edit | diff) and testcases (edit) pages.
Add categories to the /doc subpage. Subpages of this module.

local p = {}
local tableTools = require("Module:TableTools")
local ymd = require("Module:YMD to ISO")._main
local lang = mw.getContentLanguage()
function sortkey(name1, name2)
	local key1 = ymd(mw.ustring.match(name1, "Log/(.*)"))
	local key2 = ymd(mw.ustring.match(name2, "Log/(.*)"))
	return key1 > key2
end
function p._main(frame, makeoutput)
	local t = frame.args.title or frame:getParent():getTitle()
	local content = mw.title.new(t .. "/Old unclosed discussions"):getContent();
	local m = mw.ustring.gmatch(content, "* %[%[(" .. t .. "/Log/[^#]*)")
	local seen = {}
	while true do
		local x = m()
		if not x then
			break
		end
		if seen[x] == nil then
			seen[x] = 0
		end
		seen[x] = seen[x] + 1
	end
	local out = ""
	for k, v in tableTools.sortedPairs(seen, sortkey) do
		out = out .. makeoutput(k, v)
	end
	return mw.text.trim(out)
end
function p.list(frame) 
	local function listoutput(k, v)  
		return "* [[" .. k .. "]] (" .. tostring(v) .. " open) \n"
	end
	return p._main(frame, listoutput)
end
p.main = p.list
function p.transclude(frame) 
	local function transoutput(k, v) 
		return frame:preprocess("{{" .. k .. "}}")
	end
	return p._main(frame, transoutput)
end
return p