From 5b7f25fef5d356ba04e71d53c38b6bfa5f32ed88 Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Sat, 13 Apr 2024 10:51:20 +0800 Subject: add my own globalised minor mode for ws-butler --- .emacs.d/init.el | 9 +++++++-- 1 file 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) -- cgit v1.2.3