error_handler.lua2p

local Lily = require("modules.lily.lily")

local UTF8 = require("utf8")

local ErrorHandler = {}
local font, p
local pos_x, pos_y = 0, 24

local function error_printer(msg, layer)
	local err_msg = (debug.traceback("Error: " .. tostring(msg),
		1 + (layer or 1)):gsub("\n[^\n]+$", ""))
	print(err_msg)
end

local function draw()
	--TODO improve this
	love.graphics.clear()
	love.graphics.setColor(1, 1, 1, 1)
	love.graphics.printf(p, pos_x, pos_y, love.graphics.getWidth(), "center")
	love.graphics.present()
end

local function copy_to_clipboard(arg)
	if not love.system then
		return
	end

	love.system.setClipboardText(arg)
	p = p .. "\nCopied to clipboard"
	draw()
end

function ErrorHandler.callback(msg)
	msg = tostring(msg)
	error_printer(msg, 2)

	if not love.window or not love.graphics or not love.event then
		return
	end

	if not love.graphics.isCreated() or not love.window.isOpen() then
		local success, status = pcall(love.window.setMode, 800, 600)

		if not success or not status then
			return
		end
	end

	if love.mouse then
		love.mouse.setVisible(true)
		love.mouse.setGrabbed(false)
		love.mouse.setRelativeMode(false)

		if love.mouse.isCursorSupported() then
			love.mouse.setCursor()
		end
	end

	if love.joystick then
		for i, v in ipairs(love.joystick.getJoysticks()) do
			v:setVibration()
		end
	end

	if love.audio then
		love.audio.stop()
	end

	love.graphics.reset()
	font = love.graphics.newFont("res/fonts/DigitalDisco.ttf", 16)
	font:setFilter($_FONT_FILTER, $_FONT_FILTER)
	love.graphics.setFont(font)
	love.graphics.setColor(1, 1, 1, 1)

	local trace = debug.traceback()

	love.graphics.origin()

	local sanitized_msg = {}

	for char in msg:gmatch(UTF8.charpattern) do
		table.insert(sanitized_msg, char)
	end

	sanitized_msg = table.concat(sanitized_msg)

	local err = {}

	table.insert(err, "SORRY! SOMETHING UNEXPECTED OCCURED!")
	table.insert(err, "The developer will work hard to fix this, please have patience")
	table.insert(err, "You can help by submitting the error throught GitHub or Itch.io")
	table.insert(err, "Thank you!\n")

	!if _DEV then
	table.insert(err, sanitized_msg)

	if #sanitized_msg ~= #msg then
		table.insert(err, "Invalid UTF-8 string in error message")
	end

	table.insert(err, "\n")

	for l in trace:gmatch("(.-)\n") do
		if not l:match("boot.lua") then
			l = l:gsub("stack traceback:", "Traceback\n")
			table.insert(err, l)
		end
	end
	!end

	p = table.concat(err, "\n")
	p = p:gsub("\t", "")
	p = p:gsub("$[string \"(.-)\"%]", "%1")

	local text_full = p

	Lily.quit()

	return function()
		love.event.pump()
		for e, a, b, c in love.event.poll() do
			if e == "quit" then
				return 1

			!if _PLATFORM == "desktop" then
			elseif e == "keypressed" and a == "escaped" then
				return 1
			elseif e == "keypressed" and a == "c" and
				love.keyboard.isDown("lctrl", "rctrl") then
				copy_to_clipboard(text_full)
			end
			!else

			if e == "touchpressed" then
				local name = love.window.getTitle()

				if #name == 0 or name == "Untitled" then
					name = "Game"
				end

				local buttons = {"OK", "Cancel"}

				if love.system then
					buttons[3] = "Copy to clipboard"
				end

				local pressed = love.window.showMessageBox("Quit " .. name .. "?",
					"", buttons)

				if presssed == 1 then
					return 1
				elseif pressed == 3 then
					copy_to_clipboard(text_full)
				end
			end

			!end
		end

		draw()

		if love.timer then
			love.timer.sleep(0.1)
		end
	end
end

return ErrorHandler