[elpa] externals/modus-operandi-theme 3f9da5d 058/153: Add support for racket-mode

[Stefan Monnier]

branch: externals/modus-operandi-theme
commit 3f9da5d6c8073fb4c5c12851da0590fc3db80579
Author: Protesilaos Stavrou <info@protesilaos.com>
Commit: Protesilaos Stavrou <info@protesilaos.com>

    Add support for racket-mode
    
    * modus-operandi-theme.el: Include 'racket-mode' as fully
    supported in theme commentary.
    (custom-theme-set-faces): Cover 'racket-mode' faces.
    
    * modus-vivendi-theme.el: Include 'racket-mode' as fully
    supported in theme commentary.
    (custom-theme-set-faces): Cover 'racket-mode' faces.
    
    * doc/modus-themes.org (Full support for packages or face groups):
    Include 'racket-mode' in the list of explicitly support groups.
    
    * doc/modus-themes.info (File): Recompile manual.
---
 doc/modus-themes.info   | 31 ++++++++++++++++---------------
 doc/modus-themes.org    |  1 +
 modus-operandi-theme.el | 18 ++++++++++++++++++
 modus-vivendi-theme.el  | 18 ++++++++++++++++++
 4 files changed, 53 insertions(+), 15 deletions(-)

diff --git a/doc/modus-themes.info b/doc/modus-themes.info
index 437a9fd..f5decb0 100644
--- a/doc/modus-themes.info
+++ b/doc/modus-themes.info
@@ -1413,6 +1413,7 @@ have lots of extensions, so the “full support” may not be 
100% true…
    • powerline-evil
    • proced
    • prodigy
+   • racket-mode
    • rainbow-blocks
    • rainbow-identifiers
    • rainbow-delimiters
@@ -2298,21 +2299,21 @@ Ref: Font configs (DIY)-Footnote-241313
 Node: Org user faces (DIY)41535
 Node: Face coverage44756
 Node: Supported packages45258
-Node: Covered indirectly51180
-Node: Will NOT be supported51532
-Node: Notes for individual packages52250
-Node: Note for powerline or spaceline52656
-Node: Note on shr colours53028
-Node: Note for Helm grep53441
-Node: Note on vc-annotate-background-mode54888
-Node: Contributing55742
-Node: Sources of the themes56161
-Node: Issues you can help with56923
-Node: Merge requests58110
-Node: Acknowledgements59192
-Node: Meta60649
-Node: External projects (ports)61702
-Node: GNU Free Documentation License62525
+Node: Covered indirectly51199
+Node: Will NOT be supported51551
+Node: Notes for individual packages52269
+Node: Note for powerline or spaceline52675
+Node: Note on shr colours53047
+Node: Note for Helm grep53460
+Node: Note on vc-annotate-background-mode54907
+Node: Contributing55761
+Node: Sources of the themes56180
+Node: Issues you can help with56942
+Node: Merge requests58129
+Node: Acknowledgements59211
+Node: Meta60668
+Node: External projects (ports)61721
+Node: GNU Free Documentation License62544
 
 End Tag Table
 
diff --git a/doc/modus-themes.org b/doc/modus-themes.org
index 05e0ed8..99b891d 100644
--- a/doc/modus-themes.org
+++ b/doc/modus-themes.org
@@ -1289,6 +1289,7 @@ have lots of extensions, so the "full support" may not be 
100% true…
 + powerline-evil
 + proced
 + prodigy
++ racket-mode
 + rainbow-blocks
 + rainbow-identifiers
 + rainbow-delimiters
diff --git a/modus-operandi-theme.el b/modus-operandi-theme.el
index 04b689a..85d060f 100644
--- a/modus-operandi-theme.el
+++ b/modus-operandi-theme.el
@@ -271,6 +271,7 @@
 ;;     powerline-evil
 ;;     proced
 ;;     prodigy
+;;     racket-mode
 ;;     rainbow-blocks
 ;;     rainbow-identifiers
 ;;     rainbow-delimiters
@@ -3552,6 +3553,23 @@ Also bind `class' to ((class color) (min-colors 89))."
    `(prodigy-green-face ((,class :foreground ,green)))
    `(prodigy-red-face ((,class :foreground ,red)))
    `(prodigy-yellow-face ((,class :foreground ,yellow)))
+;;;;; racket-mode
+   `(racket-debug-break-face ((,class :inherit modus-theme-intense-red)))
+   `(racket-debug-locals-face ((,class :box (:line-width -1 :color nil)
+                                       :foreground ,green-alt-other)))
+   `(racket-debug-result-face ((,class :inherit bold :box (:line-width -1 
:color nil)
+                                       :foreground ,green)))
+   `(racket-here-string-face ((,class :foreground ,blue-alt)))
+   `(racket-keyword-argument-face ((,class :foreground ,red-alt)))
+   `(racket-logger-config-face ((,class :foreground ,fg-alt :slant 
,modus-theme-slant)))
+   `(racket-logger-debug-face ((,class :foreground ,blue-alt-other)))
+   `(racket-logger-info-face ((,class :foreground ,fg-lang-note)))
+   `(racket-logger-topic-face ((,class :foreground ,magenta :slant 
,modus-theme-slant)))
+   `(racket-selfeval-face ((,class :foreground ,green-alt)))
+   `(racket-xp-error-face
+     ((,(append '((supports :underline (:style wave))) class)
+       :underline (:color ,fg-lang-error :style wave))
+      (,class :foreground ,fg-lang-error :underline t)))
 ;;;;; rainbow-blocks
    `(rainbow-blocks-depth-1-face ((,class :foreground ,magenta-alt-other)))
    `(rainbow-blocks-depth-2-face ((,class :foreground ,blue)))
diff --git a/modus-vivendi-theme.el b/modus-vivendi-theme.el
index 2ffe671..99012ee 100644
--- a/modus-vivendi-theme.el
+++ b/modus-vivendi-theme.el
@@ -271,6 +271,7 @@
 ;;     powerline-evil
 ;;     proced
 ;;     prodigy
+;;     racket-mode
 ;;     rainbow-blocks
 ;;     rainbow-identifiers
 ;;     rainbow-delimiters
@@ -3552,6 +3553,23 @@ Also bind `class' to ((class color) (min-colors 89))."
    `(prodigy-green-face ((,class :foreground ,green)))
    `(prodigy-red-face ((,class :foreground ,red)))
    `(prodigy-yellow-face ((,class :foreground ,yellow)))
+;;;;; racket-mode
+   `(racket-debug-break-face ((,class :inherit modus-theme-intense-red)))
+   `(racket-debug-locals-face ((,class :box (:line-width -1 :color nil)
+                                       :foreground ,green-alt-other)))
+   `(racket-debug-result-face ((,class :inherit bold :box (:line-width -1 
:color nil)
+                                       :foreground ,green)))
+   `(racket-here-string-face ((,class :foreground ,blue-alt)))
+   `(racket-keyword-argument-face ((,class :foreground ,red-alt)))
+   `(racket-logger-config-face ((,class :foreground ,fg-alt :slant 
,modus-theme-slant)))
+   `(racket-logger-debug-face ((,class :foreground ,blue-alt-other)))
+   `(racket-logger-info-face ((,class :foreground ,fg-lang-note)))
+   `(racket-logger-topic-face ((,class :foreground ,magenta :slant 
,modus-theme-slant)))
+   `(racket-selfeval-face ((,class :foreground ,green-alt)))
+   `(racket-xp-error-face
+     ((,(append '((supports :underline (:style wave))) class)
+       :underline (:color ,fg-lang-error :style wave))
+      (,class :foreground ,fg-lang-error :underline t)))
 ;;;;; rainbow-blocks
    `(rainbow-blocks-depth-1-face ((,class :foreground ,magenta-alt-other)))
    `(rainbow-blocks-depth-2-face ((,class :foreground ,blue)))