Módulo:Formato texto

La documentación para este módulo puede ser creada en Módulo:Formato texto/doc

local z = {}

function z.enCursivas(texto, ref)
	if ref and texto then
		return '<i>' .. texto .. '</i>' .. ref
	elseif texto then
	    return '<i>' .. texto .. '</i>'
	end
end

-- Adaptado de [[:en:Module:String2]], función sentence
function z.enMayusculas(texto)
	if not texto or texto == '' then
		return texto
	end
	
	-- [[hipótesis (método científico)|hipótesis]]
	
	if texto:find("^%[%[[^|]+|[^%]]+%]%]") then
		local b, c = texto:find("|%A*%a") 
		return string.sub(texto, 1, c-1) .. string.upper(string.sub(texto, c, c)) .. string.sub(texto, c+1)
	end
	
	local letterpos = texto:find('%a')
	if letterpos then
		local first = texto:sub(1, letterpos - 1)
		local letter = texto:sub(letterpos, letterpos)
		local rest = texto:sub(letterpos + 1)
		return first .. string.upper(letter) .. rest
	else
		return texto
	end
end

function z.enVersalitas(texto)
	if not texto or texto == '' then
		return texto
	end	
	return '<span style="font-variant:small-caps">' .. texto .. '</span>'
end

function z.enVariasLineas(lista)
	local resultado
	local copia={}
	require('Módulo:Tablas').insertarElementosConValor(lista, copia)
	
	-- Solo devolver algo si hay al menos un elemento
	if copia[1] then
		return table.concat(copia, '<br/>')
	end
end

function z.entreComillas(texto, ref)
	if not texto or texto == '' then
		return texto
	elseif ref and ref ~='' then
		return '«' .. texto .. '»' .. ref
	else 
	    return '«' .. texto .. '»'
	end
end

function z.entreParentesis(texto, calificativo)
	if not texto or texto == '' then
		return
	elseif calificativo and calificativo ~= '' then
	    return texto .. ' (' .. calificativo .. ')'
	else
		return texto
	end
end

function z.separadosPorComa(lista)
	local copia={}
	require('Módulo:Tablas').insertarElementosConValor(lista, copia)
	
	return table.concat(copia, ', ')
end

-- :: Generar un enlace
function z.enlazar(enlace, texto, calificativo)
	local resultado 
	
	if enlace and texto then
		resultado = '[[' .. enlace .. '|' .. texto .. ']]'
	elseif enlace then
		resultado = '[[' .. enlace .. ']]'
	else
		resultado = texto
	end
	
	if resultado and calificativo then
		return resultado .. ' <small>(' .. calificativo .. ')</small>'
	else
		return resultado
	end
end

-- Generar un enlace (implementación extendida)
function z.enlazar2(enlace, opciones)
	if enlace then
		local etiqueta, namespace, tamano, border, link, calificativo, debeExistir

		if type(opciones) == 'table' then
			etiqueta	= opciones['etiqueta'] or ''
			namespace	= tonumber(opciones['namespace']) or 0
			tamano		= opciones['tamaño'] or '250px'
			borde		= opciones['borde']
			link		= opciones['link']
			calificativo= opciones['calificativo']
			debeExistir	= opciones['debe existir'] or opciones['debeExistir'] or opciones['debeexistir']
		elseif type(opciones) == 'string' then
			etiqueta = opciones
		elseif type(opciones) == 'number' then
			namespace = opciones
		else
			etiqueta = enlace
		end

		local tituloObj = mw.title.new(enlace, namespace) or {}

		local resultado = {}
		table.insert(resultado, tituloObj.fullText)
		
		if not debeExistir and not namespace == 6 then
			if etiqueta then table.insert(resultado, etiqueta) end
			return '[[' .. table.concat(resultado, '|') .. ']]'
		end

		if tituloObj.exists or tituloObj.fileExists then
			if etiqueta then table.insert(resultado, etiqueta)
			if namespace == 6 then
				if tamano then table.insert(resultado, tamano) end
				if border then table.insert(resultado, 'border') end
				if link then table.insert(resultado, 'link=' .. link) end
				if etiqueta then table.insert(resultado, etiqueta) end
				return '[[' .. table.concat(resultado, '|') .. ']]'
			end
			if calificativo then return '[[' .. table.concat(resultado, '|') .. ']]' .. ' <small>(' .. calificativo .. ')</small>' end end
			return '[[' .. table.concat(resultado, '|') .. ']]'
		end
		return etiqueta
	end
end

function z.llamadaDesdeUnaPlantilla(frame)
	local args = frame.args
	
	if args['tipo argumento'] == 'tabla' then
		local tabla = {args[2], args[3], args[4]}
		return z[args[1]](tabla)
	else
		return z[args[1]](args[2], args[3], args[4])
	end
end

return z