[nongnu] elpa/writegood-mode 4302169c15 32/47: Fix font lock issues in org-mode. Update faces.

[ELPA Syncer]

branch: elpa/writegood-mode
commit 4302169c1563cab9319745083f9b9a7f5f4af0bd
Author: Benjamin Beckwith <bnbeckwith@gmail.com>
Commit: Benjamin Beckwith <bnbeckwith@gmail.com>

    Fix font lock issues in org-mode. Update faces.
    
    This fixes issue #10 where headlines in org-mode were inproperly
    fontified when in writegood-mode.
    
    I also updated the faces to be underlines to make them less "noisy" in
    the text.
---
 writegood-mode.el | 33 ++++++++++++++++++++-------------
 1 file changed, 20 insertions(+), 13 deletions(-)

diff --git a/writegood-mode.el b/writegood-mode.el
index 489763a1a1..f2ba7e11ff 100755
--- a/writegood-mode.el
+++ b/writegood-mode.el
@@ -23,12 +23,13 @@
 ;;
 ;;; Change Log:
 ;;
-;; 2.1 Make user additions to word lists dynamic
-;; 2.0 Flesch-Kincaid scoring added to functionality
-;; 1.3 Several pull requests added, comments checked, passive voice regexp 
fixed
-;; 1.2 Fixed weasel-words regexp to have word boundaries
-;; 1.1 Fixed regexps to be multiline.
-;; 1.0 Initial version
+;; 2.0.2 Fix Formatting in Org-mode files, make faces underline
+;; 2.0.1 Make user additions to word lists dynamic
+;; 2.0.0 Flesch-Kincaid scoring added to functionality
+;; 1.3.0 Several pull requests added, comments checked, passive voice regexp 
fixed
+;; 1.2.0 Fixed weasel-words regexp to have word boundaries
+;; 1.1.0 Fixed regexps to be multiline.
+;; 1.0.0 Initial version
 ;;
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;
@@ -79,7 +80,9 @@
 
 ;; Weaselwords
 (defface writegood-weasels-face
-  '((((class color) (background light))
+  '((((supports :underline (:style wave)))
+     :underline (:style wave :color "DarkOrange"))
+    (((class color) (background light))
      (:inherit font-lock-warning-face :background "moccasin"))
     (((class color) (background dark))
      (:inherit font-lock-warning-face :background "DarkOrange")))
@@ -107,7 +110,9 @@
 
 ;; Passive Voice
 (defface writegood-passive-voice-face
-  '((((class color))
+  '((((supports :underline (:style wave)))
+     :underline (:style wave :color "cyan"))
+    (((class color))
      (:inherit font-lock-warning-face :background "LemonChiffon")))
   "Writegood face for passive-voice"
   :group 'writegood)
@@ -158,8 +163,10 @@
 
 ;; Duplicates
 (defface writegood-duplicates-face
-  '((((class color) (background light))
-     (:inherit font-lock-warning-face :background "MistyRose"))
+  '((((supports :underline (:style wave)))
+     :underline (:style wave :color "DeepPink"))
+    (((class color) (background light))
+        (:inherit font-lock-warning-face :background "MistyRose"))
     (((class color) (background dark))
      (:inherit font-lock-warning-face :background "DeepPink")))
   "Writegood face for duplicate words"
@@ -182,15 +189,15 @@
 
 (defun writegood-weasels-turn-on ()
   "Turn on syntax highlighting for weasels"
-  (font-lock-add-keywords nil (writegood-weasels-font-lock-keywords)))
+  (font-lock-add-keywords nil (writegood-weasels-font-lock-keywords) t))
 
 (defun writegood-passive-voice-turn-on ()
   "Turn on warnings for passive voice"
-  (font-lock-add-keywords nil (writegood-passive-voice-font-lock-keywords)))
+  (font-lock-add-keywords nil (writegood-passive-voice-font-lock-keywords) t))
 
 (defun writegood-duplicates-turn-on ()
   "Turn on warnings for duplicate words"
-  (font-lock-add-keywords nil (writegood-duplicates-font-lock-keywords)))
+  (font-lock-add-keywords nil (writegood-duplicates-font-lock-keywords) t))
 
 (defun writegood-weasels-turn-off ()
   "Turn on syntax highlighting for weasels"