Use pushnew! to set god-exempt-major-modes

This commit is contained in:
Akhil Wali 2019-10-05 09:41:00 +13:00
parent 3e11008a7f
commit 1560dadb08
2 changed files with 21 additions and 30 deletions

View file

@ -12,35 +12,6 @@
(defvar +god-fill-overflow-color "IndianRed"
"Cursor and bar color when fill column width has been exceeded.")
;;;###autoload
(defvar +god-default-exempt-major-modes
'(Custom-mode
Info-mode
ag-mode
calculator-mode
calendar-mode
cider-test-report-mode
compilation-mode
debugger-mode
dired-mode
edebug-mode
ediff-mode
eww-mode
geben-breakpoint-list-mode
git-commit-mode
grep-mode
ibuffer-mode
magit-popup-mode
org-agenda-mode
pdf-outline-buffer-mode
recentf-dialog-mode
sldb-mode
sly-db-mode
vc-annotate-mode
wdired-mode)
"Major modes in which `god-local-mode' will not be enabled on
initialization.")
;;;###autoload
(defun +god--configure-cursor-and-modeline-h ()
"Configure cursor type, cursor color and doom-modeline bar color depending on mode."

View file

@ -4,6 +4,26 @@
:commands god-local-mode
:hook (doom-after-init-modules . god-mode-all)
:config
(setq god-exempt-major-modes +god-default-exempt-major-modes)
(pushnew! god-exempt-major-modes
'Custom-mode
'Info-mode
'ag-mode
'calculator-mode
'calendar-mode
'cider-test-report-mode
'compilation-mode
'debugger-mode
'edebug-mode
'ediff-mode
'eww-mode
'geben-breakpoint-list-mode
'ibuffer-mode
'org-agenda-mode
'pdf-outline-buffer-mode
'recentf-dialog-mode
'sldb-mode
'sly-db-mode
'wdired-mode)
(add-hook! 'post-command-hook #'+god--configure-cursor-and-modeline-h)
(add-hook! 'overwrite-mode-hook #'+god--toggle-on-overwrite-h))