branch: elpa/ws-butler
commit 9b40da8428fcb646975c81dc72f387f9fdfc3388
Author: Le Wang <[email protected]>
Commit: Le Wang <[email protected]>
add exemptions to ws-butler-global-mode
---
ws-butler.el | 13 ++++++++++++-
1 file changed, 12 insertions(+), 1 deletion(-)
diff --git a/ws-butler.el b/ws-butler.el
index 93f52524f3..10e8a7133d 100644
--- a/ws-butler.el
+++ b/ws-butler.el
@@ -71,6 +71,14 @@ i.e. only the \"virtual\" space is preserved in the buffer."
:type 'boolean
:group 'ws-butler)
+(defcustom ws-butler-global-exempt-modes
+ '(markdown-mode)
+ "Don't enable ws-butler in modes that inherit from these.
+
+This should be a list of trailing whitespace significant major-modes."
+ :type '(repeat (symbol :tag "Major mode"))
+ :group 'ws-butler)
+
(defvar ws-butler-saved)
@@ -269,7 +277,10 @@ for lines modified by you."
(remove-hook 'edit-server-done-hook 'ws-butler-before-save t)))
;;;###autoload
-(define-globalized-minor-mode ws-butler-global-mode ws-butler-mode
ws-butler-mode)
+(define-globalized-minor-mode ws-butler-global-mode ws-butler-mode
+ (lambda ()
+ (unless (apply #'derived-mode-p ws-butler-global-exempt-modes)
+ (ws-butler-mode))))
(provide 'ws-butler)
