[elpa] externals/modus-vivendi-theme 8ca7fe2 057/110: Add support for SPELL-FU

[Stefan Monnier]

branch: externals/modus-vivendi-theme
commit 8ca7fe2e2391accdb9fad2c737eb4869486984a0
Author: Protesilaos Stavrou <address@hidden>
Commit: Protesilaos Stavrou <address@hidden>

    Add support for SPELL-FU
---
 README.org              | 1 +
 modus-operandi-theme.el | 6 ++++++
 modus-vivendi-theme.el  | 6 ++++++
 3 files changed, 13 insertions(+)

diff --git a/README.org b/README.org
index 2f11798..ab6eae7 100644
--- a/README.org
+++ b/README.org
@@ -426,6 +426,7 @@ the "full support" may not be 100% true…
 + smartparens
 + smerge
 + speedbar
++ spell-fu
 + stripes
 + suggest
 + switch-window
diff --git a/modus-operandi-theme.el b/modus-operandi-theme.el
index a42adce..03ceb4c 100644
--- a/modus-operandi-theme.el
+++ b/modus-operandi-theme.el
@@ -248,6 +248,7 @@
 ;;     smartparens
 ;;     smerge
 ;;     speedbar
+;;     spell-fu
 ;;     stripes
 ;;     suggest
 ;;     switch-window
@@ -2675,6 +2676,11 @@ AMOUNT is a customisation option."
    `(speedbar-selected-face ((,class (:foreground ,cyan :weight bold))))
    `(speedbar-separator-face ((,class (:inherit modus-theme-intense-neutral))))
    `(speedbar-tag-face ((,class (:foreground ,yellow-alt-other))))
+   ;;;; spell-fu
+   `(spell-fu-incorrect-face
+     ((,(append '((supports :underline (:style wave))) class)
+       (:foreground ,fg-lang-error :underline (:style wave)))
+      (,class (:foreground ,fg-lang-error :underline t))))
    ;;;; stripes
    `(stripes ((,class (:background ,bg-alt))))
    ;;;; success
diff --git a/modus-vivendi-theme.el b/modus-vivendi-theme.el
index 40de2bb..02239c3 100644
--- a/modus-vivendi-theme.el
+++ b/modus-vivendi-theme.el
@@ -248,6 +248,7 @@
 ;;     smartparens
 ;;     smerge
 ;;     speedbar
+;;     spell-fu
 ;;     stripes
 ;;     suggest
 ;;     switch-window
@@ -2675,6 +2676,11 @@ AMOUNT is a customisation option."
    `(speedbar-selected-face ((,class (:foreground ,cyan :weight bold))))
    `(speedbar-separator-face ((,class (:inherit modus-theme-intense-neutral))))
    `(speedbar-tag-face ((,class (:foreground ,yellow-alt-other))))
+   ;;;; spell-fu
+   `(spell-fu-incorrect-face
+     ((,(append '((supports :underline (:style wave))) class)
+       (:foreground ,fg-lang-error :underline (:style wave)))
+      (,class (:foreground ,fg-lang-error :underline t))))
    ;;;; stripes
    `(stripes ((,class (:background ,bg-alt))))
    ;;;; success