Module:Rainbow

Implements {{rainbow}}

---

local p = {}

local function format_it(tbl, name)
	for i, v in ipairs(tbl) do
		tbl[i] = string.format("%06x", tbl[i])	
	end
	p[name] = tbl
end

local function mod(a, b)
	return a - math.floor(a/b) * b
end

-- takes hex color as string, gives back table
local function colorTable(color)
	local clen = string.len(color)
	assert(clen >= 6 and clen <= 8)
	assert(string.gmatch("^"..("[0-9a-fA-F]"):rep(6)..("[0-9a-fA-F]?"):rep(2).."$", color))
	local ret = {}
	ret["R"] = tonumber(color:sub(1,2), 16)
	ret["G"] = tonumber(color:sub(3,4), 16)
	ret["B"] = tonumber(color:sub(5,6), 16)
	ret["A"] = tonumber(color:sub(7,8), 16) or 255
	return ret
end
local black = colorTable("000000")
local white = colorTable("FFFFFF")

local function colorAsRGBA(colorTbl)
	return string.format("rgba(%.2f,%.2f,%.2f,%.2f)", 
						 colorTbl["R"], colorTbl["G"], 
						 colorTbl["B"], colorTbl["A"])
end

-- simple mix of two colors. t_ means target. percent is as float (.4=40%)
local function colorMix(colorTbl, t_colorTbl, percent)
	local ret = {}
	local diff = {}
	diff["R"] = t_colorTbl["R"] - colorTbl["R"] 
	diff["G"] = t_colorTbl["G"] - colorTbl["G"] 
	diff["B"] = t_colorTbl["B"] - colorTbl["B"] 
	diff["A"] = t_colorTbl["A"] - colorTbl["A"]
	ret["R"] = colorTbl["R"] + (diff["R"] * percent)
	ret["G"] = colorTbl["G"] + (diff["G"] * percent)
	ret["B"] = colorTbl["B"] + (diff["B"] * percent)
	ret["A"] = colorTbl["A"] + (diff["A"] * percent)
	return ret
end

p.HTML = function(frame, page)
	local args = require('Module:Arguments').getArgs(frame)
	p.args = args
	local ret = ''
	local inp = args[1]
	if not inp then return nil end
	local steps = mw.ustring.len(inp)
	local repeat_ = (args["repeat"] and tonumber(args["repeat"])) or 1
	
	local newcolors = {}
	if args.colors then
		for k = 1, repeat_, 1 do
			nc = mw.text.gsplit(args.colors, ",", true)

			for c in nc do
				newcolors[#newcolors+1] = tonumber(c:sub(2, -1), 16)
			end
		end
	end

	format_it(#newcolors > 0 and newcolors or
	--         red       orange    yellow    green     blue      indigo-violet
			  {0xFF0000, 0xFF7F00, 0xFFFF00, 0x00FF00, 0x0000FF, 0x8B00FF}, "roygbiv")

	-- lua pattern from https://stackoverflow.com/questions/13235091/extract-the-first-letter-of-a-utf-8-string-with-lua
	local i = 0
	for c in inp:gmatch("[%z\1-\127\194-\244][\128-\191]*") do
		local color = colorTable(p.roygbiv[mod(i, #p.roygbiv)+1])
		
		local s_per = steps / #p.roygbiv
		local j = (i / s_per)
		local jf = math.floor(j)
		if args.gradient then
			local cidx = mod(jf, #p.roygbiv)+1
			if mod(cidx, 2) == 0 then cidx = cidx + 1 end
			if cidx > #p.roygbiv then cidx = #p.roygbiv end
			color = colorTable(p.roygbiv[cidx])
			
			local tidx = mod(jf+1, #p.roygbiv)+1
			if mod(tidx, 2) == 1 then tidx = tidx + 1 end
			if tidx > #p.roygbiv then tidx = cidx end
			local tcolor = colorTable(p.roygbiv[tidx])
			
			color = colorMix(color, tcolor, mod(j, 1))
		end
		local subdued = nil
		if args.theme then 
			subdued = args.theme:match("^subdued(%d+)%%$")
		end
		if subdued then
			color = colorMix(color, black, tonumber(subdued) / 100)	
		end
		assert(color)
		if args.bg ~= "y" then
		local rgba = colorAsRGBA(color)
		ret = (ret .. "<span style='" .. (args.bg == "black" and "background-color:black;" or "")
			       .. "color:" .. rgba .. ";'>" .. c .."</span>")
		else
		local rgba = colorAsRGBA(args.fgcolor and colorTable(args.fgcolor:sub(2, -1)) or black)
		ret = (ret .. "<span style='background-color:" .. colorAsRGBA(color) .. ";"
			       .. "color:" .. rgba .. "'>" .. c .."</span>")
		end
		i = i + 1
	end
	
	return ret
end

return p