Diff: Module:Template link general

-- This implements Template:Tlg

-- This implements Template:Tlg

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

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

local p = {}

local p = {}

-- Is a string non-empty?

-- Is a string non-empty?

local function _ne(s) 

local function _ne(s) 

	return s ~= nil and s ~= ""

	return s ~= nil and s ~= ""

end

end

local nw = mw.text.nowiki

local nw = mw.text.nowiki

local function addTemplate(s)

local function addTemplate(s)

	local i, _ = s:find(':', 1, true)

	local i, _ = s:find(':', 1, true)

	if i == nil then

	if i == nil then

		return 'Template:' .. s

		return 'Template:' .. s

	end

	end

	local ns = s:sub(1, i - 1)

	local ns = s:sub(1, i - 1)

	if ns == '' or mw.site.namespaces[ns] then

	if ns == '' or mw.site.namespaces[ns] then

		return s

		return s

	else

	else

		return 'Template:' .. s

		return 'Template:' .. s

	end

	end

end

end

local function trimTemplate(s)

local function trimTemplate(s)

	local needle = 'template:'

	local needle = 'template:'

	if s:sub(1, needle:len()):lower() == needle then

	if s:sub(1, needle:len()):lower() == needle then

		return s:sub(needle:len() + 1)	

		return s:sub(needle:len() + 1)	

	else

	else

		return s

		return s

	end

	end

end

end

local function linkTitle(args)

local function linkTitle(args)

	if _ne(args.nolink) then

	if _ne(args.nolink) then

		return args['1']

		return args['1']

	end

	end

	local titleObj

	local titleObj

	local titlePart = '[['

	local titlePart = '[['

	if args['1'] then

	if args['1'] then

		-- This handles :Page and other NS

		-- This handles :Page and other NS

		titleObj = mw.title.new(args['1'], 'Template')

		titleObj = mw.title.new(args['1'], 'Template')

	else

	else

		titleObj = mw.title.getCurrentTitle()

		titleObj = mw.title.getCurrentTitle()

	end

	end

	titlePart = titlePart .. (titleObj ~= nil and titleObj.fullText or

	titlePart = titlePart .. (titleObj ~= nil and titleObj.fullText or

				addTemplate(args['1']))

				addTemplate(args['1']))

	local textPart = args.alttext

	local textPart = args.alttext

	if not _ne(textPart) then

	if not _ne(textPart) then

		if titleObj ~= nil then

		if titleObj ~= nil then

			textPart = titleObj:inNamespace("Template") and args['1'] or titleObj.fullText

			textPart = titleObj:inNamespace("Template") and args['1'] or titleObj.fullText

		else

		else

			-- redlink

			-- redlink

			textPart = args['1']

			textPart = args['1']

		end

		end

	end

	end

	if _ne(args.subst) then

	if _ne(args.subst) then

		-- HACK: the ns thing above is probably broken

		-- HACK: the ns thing above is probably broken

		textPart = 'subst:' .. textPart

		textPart = 'subst:' .. textPart

	end

	end

	if _ne(args.brace) then

	if _ne(args.brace) then

		textPart = nw('{{') .. textPart .. nw('}}')

		textPart = nw('{{') .. textPart .. nw('}}')

	elseif _ne(args.braceinside) then

	elseif _ne(args.braceinside) then

		textPart = nw('{') .. textPart .. nw('}')

		textPart = nw('{') .. textPart .. nw('}')

	end

	end

	titlePart = titlePart .. '|' .. textPart .. ']]'

	titlePart = titlePart .. '|' .. textPart .. ']]'

	if _ne(args.braceinside) then

	if _ne(args.braceinside) then

		titlePart = nw('{') .. titlePart .. nw('}')

		titlePart = nw('{') .. titlePart .. nw('}')

	end

	end

	return titlePart

	return titlePart

end

end

function p.main(frame)

function p.main(frame)

	local args = getArgs(frame, {

	local args = getArgs(frame, {

		trim = true,

		trim = true,

		removeBlanks = false

		removeBlanks = false

	})

	})

	return p._main(args)

	return p._main(args)

end

end

function p._main(args)

function p._main(args)

	local bold = _ne(args.bold) or _ne(args.boldlink) or _ne(args.boldname)

	local bold = _ne(args.bold) or _ne(args.boldlink) or _ne(args.boldname)

	local italic = _ne(args.italic) or _ne(args.italics)

	local italic = _ne(args.italic) or _ne(args.italics)

	local dontBrace = _ne(args.brace) or _ne(args.braceinside)

	local dontBrace = _ne(args.brace) or _ne(args.braceinside)

	local code = _ne(args.code) or _ne(args.tt)

	local code = _ne(args.code) or _ne(args.tt)

	local show_result = _ne(args._show_result)

	local show_result = _ne(args._show_result)

	local expand = _ne(args._expand)

	local expand = _ne(args._expand)

	-- Build the link part

	-- Build the link part

	local titlePart = linkTitle(args)

	local titlePart = linkTitle(args)

	if bold then titlePart = "'''" .. titlePart .. "'''" end

	if bold then titlePart = "'''" .. titlePart .. "'''" end

	if _ne(args.nowrapname) then titlePart = '<span class="nowrap">' .. titlePart .. '</span>' end

	if _ne(args.nowrapname) then titlePart = '<span class="nowrap">' .. titlePart .. '</span>' end

	-- Build the arguments

	-- Build the arguments

	local textPart = ""

	local textPart = ""

	local textPartBuffer = "|"

	local textPartBuffer = "|"

	local codeArguments = {}

	local codeArguments = {}

	local codeArgumentsString = ""

	local codeArgumentsString = ""

	local i = 2

	local i = 2

	local j = 1

	local j = 1

	while args[i] do

	while args[i] do

		local val = args[i]

		local val = args[i]

		if val ~= "" then

		if val ~= "" then

			if _ne(args.nowiki) then

			if _ne(args.nowiki) then

				-- Unstrip nowiki tags first because calling nw on something that already contains nowiki tags will

				-- Unstrip nowiki tags first because calling nw on something that already contains nowiki tags will

				-- mangle the nowiki strip marker and result in literal UNIQ...QINU showing up

				-- mangle the nowiki strip marker and result in literal UNIQ...QINU showing up

				val = nw(mw.text.unstripNoWiki(val))

				val = nw(mw.text.unstripNoWiki(val))

			end

			end

			local k, v = string.match(val, "(.*)=(.*)")

			local k, v = string.match(val, "(.*)=(.*)")

			if not k then

			if not k then

				codeArguments[j] = val

				codeArguments[j] = val

				j = j + 1

				j = j + 1

			else

			else

				codeArguments[k] = v

				codeArguments[k] = v

			end

			end

			codeArgumentsString = codeArgumentsString .. textPartBuffer .. val

			codeArgumentsString = codeArgumentsString .. textPartBuffer .. val

			if italic then

			if italic then

				val = '<span style="font-style:italic;">' .. val .. '</span>'

				val = '<span style="font-style:italic;">' .. val .. '</span>'

			end

			end

			textPart = textPart .. textPartBuffer .. val

			textPart = textPart .. textPartBuffer .. val

		end

		end

		i = i + 1

		i = i + 1

	end

	end

	-- final wrap

	-- final wrap

	local ret = titlePart .. textPart

	local ret = titlePart .. textPart

	if not dontBrace then ret = nw('{{') .. ret .. nw('}}') end

	if not dontBrace then ret = nw('{{') .. ret .. nw('}}') end

	if _ne(args.a) then ret = nw('*') .. ' ' .. ret end

	if _ne(args.a) then ret = nw('*') .. ' ' .. ret end

	if _ne(args.kbd) then ret = '<kbd>' .. ret .. '</kbd>' end

	if _ne(args.kbd) then ret = '<kbd>' .. ret .. '</kbd>' end

	if code then

	if code then

		ret = '<code>' .. ret .. '</code>'

		ret = '<code>' .. ret .. '</code>'

	elseif _ne(args.plaincode) then

	elseif _ne(args.plaincode) then

		ret = '<code style="border:none;background:transparent;">' .. ret .. '</code>'

		ret = '<code style="border:none;background:transparent;">' .. ret .. '</code>'

	end

	end

	if _ne(args.nowrap) then ret = '<span class="nowrap">' .. ret .. '</span>' end

	if _ne(args.nowrap) then ret = '<span class="nowrap">' .. ret .. '</span>' end

	--[[ Wrap as html?? 

	--[[ Wrap as html?? 

	local span = mw.html.create('span')

	local span = mw.html.create('span')

	span:wikitext(ret)

	span:wikitext(ret)

	--]]

	--]]

	if _ne(args.debug) then ret = ret .. '\n<pre>' .. mw.text.encode(mw.dumpObject(args)) .. '</pre>' end

	if _ne(args.debug) then ret = ret .. '\n<pre>' .. mw.text.encode(mw.dumpObject(args)) .. '</pre>' end

	if show_result then

	if show_result then

		local result = mw.getCurrentFrame():expandTemplate{title = addTemplate(args[1]), args = codeArguments}

		local result = mw.getCurrentFrame():expandTemplate{title = addTemplate(args[1]), args = codeArguments}

		ret = ret .. " → " .. result

		ret = ret .. " → " .. result

	end

	end

	if expand then

	if expand then

		local query = mw.text.encode('{{' .. addTemplate(args[1]) .. string.gsub(codeArgumentsString, textPartBuffer, "|") .. '}}')

		local query = mw.text.encode('{{' .. addTemplate(args[1]) .. string.gsub(codeArgumentsString, textPartBuffer, "|") .. '}}')

		local url = mw.uri.fullUrl('special:ExpandTemplates', 'wpInput=' .. query)

		local url = mw.uri.fullUrl('special:ExpandTemplates', 'wpInput=' .. query)

		mw.log()

		mw.log()

		ret = ret .. " [" .. tostring(url) .. "]"

		ret = ret .. " [" .. tostring(url) .. "]"

	end

	end

	return ret

	return ret

end

end

return p

return p