[elpa] externals/modus-operandi-theme 72e1f6b 68/99: Minor review of MARKDOWN-MODE faces

[Stefan Monnier]

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

    Minor review of MARKDOWN-MODE faces
    
    + Make certain faces always use a monospaced font.
    + Also tweak the blockquote and fenced block styles.
---
 modus-operandi-theme.el | 22 ++++++++++++----------
 modus-vivendi-theme.el  | 22 ++++++++++++----------
 2 files changed, 24 insertions(+), 20 deletions(-)

diff --git a/modus-operandi-theme.el b/modus-operandi-theme.el
index a9737ec..6ec8616 100644
--- a/modus-operandi-theme.el
+++ b/modus-operandi-theme.el
@@ -2576,7 +2576,7 @@ Also bind `class' to ((class color) (min-colors 89))."
    `(Man-reverse ((,class :inherit modus-theme-subtle-magenta)))
    `(Man-underline ((,class :foreground ,cyan :underline t)))
    ;;;; markdown-mode
-   `(markdown-blockquote-face ((,class :background ,bg-dim :foreground 
,fg-special-warm :slant ,modus-theme-slant)))
+   `(markdown-blockquote-face ((,class :foreground ,fg-special-warm :slant 
,modus-theme-slant)))
    `(markdown-bold-face ((,class :weight bold)))
    `(markdown-code-face ((,class :inherit fixed-pitch)))
    `(markdown-comment-face ((,class :foreground ,fg-alt :slant 
,modus-theme-slant)))
@@ -2587,15 +2587,15 @@ Also bind `class' to ((class color) (min-colors 89))."
    `(markdown-header-face ((,class :weight bold)))
    `(markdown-header-rule-face ((,class :foreground ,fg-special-warm :weight 
bold)))
    `(markdown-hr-face ((,class :foreground ,fg-special-warm :weight bold)))
-   `(markdown-html-attr-name-face ((,class :foreground ,cyan)))
-   `(markdown-html-attr-value-face ((,class :foreground ,blue)))
-   `(markdown-html-entity-face ((,class :foreground ,cyan)))
-   `(markdown-html-tag-delimiter-face ((,class :foreground ,fg-special-mild)))
-   `(markdown-html-tag-name-face ((,class :foreground ,magenta-alt)))
-   `(markdown-inline-code-face ((,class :foreground ,magenta)))
+   `(markdown-html-attr-name-face ((,class :inherit fixed-pitch :foreground 
,cyan)))
+   `(markdown-html-attr-value-face ((,class :inherit fixed-pitch :foreground 
,blue)))
+   `(markdown-html-entity-face ((,class :inherit fixed-pitch :foreground 
,cyan)))
+   `(markdown-html-tag-delimiter-face ((,class :inherit fixed-pitch 
:foreground ,fg-special-mild)))
+   `(markdown-html-tag-name-face ((,class :inherit fixed-pitch :foreground 
,magenta-alt)))
+   `(markdown-inline-code-face ((,class :inherit fixed-pitch :foreground 
,magenta)))
    `(markdown-italic-face ((,class :slant italic)))
-   `(markdown-language-info-face ((,class :foreground ,fg-special-cold)))
-   `(markdown-language-keyword-face ((,class :foreground ,green-alt-other)))
+   `(markdown-language-info-face ((,class :inherit fixed-pitch :foreground 
,fg-special-cold)))
+   `(markdown-language-keyword-face ((,class :inherit fixed-pitch :foreground 
,green-alt-other)))
    `(markdown-line-break-face ((,class :inherit modus-theme-refine-cyan 
:underline t)))
    `(markdown-link-face ((,class :inherit link)))
    `(markdown-link-title-face ((,class :foreground ,fg-special-cold :slant 
,modus-theme-slant)))
@@ -2606,7 +2606,9 @@ Also bind `class' to ((class color) (min-colors 89))."
    `(markdown-metadata-value-face ((,class :foreground ,blue-alt)))
    `(markdown-missing-link-face ((,class :foreground ,yellow :weight bold)))
    `(markdown-plain-url-face ((,class :inherit markdown-link-face)))
-   `(markdown-pre-face ((,class :foreground ,fg-special-mild)))
+   `(markdown-pre-face ((,class ,@(and (>= emacs-major-version 27) '(:extend 
t))
+                                :inherit fixed-pitch :background ,bg-dim
+                                :foreground ,fg-special-mild)))
    `(markdown-reference-face ((,class :inherit markdown-markup-face)))
    `(markdown-strike-through-face ((,class :strike-through t)))
    `(markdown-table-face ((,class :foreground ,fg-special-cold)))
diff --git a/modus-vivendi-theme.el b/modus-vivendi-theme.el
index 9f93082..1e4fc71 100644
--- a/modus-vivendi-theme.el
+++ b/modus-vivendi-theme.el
@@ -2576,7 +2576,7 @@ Also bind `class' to ((class color) (min-colors 89))."
    `(Man-reverse ((,class :inherit modus-theme-subtle-magenta)))
    `(Man-underline ((,class :foreground ,cyan :underline t)))
    ;;;; markdown-mode
-   `(markdown-blockquote-face ((,class :background ,bg-dim :foreground 
,fg-special-warm :slant ,modus-theme-slant)))
+   `(markdown-blockquote-face ((,class :foreground ,fg-special-warm :slant 
,modus-theme-slant)))
    `(markdown-bold-face ((,class :weight bold)))
    `(markdown-code-face ((,class :inherit fixed-pitch)))
    `(markdown-comment-face ((,class :foreground ,fg-alt :slant 
,modus-theme-slant)))
@@ -2587,15 +2587,15 @@ Also bind `class' to ((class color) (min-colors 89))."
    `(markdown-header-face ((,class :weight bold)))
    `(markdown-header-rule-face ((,class :foreground ,fg-special-warm :weight 
bold)))
    `(markdown-hr-face ((,class :foreground ,fg-special-warm :weight bold)))
-   `(markdown-html-attr-name-face ((,class :foreground ,cyan)))
-   `(markdown-html-attr-value-face ((,class :foreground ,blue)))
-   `(markdown-html-entity-face ((,class :foreground ,cyan)))
-   `(markdown-html-tag-delimiter-face ((,class :foreground ,fg-special-mild)))
-   `(markdown-html-tag-name-face ((,class :foreground ,magenta-alt)))
-   `(markdown-inline-code-face ((,class :foreground ,magenta)))
+   `(markdown-html-attr-name-face ((,class :inherit fixed-pitch :foreground 
,cyan)))
+   `(markdown-html-attr-value-face ((,class :inherit fixed-pitch :foreground 
,blue)))
+   `(markdown-html-entity-face ((,class :inherit fixed-pitch :foreground 
,cyan)))
+   `(markdown-html-tag-delimiter-face ((,class :inherit fixed-pitch 
:foreground ,fg-special-mild)))
+   `(markdown-html-tag-name-face ((,class :inherit fixed-pitch :foreground 
,magenta-alt)))
+   `(markdown-inline-code-face ((,class :inherit fixed-pitch :foreground 
,magenta)))
    `(markdown-italic-face ((,class :slant italic)))
-   `(markdown-language-info-face ((,class :foreground ,fg-special-cold)))
-   `(markdown-language-keyword-face ((,class :foreground ,green-alt-other)))
+   `(markdown-language-info-face ((,class :inherit fixed-pitch :foreground 
,fg-special-cold)))
+   `(markdown-language-keyword-face ((,class :inherit fixed-pitch :foreground 
,green-alt-other)))
    `(markdown-line-break-face ((,class :inherit modus-theme-refine-cyan 
:underline t)))
    `(markdown-link-face ((,class :inherit link)))
    `(markdown-link-title-face ((,class :foreground ,fg-special-cold :slant 
,modus-theme-slant)))
@@ -2606,7 +2606,9 @@ Also bind `class' to ((class color) (min-colors 89))."
    `(markdown-metadata-value-face ((,class :foreground ,blue-alt)))
    `(markdown-missing-link-face ((,class :foreground ,yellow :weight bold)))
    `(markdown-plain-url-face ((,class :inherit markdown-link-face)))
-   `(markdown-pre-face ((,class :foreground ,fg-special-mild)))
+   `(markdown-pre-face ((,class ,@(and (>= emacs-major-version 27) '(:extend 
t))
+                                :inherit fixed-pitch :background ,bg-dim
+                                :foreground ,fg-special-mild)))
    `(markdown-reference-face ((,class :inherit markdown-markup-face)))
    `(markdown-strike-through-face ((,class :strike-through t)))
    `(markdown-table-face ((,class :foreground ,fg-special-cold)))