;; Time-stamp: <2021-09-27 08h47 EDT (hobbies)>

(use-package god-mode
  :ensure t
  :init
  (defvar my-god-cursor-colour (frame-parameter (selected-frame) 'cursor-color))
  :bind (("<escape>" . god-local-mode)
	 ;; ("<tab>" . god-mode) ;; this is just too much trouble
	 ;; 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
  (push 'term-mode god-exempt-major-modes)

  (defun my-god-update-cursor ()
    (interactive)
    (if (bound-and-true-p god-local-mode)
	(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))