diff options
| -rw-r--r-- | lisp/init-god.el | 17 |
1 files changed, 8 insertions, 9 deletions
diff --git a/lisp/init-god.el b/lisp/init-god.el index 5233bd5..966a87d 100644 --- a/lisp/init-god.el +++ b/lisp/init-god.el @@ -1,15 +1,7 @@ (require 'god-mode) -(defvar km/god-exempt-major-modes - '(gnus-group-mode - gnus-summary-mode - gnus-article-mode - message-mode)) - -(setq god-exempt-major-modes - (append km/god-exempt-major-modes god-exempt-major-modes)) - (add-to-list 'god-exempt-predicates #'km/god-magit-mode-p) +(add-to-list 'god-exempt-predicates #'km/god-gnus-p) (add-hook 'view-mode-hook (lambda () (if view-mode @@ -40,6 +32,13 @@ (god-mode-child-of-p major-mode 'magit-popup-mode) (god-mode-child-of-p major-mode 'magit-mode))) +(defun km/god-gnus-p () + "Return non-nil if a Gnus-related mode is enabled." + (derived-mode-p 'gnus-group-mode + 'gnus-summary-mode + 'gnus-article-mode + 'message-mode)) + (global-set-key (kbd "C-c d") 'god-local-mode) (define-key god-local-mode-map "." 'repeat) |