From 1560dadb087cf670f9787b0bcaeaec2fa55b8085 Mon Sep 17 00:00:00 2001 From: Akhil Wali Date: Sat, 5 Oct 2019 09:41:00 +1300 Subject: [PATCH] Use pushnew! to set god-exempt-major-modes --- modules/editor/god/autoload/god.el | 29 ----------------------------- modules/editor/god/config.el | 22 +++++++++++++++++++++- 2 files changed, 21 insertions(+), 30 deletions(-) diff --git a/modules/editor/god/autoload/god.el b/modules/editor/god/autoload/god.el index c7a3d63b4..f634c9135 100644 --- a/modules/editor/god/autoload/god.el +++ b/modules/editor/god/autoload/god.el @@ -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." diff --git a/modules/editor/god/config.el b/modules/editor/god/config.el index 0be161368..7806b7760 100644 --- a/modules/editor/god/config.el +++ b/modules/editor/god/config.el @@ -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))