Módulo:Link de predefinição em geral

A documentação para este módulo pode ser criada na página Módulo:Link de predefinição em geral/doc

-- Isso implementa a Predefinição:Tlg
local getArgs = require('Módulo:Arguments').getArgs
local p = {}
-- Uma string não está vazia?
local function _ne(s) 
				return s ~= nil and s ~= ""
end
local nw = mw.text.nowiki
local function addTemplate(s)
				local i, _ = s:find(':', 1, true)
				if i == nil then
								return 'Predefinição:' .. s
				end
				local ns = s:sub(1, i - 1)
				if ns == '' or mw.site.namespaces[ns] then
								return s
				else
								return 'Predefinição:' .. s
				end
end
local function trimTemplate(s)
				local needle = 'Predefinição:'
				if s:sub(1, needle:len()):lower() == needle then
								return s:sub(needle:len() + 1)    
				else
								return s
				end
end
local function linkTitle(args)
				if _ne(args.nolink) then
								return args['1']
				end
				
				local titleObj
				local titlePart = '[['
				if args['1'] then
								-- Isso lida com :Page e outros NS
								titleObj = mw.title.new(args['1'], 'Predefinição')
				else
								titleObj = mw.title.getCurrentTitle()
				end
				
				titlePart = titlePart .. (titleObj ~= nil and titleObj.fullText or
																addTemplate(args['1']))
				
				local textPart = args.alttext
				if not _ne(textPart) then
								if titleObj ~= nil then
												textPart = titleObj:inNamespace("Predefinição") and args['1'] or titleObj.fullText
								else
												-- ligação vermelha
												textPart = args['1']
								end
				end
				
				if _ne(args.subst) then
								-- hack: a coisa do ns acima provavelmente está quebrada
								textPart = 'subst:' .. textPart
				end
				
				if _ne(args.brace) then
								textPart = nw('{{') .. textPart .. nw('}}')
				elseif _ne(args.braceinside) then
								textPart = nw('{') .. textPart .. nw('}')
				end
				
				titlePart = titlePart .. '|' .. textPart .. ']]'
				if _ne(args.braceinside) then
								titlePart = nw('{') .. titlePart .. nw('}')
				end
				return titlePart
end
function p.main(frame)
				local args = getArgs(frame, {
								trim = true,
								removeBlanks = false
				})
				return p._main(args)
end
function p._main(args)
				local bold = _ne(args.bold) or _ne(args.boldlink) or _ne(args.boldname)
				local italic = _ne(args.italic) or _ne(args.italics)
				local dontBrace = _ne(args.brace) or _ne(args.braceinside)
				local code = _ne(args.code) or _ne(args.tt)
				local show_result = _ne(args._show_result)
				local expand = _ne(args._expand)
				
				-- Constrói a parte do link
				local titlePart = linkTitle(args)
				if bold then titlePart = "'''" .. titlePart .. "'''" end
				if _ne(args.nowrapname) then titlePart = '<span class="nowrap">' .. titlePart .. '</span>' end
				
				-- Constrói os argumentos
				local textPart = ""
				local textPartBuffer = "&#124;"
				local codeArguments = {}
				local codeArgumentsString = ""
				local i = 2
				local j = 1
				while args[i] do
								local val = args[i]
								if val ~= "" then
												if _ne(args.nowiki) then
																-- Remove as marcações nowiki primeiro porque chamar nw em algo que já contém marcações nowiki irá
																-- desmontar o marcador de faixa nowiki e resultará na exibição literal de UNIQ...QINU
																val = nw(mw.text.unstripNoWiki(val))
												end
												local k, v = string.match(val, "(.*)=(.*)")
												if not k then
																codeArguments[j] = val
																j = j + 1
												else
																codeArguments[k] = v
												end
												codeArgumentsString = codeArgumentsString .. textPartBuffer .. val
												if italic then
																val = '<span style="font-style:italic;">' .. val .. '</span>'
												end
												textPart = textPart .. textPartBuffer .. val
								end
								i = i + 1
				end
				-- envoltório final
				local ret = titlePart .. textPart
				if not dontBrace then ret = nw('{{') .. ret .. nw('}}') end
				if _ne(args.a) then ret = nw('*') .. '&nbsp;' .. ret end
				if _ne(args.kbd) then ret = '<kbd>' .. ret .. '</kbd>' end
				if code then
								ret = '<code>' .. ret .. '</code>'
				elseif _ne(args.plaincode) then
								ret = '<code style="border:none;background:transparent;">' .. ret .. '</code>'
				end
				if _ne(args.nowrap) then ret = '<span class="nowrap">' .. ret .. '</span>' end
				
				--[[ Embrulhar como linguagem de marcação de hipertexto (L.M.Ht., Ht.M.L.)? 
				local span = mw.html.create('span')
				span:wikitext(ret)
				--]]
				if _ne(args.debug) then ret = ret .. '\n<pre>' .. mw.text.encode(mw.dumpObject(args)) .. '</pre>' end
				if show_result then
								local result = mw.getCurrentFrame():expandTemplate{title = addTemplate(args[1]), args = codeArguments}
								ret = ret .. " → " .. result
				end
				if expand then
								local query = mw.text.encode('{{' .. addTemplate(args[1]) .. string.gsub(codeArgumentsString, textPartBuffer, "|") .. '}}')
								local url = mw.uri.fullUrl('special:ExpandTemplates', 'wpInput=' .. query)
								mw.log()
								ret = ret .. " [" .. tostring(url) .. "]"
				end
				return ret
end
return p