;; Time-stamp: <2021-09-09 21h28 EDT (hobbies)>

(use-package god-mode
	:ensure t
	:bind (("<escape>" . god-local-mode)
				 ("<tab>" . god-local-mode)
				 ;; useful
				 ("C-x C-1" . delete-other-windows)
				 ("C-x C-2" . split-window-below)
				 ("C-x C-3" . split-window-right)
				 ("C-x C-0" . delete-window))
	:config
	(defvar my-god-cursor-colour nil)
	(defun my-god-update-cursor ()
		(interactive)
		(if (bound-and-true-p god-local-mode)
				(progn
					(setq my-god-cursor-colour (frame-parameter (selected-frame) 'cursor-color))
					(set-cursor-color "red"))
			(set-cursor-color my-god-cursor-colour)))
	(add-hook 'god-mode-enabled-hook #'my-god-update-cursor)
	(add-hook 'god-mode-disabled-hook #'my-god-update-cursor))