[elpa] externals/modus-operandi-theme 0394bdd 097/112: Add support for IOCCUR

[Stefan Monnier]

branch: externals/modus-operandi-theme
commit 0394bddff35d72400457bb783d3cfe91e7794728
Author: Protesilaos Stavrou <address@hidden>
Commit: Protesilaos Stavrou <address@hidden>

    Add support for IOCCUR
---
 README.org              |  1 +
 modus-operandi-theme.el | 14 ++++++++++++++
 modus-vivendi-theme.el  | 14 ++++++++++++++
 3 files changed, 29 insertions(+)

diff --git a/README.org b/README.org
index d95ed3f..8f5ce65 100644
--- a/README.org
+++ b/README.org
@@ -287,6 +287,7 @@ the "full support" may not be 100% true…
 + info
 + info-colors
 + interaction-log
++ ioccur
 + isearch, occur, etc.
 + ivy*
 + ivy-posframe
diff --git a/modus-operandi-theme.el b/modus-operandi-theme.el
index 393dd22..f5e96f9 100644
--- a/modus-operandi-theme.el
+++ b/modus-operandi-theme.el
@@ -164,6 +164,7 @@
 ;;     info
 ;;     info-colors
 ;;     interaction-log
+;;     ioccur
 ;;     isearch, occur, etc.
 ;;     ivy
 ;;     ivy-posframe
@@ -1684,6 +1685,19 @@ between foreground and background is >= 7:1)."
    `(ilog-load-face ((,class (:foreground ,green))))
    `(ilog-message-face ((,class (:foreground ,fg-alt))))
    `(ilog-non-change-face ((,class (:foreground ,blue))))
+   ;;;; ioccur
+   `(ioccur-cursor ((,class (:foreground ,fg-main))))
+   `(ioccur-invalid-regexp ((,class (:foreground ,red))))
+   `(ioccur-match-face ((,class (:inherit modus-theme-special-calm))))
+   `(ioccur-match-overlay-face ((,class (,@(and (>= emacs-major-version 27) 
'(:extend t))
+                                         :inherit modus-theme-special-cold))))
+   `(ioccur-num-line-face ((,class (:foreground ,fg-special-warm))))
+   `(ioccur-overlay-face ((,class (,@(and (>= emacs-major-version 27) 
'(:extend t))
+                                   :inherit modus-theme-refine-blue))))
+   `(ioccur-regexp-face ((,class (:inherit modus-theme-intense-magenta :weight 
bold))))
+   `(ioccur-title-face ((,class (:foreground ,red-alt :weight bold
+                                             ,@(when 
modus-operandi-theme-scale-headings
+                                                 (list :height 
modus-operandi-theme-scale-4))))))
    ;;;; isearch, occur, and the like
    `(isearch ((,class (:inherit modus-theme-intense-green :weight bold))))
    `(isearch-fail ((,class (:inherit modus-theme-refine-red))))
diff --git a/modus-vivendi-theme.el b/modus-vivendi-theme.el
index 42fb577..f2c61e8 100644
--- a/modus-vivendi-theme.el
+++ b/modus-vivendi-theme.el
@@ -164,6 +164,7 @@
 ;;     info
 ;;     info-colors
 ;;     interaction-log
+;;     ioccur
 ;;     isearch, occur, etc.
 ;;     ivy
 ;;     ivy-posframe
@@ -1684,6 +1685,19 @@ between foreground and background is >= 7:1)."
    `(ilog-load-face ((,class (:foreground ,green))))
    `(ilog-message-face ((,class (:foreground ,fg-alt))))
    `(ilog-non-change-face ((,class (:foreground ,blue))))
+   ;;;; ioccur
+   `(ioccur-cursor ((,class (:foreground ,fg-main))))
+   `(ioccur-invalid-regexp ((,class (:foreground ,red))))
+   `(ioccur-match-face ((,class (:inherit modus-theme-special-calm))))
+   `(ioccur-match-overlay-face ((,class (,@(and (>= emacs-major-version 27) 
'(:extend t))
+                                         :inherit modus-theme-special-cold))))
+   `(ioccur-num-line-face ((,class (:foreground ,fg-special-warm))))
+   `(ioccur-overlay-face ((,class (,@(and (>= emacs-major-version 27) 
'(:extend t))
+                                   :inherit modus-theme-refine-blue))))
+   `(ioccur-regexp-face ((,class (:inherit modus-theme-intense-magenta :weight 
bold))))
+   `(ioccur-title-face ((,class (:foreground ,red-alt :weight bold
+                                             ,@(when 
modus-operandi-theme-scale-headings
+                                                 (list :height 
modus-operandi-theme-scale-4))))))
    ;;;; isearch, occur, and the like
    `(isearch ((,class (:inherit modus-theme-intense-green :weight bold))))
    `(isearch-fail ((,class (:inherit modus-theme-refine-red))))