add my own globalised minor mode for ws-butler

1 files changed, 7 insertions, 2 deletions

diff --git a/.emacs.d/init.el b/.emacs.d/init.el
index 0c45876e..4fdc7b09 100644
--- a/.emacs.d/init.el
+++ b/.emacs.d/init.el
@@ -461,7 +461,6 @@ windows side-by-side in the frame."
  '(view-read-only t nil nil "Rebind otherwise useless self-insert keys, and means existing C-x C-r, C-x 4 r etc. usable for getting into mode.")
  '(warning-suppress-types '((comp)))
  '(window-combination-resize t)
- '(ws-butler-global-mode t)
  '(x-stretch-cursor t))
 
 
@@ -4278,7 +4277,13 @@ unread."
 ;; because the code in `spw/normalise-message' gets called less often.  Could
 ;; try setting `ws-butler-trim-predicate' to handle the markdown-mode case,
 ;; but chances are someday I'll want to use that obscure markdown-mode feature
-(setq ws-butler-global-exempt-modes '(markdown-mode message-mode))
+(define-globalized-minor-mode spw/ws-butler-global-mode ws-butler-mode
+  (lambda () (when (buffer-file-name) (ws-butler-mode 1)))
+  :predicate '((not markdown-mode
+		    message-mode
+		    lisp-interaction-mode)
+	       prog-mode text-mode))
+(spw/ws-butler-global-mode 1)
 
 (autoload 'redtick "redtick")
 (global-set-key "\C-cP" #'redtick)