[nongnu] elpa/ws-butler 9b40da8428 46/64: add exemptions to ws-butler-global-mode

[Stefan Kangas]

branch: elpa/ws-butler
commit 9b40da8428fcb646975c81dc72f387f9fdfc3388
Author: Le Wang <l26wang@gmail.com>
Commit: Le Wang <l26wang@gmail.com>

    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)