Module:RfD

local p = {}

local getTargetFromText
local messageBox

local mboxText = "'''The purpose of this redirect is currently being discussed by the Wikipedia community."
	.. " The outcome of the discussion may result in a change of this page, or possibly its deletion in accordance with Wikipedia's [[Wikipedia:Deletion policy|deletion policy]].''' <br />"
	.. " Please share your thoughts on the matter at '''[[Wikipedia:Redirects for discussion/Log/%s %s %s#%s|this redirect's entry]]''' on the [[Wikipedia:Redirects for discussion|Redirects for discussion]] page.<br />"
	.. "  '''Click on the link below''' to go to the current destination page.<br /><small>Please notify the good-faith creator and any main contributors of the redirect by placing <code>&#123;&#123;[[Wikipedia:Substitution|subst]]:[[Template:RFDNote|RFDNote]]&#124;%s&#125;&#125; &#126;&#126;&#126;&#126;</code> on their talk page.</small>"
local deleteReason = '[[Wikipedia:Redirects for discussion]] debate closed as delete'

local function makeRfdNotice(args)
	local currentTitle = mw.title.getCurrentTitle()
	if not messageBox then
		messageBox = require('Module:Message box')
	end
	local discussionPage = args[1] and mw.text.trim(args[1])
	if discussionPage == '' then
		discussionPage = nil
	end
	return string.format('%s<span id="delete-reason" style="display:none;">%s</span>%s',
		messageBox.main('mbox', {
			type = 'delete',
			image = 'none',
			text = string.format(mboxText, args.year, args.month, args.day, discussionPage or currentTitle.prefixedText, currentTitle.prefixedText)
		}),
		mw.uri.encode(deleteReason),
		args.category or string.format('[[Category:Redirects for discussion|%s]]', currentTitle.text)
	)
end

-- called if the redirect up for discussion is being transcluded
p['1'] = function(frame)
	if not getTargetFromText then
		getTargetFromText = require('Module:Redirect').getTargetFromText
	end
	local target = getTargetFromText(frame.args.content)
	if target then
		target = mw.title.new(target)
	end
	if target and not target:isRedirect() and target ~= mw.title.getCurrentTitle() then
		return frame:getParent():preprocess(mw.title.new():getContent())
	else
		return p[''](frame)
	end
end

-- called if the redirect up for discussion is being viewed
p[''] = function(frame)
	return makeRfdNotice(frame.args) .. '\n' .. frame.args.content
end

local substText = '{{ {{{|safesubst:}}}#invoke:RfD|<includeonly>1</includeonly>|%s|%s\n'
	.. '<!-- The above content is generated by {{subst:rfd}}. -->\n<!-- End of RFD message. Don\'t edit anything above here, but feel free to edit below here. -->|content=\n%s\n'
	.. '<!-- Don\'t add anything after this line. -->\n}}'
local dateText = 'month = %B\n|day = %e\n|year = %Y\n|time = %R\n|timestamp = %Y%m%d%H%M%S'

-- called during subst when the template is initially placed on the page
function p.main(frame)
	local titleText
	local pargs = frame:getParent().args
	if pargs[1] then
		titleText = mw.title.new(pargs[1]).prefixedText
	else
		titleText = mw.title.getCurrentTitle().prefixedText
	end
	local retval = string.format(substText, titleText, os.date(dateText), pargs.content or '')
	if mw.isSubsting() then
		return retval
	else
		return frame:expandTemplate{title = 'Template:Error:must be substituted', args = {'rfd'}} .. frame:preprocess(retval)
	end
end

return p