Módulo:Clickable button 2/Testes

Esta é a página de testes de módulos de Módulo:Clickable button 2 (dif).
-- Este módulo implementa {{Botão clicável 2/Testes}}.

local yesno = require('Módulo:Yesno/Testes')

local p = {}

local function renderTrackingCategories(args)
	if yesno(args.category) == false then
		return ''
	end
	
	-- não temos categorias de rastreamento no momento, mas "args.category" deve ser
	-- suportado no futuro, então apenas retorna uma sequência ('string') aqui por enquanto
	return ''
end

local function makeLinkData(args)
	local data = {}

	-- Obtém os valores de ligação ('link') e exibição,
	-- e descobre se estamos gerando
	-- uma ligação ('link') wiki ou um localizador de recurso uniforme (L.R.U., 'U.R.L.').
	if args.url then
		data.isUrl = true
		data.link = args.url
		if args[1] then
			data.display = args[1]
		else if args[2] then
			data.display = args[2]
		else
			data.display = args.url
			p.urlisdisplay = true
			end
		end
	else
		data.isUrl = false
		p.urlisdisplay = false
		data.link = args[1]
		if args[2] then
			data.display = args[2]
		else
			data.display = args[1]
		end
	end
	
	if yesno(args.link) == false then
		p.nolink = true
	end

	-- Cores
	-- Para a fusão com {{Botão clicável/Testes}}
	local colour = args.color and args.color:lower()

	-- Classes
	local class = args.class and args.class:lower()
	data.classes = {}
	if class == 'ui-button-green'
		or class == 'ui-button-blue'
		or class == 'ui-button-red'
	then
		table.insert(
			data.classes,
			'submit ui-button ui-widget ui-state-default ui-corner-all'
				.. ' ui-button-text-only ui-button-text'
		)
	else
		table.insert(data.classes, 'mw-ui-button')
	end
	
	-- Se a classe não estiver definida,
	-- então permite que a cor determine a classe
	if not class then
		if colour == 'blue' then
			class = 'mw-ui-progressive'
			else if colour == 'red' then
				class = 'mw-ui-destructive'
				else if colour == 'green' then
					class = 'mw-ui-constructive'
				end
			end
		end
	end

	if class then
		table.insert(data.classes, class)
	end

	-- Estilos
	do
		--[[
		-- Verifica se estamos na mesma página que especificamos em
		-- "args[1]", mas não se estivermos usando uma ligação ('link') de 
		-- localizador de recurso uniforme (L.R.U., 'U.R.L.'), pois "args[1]"
		--  é apenas um valor de exibição. Se estivermos atualmente na página 
		-- especificada em "args[1]", torna a cor do botão mais escura para 
		-- que se destaque de outros botões na página.
		--]]
		local success, linkTitle, currentTitle
		if not data.isUrl then
			currentTitle = mw.title.getCurrentTitle()
			success, linkTitle = pcall(mw.title.new, args[1])
		elseif p.urlisdisplay then
			currentTitle = mw.title.getCurrentTitle()
		end
		if success
			and linkTitle
			and mw.title.equals(currentTitle, linkTitle)
			and not p.urlisdisplay
		then
			if class == 'ui-button-blue'
				or class == 'mw-ui-progressive'
				or class == 'mw-ui-constructive'
			then
				data.backgroundColor = '#2962CB'
				data.color = '#fff'
			elseif class == 'ui-button-green' then
				data.backgroundColor = '#008B6D'
			elseif class == 'ui-button-red' or class == 'mw-ui-destructive' then
				data.backgroundColor = '#A6170F'
			else
				data.backgroundColor = '#CCC'
				data.color = '#666'
			end
		else
			if p.urlisdisplay
			then
				data.dummyLink = tostring(currentTitle)
			end
		end
		-- Adiciona estilos especificados pelo usuário.
		data.style = args.style
	end

	return data
end

local function renderLink(data)
	-- Renderiza a marcação ('tag') de exibição "span".
	local display
	do
		local displaySpan = mw.html.create('span')
		for i, class in ipairs(data.classes or {}) do
			displaySpan:addClass(class)
		end
		displaySpan
			:css{
				['background-color'] = data.backgroundColor,
				color = data.color
			}
		if data.style then
			displaySpan:cssText(data.style)
		end
		displaySpan:wikitext(data.display)
		display = tostring(displaySpan)
	end

	-- Renderiza a ligação ('link')
	local link
	if p.nolink then
		if p.urlisdisplay then
			link = string.format('[[%s|%s]]', data.dummyLink, display)
			else
				link = string.format('%s', display)
			end
		else if data.isUrl then
			link = string.format('[%s %s]', data.link, display)
		else
			link = string.format('[[%s|%s]]', data.link, display)
		end
	end

	return string.format('<span class="plainlinks clickbutton">%s</span>', link)
end

function p.luaMain(args)
	-- Se o primeiro argumento ou localizador de recurso uniforme (L.R.U., 'U.R.L.') 
	-- não for fornecido, mas nós tivermos um segundo argumento, cria um botão.
	-- Caso não, retorna nada.
	if not args[1] and not args.url then
		if args[2] then
			p.nolink = true
		else
			return ''
		end
	end
	
	local data = makeLinkData(args)
	local link = renderLink(data)
	local trackingCategories = renderTrackingCategories(args)
	return link .. trackingCategories
end

function p.main(frame)
	local args = require('Módulo:Arguments/Testes').getArgs(frame, {
		wrappers = 'Predefinição:Botão clicável 2/Testes'
	})
	return p.luaMain(args)
end

return p
Módulo:Clickable button 2/Testes

Uso a partir de texto wiki

Uso a partir de módulos Lua
