Module:clickable button

---

This module lacks a documentation subpage. Please create it.

Useful links: subpage list • links • transclusions • testcases • sandbox

-- This module implements {{clickable button}}.

local yesno = require('Module:yesno')

local p = {}

function p.main(frame)
	local args = require('Module:Arguments').getArgs(frame, {
		wrappers = 'Template:clickable button'
	})
	return p.luaMain(args)
end

function p.luaMain(args)
	if not args[1] and not args.url then
		return ''
	end
	local data = p.makeLinkData(args)
	local link = p.renderLink(data)
	local trackingCategories = p.renderTrackingCategories(args)
	return link .. trackingCategories
end

function p.makeLinkData(args)
	local data = {}

	-- Get the link and display values, and find whether we are outputting a
	-- wikilink or a URL.
	if args.url then
		data.isUrl = true
		data.link = args.url
		if args[1] then
			data.display = args[1]
		else
			data.display = args.text or args.url
		end
	else
		data.isUrl = false
		data.link = args[1]
		if args[2] then
			data.display = args[2]
		else
			data.display = args[1]
		end
	end

	-- Classes
	local class = args.class and args.class:lower()
	data.classes = {}
	if class == 'ui-button-red'
		or class == 'ui-button-pink'
		or class == 'ui-button-purple'
		or class == 'ui-button-deep-purple'
		or class == 'ui-button-indigo'
		or class == 'ui-button-blue'
		or class == 'ui-button-light-blue'
		or class == 'ui-button-cyan'
		or class == 'ui-button-teal'
    	or class == 'ui-button-green'
    	or class == 'ui-button-light-green'
    	or class == 'ui-button-lime'
    	or class == 'ui-button-yellow'
    	or class == 'ui-button-amber'
		or class == 'ui-button-orange'
		or class == 'ui-button-deep-orange'
		or class == 'ui-button-brown'
		or class == 'ui-button-grey'
		or class == 'ui-button-blue-grey'
		or class == 'ui-button-black'
	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
	if class then
		table.insert(data.classes, class)
	end

	-- Styles
	do
		--[[
		-- Check whether we are on the same page as we have specified in
		-- args[1], but not if we are using a URL link, as then args[1] is only
		-- a display value. If we are currently on the page specified in
		-- args[1] make the button colour darker so that it stands out from
		-- other buttons on the page.
		--]]
		local success, linkTitle, currentTitle
		if not data.isUrl then
			currentTitle = mw.title.getCurrentTitle()
			success, linkTitle = pcall(mw.title.new, args[1])
		end
		if success
			and linkTitle
			and mw.title.equals(currentTitle, linkTitle)
		then
			if class == 'ui-button-red'
				or class == 'mw-ui-progressive'
			then
				data.backgroundColor = '#F44336'
			elseif class == 'ui-button-pink'
				or class == 'mw-ui-constructive'
			then
				data.backgroundColor = '#E91E63'
			elseif class == 'ui-button-purple'
				or class == 'mw-ui-constructive'
			then
				data.backgroundColor = '#9C27B0'
			elseif class == 'ui-button-deep-purple'
				or class == 'mw-ui-constructive'
			then
				data.backgroundColor = '#673AB7'
			elseif class == 'ui-button-indigo'
				or class == 'mw-ui-constructive'
			then
				data.backgroundColor = '#3F51B5'
			elseif class == 'ui-button-blue'
				or class == 'mw-ui-constructive'
			then
				data.backgroundColor = '#2196F3'
			elseif class == 'ui-button-light-blue'
				or class == 'mw-ui-constructive'
			then
				data.backgroundColor = '#03A9F4'
			elseif class == 'ui-button-cyan'
				or class == 'mw-ui-constructive'
			then
				data.backgroundColor = '#00BCD4'
			elseif class == 'ui-button-teal'
				or class == 'mw-ui-constructive'
			then
				data.backgroundColor = '#009688'
			elseif class == 'ui-button-green'
				or class == 'mw-ui-constructive'
			then
				data.backgroundColor = '#4CAF50'
			elseif class == 'ui-button-light-green'
				or class == 'mw-ui-constructive'
			then
				data.backgroundColor = '#8BC34A'
			elseif class == 'ui-button-lime'
				or class == 'mw-ui-constructive'
			then
				data.backgroundColor = '#CDDC39'
			elseif class == 'ui-button-yellow'
				or class == 'mw-ui-constructive'
			then
				data.backgroundColor = '#FFEB3B'
			elseif class == 'ui-button-amber'
				or class == 'mw-ui-constructive'
			then
				data.backgroundColor = '#FFC107'
			elseif class == 'ui-button-orange'
				or class == 'mw-ui-constructive'
			then
				data.backgroundColor = '#FF9800'
			elseif class == 'ui-button-deep-orange'
				or class == 'mw-ui-constructive'
			then
				data.backgroundColor = '#FF5722'
			elseif class == 'ui-button-brown'
				or class == 'mw-ui-constructive'
			then
				data.backgroundColor = '#795548'
			elseif class == 'ui-button-grey'
				or class == 'mw-ui-constructive'
			then
				data.backgroundColor = '#9E9E9E'
			elseif class == 'ui-button-blue-grey'
				or class == 'mw-ui-destructive'
			then
				data.backgroundColor = '#607D8B'
			elseif class == 'ui-button-black'
				or class == 'mw-ui-destructive'
			then
				data.backgroundColor = '#000000'
			else
				data.backgroundColor = '#CCC'
				data.color = '#666'
			end
		end
		-- Add user-specified styles.
		data.style = args.style
	end

	return data
end

function p.renderLink(data)
	-- Render the display span tag.
	local display
	do
		local displaySpan = mw.html.create('span')
		for i, class in ipairs(data.classes or {}) do
			displaySpan:addClass(class)
		end
		displaySpan
			:attr('role', 'button')
			:attr('aria-disabled', 'false')
			: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

	-- Render the link
	local link 
	if data.isUrl then
		link = string.format('[%s %s]', data.link, display)
	else
		link = string.format('[[%s|%s]]', data.link, display)
	end

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

function p.renderTrackingCategories(args)
	if yesno(args.category) == false then
		return ''
	end
	local class = args.class and args.class:lower()
	if class == 'ui-button-red'
		or class == 'ui-button-pink'
		or class == 'ui-button-purple'
		or class == 'ui-button-deep-purple'
		or class == 'ui-button-indigo'
		or class == 'ui-button-blue'
		or class == 'ui-button-light-blue'
		or class == 'ui-button-cyan'
		or class == 'ui-button-teal'
    	or class == 'ui-button-green'
    	or class == 'ui-button-light-green'
    	or class == 'ui-button-lime'
    	or class == 'ui-button-yellow'
    	or class == 'ui-button-amber'
		or class == 'ui-button-orange'
		or class == 'ui-button-deep-orange'
		or class == 'ui-button-brown'
		or class == 'ui-button-grey'
		or class == 'ui-button-blue-grey'
		or class == 'ui-button-black'
	then
		return '[[Category:Pages using old style ui-button-color]]'
	else
		return ''
	end
end

return p