local setColorTag
do
	local colors = { }

	setColorTag = function(tag, color)
		assert(tag, "Missing tag.")
		assert(color, "Missing color.")
		if type(color) == "number" then
			color = string.format("#%06x", color)
		else
			color = tostring(color)
			if not string.find(color, '#') then
				color = "#" .. color
			end
		end
		tag = tostring(tag)
		if not string.find(tag, "^<.->$") then
			tag = "<" .. tag .. ">"
		end
		colors[#colors + 1] = { tag = tag, color = color }
	end

	local putColors = function(str)
		for i = 1, #colors do
			str = string.gsub(str, colors[i].tag, "<font color=\"" .. colors[i].color .. "\">")
		end
		return str
	end

	local addTextArea, updateTextArea, chatMessage, p = ui.addTextArea, ui.updateTextArea, tfm.exec.chatMessage, print
	ui.addTextArea = function(id, str, ...)
		return addTextArea(id, putColors(str), ...)
	end
	ui.updateTextArea = function(id, str, ...)
		return updateTextArea(id, putColors(str), ...)
	end
	tfm.exec.chatMessage = function(str, ...)
		return chatMessage(putColors(str), ...)
	end
	print = function(str)
		return p(putColors(str))
	end
end