 ;; Dependencies:
 (require 'exwm)
 
+;; Helper functions:
 (defun pjones:god-update-cursor ()
   "Change the cursor to indicate `god-mode'."
-  (setq cursor-type (if (or god-local-mode buffer-read-only) 'box 'bar)))
+  (setq cursor-type (if god-local-mode 'box t)))
 
 (defun pjones:god-mode-enabled ()
   "Respond to `god-mode' turning on."

  (pjones:god-update-cursor)
  (setq exwm-input-line-mode-passthrough nil))

(define-key god-local-mode-map (kbd ".") 'repeat)
(define-key god-local-mode-map (kbd "i") 'god-mode-all)

(require 'god-mode-isearch)
(define-key isearch-mode-map (kbd "<escape>") 'god-mode-isearch-activate)
(define-key god-mode-isearch-map (kbd "<escape>") 'god-mode-isearch-disable)

;; Settings:
(custom-set-variables

 '(god-exempt-predicates nil))

;; Hooks:
(add-hook 'god-mode-enabled-hook  #'pjones:god-mode-enabled)
(add-hook 'god-mode-disabled-hook #'pjones:god-mode-disabled)

;;; god-mode-conf.el ends here
