From 93390f910405a1fa69e4e0973b12eaa8f7640976 Mon Sep 17 00:00:00 2001 From: Kyle Meyer Date: Sun, 28 Jun 2015 01:27:50 -0400 Subject: init-god.el: Move Gnus check to predicate --- lisp/init-god.el | 17 ++++++++--------- 1 file changed, 8 insertions(+), 9 deletions(-) (limited to 'lisp') 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) -- cgit v1.2.3