-- util.lua

function tcontains(t,element)
	for _,value in pairs(t) do
		if element == value then
			return true
		end
	end
	return false
end

function wordwrap(str, callback, maxLength, maxRows)
	if type(callback) == "table" then
		local t = callback
		callback = function(row) table.insert(t, row) end
	end

	local rows = 0
	while #str > 1 do
		if type(maxRows) == "number"
		and rows >= maxRows and (#str + 3 > maxLength) then
			callback(str:sub(1,maxLength-3) .. "...")
			return str
		else
			local pre = ""
			pre, str = smartSplit(str, maxLength)
			callback(pre)
			rows = rows + 1
		end
	end

	return nil
end

-- split a string at a space if possible
function smartSplit(str, maxLength)
	if #str < maxLength then
		return str, ""
	end

	local pre = str:sub(1,maxLength)
	local post = str:sub(maxLength+1,-1)

	-- check from first to last
	for index = 1,math.min(#str,maxLength) do
		local char = str:sub(index,index)

		if char == "\n" then
			pre = str:sub(1,index-1)
			post = str:sub(index+1,-1)
			return pre, post
		end
	end

	-- check from last to first, i.e. backwards
	for index = math.min(#str,maxLength),1,-1 do
		local char = str:sub(index,index)
		
		if char == " " and index > 3 then
			pre = str:sub(1,index-1)
			post = str:sub(index+1,-1)
			return pre, post
		end
	end
	
	return pre, post
end

function log(x,base)
	return math.log(x) / math.log(base)
end

function colorToHex(color)
	return string.format("%x", log(color, 2))
end

-- eof