From b7b89435c62c1256bce2c932207d233ca517d7bf Mon Sep 17 00:00:00 2001 From: David Morgan Date: Tue, 25 Oct 2022 16:37:07 +0100 Subject: [PATCH] Turn off whitespace-mode in mode modes --- .emacs.d/lisp/init-ui.el | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/.emacs.d/lisp/init-ui.el b/.emacs.d/lisp/init-ui.el index c92e3cb..ad900ad 100644 --- a/.emacs.d/lisp/init-ui.el +++ b/.emacs.d/lisp/init-ui.el @@ -131,13 +131,14 @@ :custom (whitespace-line-column 120) (whitespace-style '(face tabs empty trailing lines-tail)) + :config + (defun turn-off-whitespace-mode () + (whitespace-mode -1)) + (defvar-local whitespace-disabled-modes '(cider-repl-mode ielm-mode vterm-mode eshell-mode shell-mode term-mode ansi-term-mode)) + (dolist (mode whitespace-disabled-modes) + (add-hook (intern (concat (symbol-name mode) "-hook")) #'turn-off-whitespace-mode)) :hook (text-mode . (lambda () (whitespace-mode +1))) - (prog-mode . (lambda () (whitespace-mode +1))) - (cider-repl-mode . (lambda () (whitespace-mode -1))) - (ielm-mode . (lambda () (whitespace-mode -1))) - (vterm-mode . (lambda () (whitespace-mode -1))) - (eshell-mode . (lambda () (whitespace-mode -1)))) (use-package volatile-highlights :defer 10