[elpa] externals/modus-vivendi-theme e4ff240 16/73: Add explicit styles for comint prompts

[Stefan Monnier]

branch: externals/modus-vivendi-theme
commit e4ff240a20e69abddcfe6798a1b858a6c3259b91
Author: Protesilaos Stavrou <info@protesilaos.com>
Commit: Protesilaos Stavrou <info@protesilaos.com>

    Add explicit styles for comint prompts
    
    1. Makes the prompt itself subject to the customisation option for "bold
       constructs".
    
    2. Using ':inherit bold' instead of ':weight bold' guarantees that the
       user can apply an alternative weight across all faces.  This was
       originally done in commit 426578fdc.
---
 README.org              | 1 -
 modus-operandi-theme.el | 2 ++
 modus-vivendi-theme.el  | 2 ++
 3 files changed, 4 insertions(+), 1 deletion(-)

diff --git a/README.org b/README.org
index 7c8d16e..3e8c24f 100644
--- a/README.org
+++ b/README.org
@@ -1226,7 +1226,6 @@ GNU Emacs distribution.
 These do not require any extra styles because they are configured to
 inherit from some basic faces.  Please confirm.
 
-+ comint
 + edit-indirect
 + swift-mode
 
diff --git a/modus-operandi-theme.el b/modus-operandi-theme.el
index e816ade..c6d2b83 100644
--- a/modus-operandi-theme.el
+++ b/modus-operandi-theme.el
@@ -1076,6 +1076,8 @@ Also bind `class' to ((class color) (min-colors 89))."
    ;;
    ;; (set-face-attribute 'bold nil :weight 'semibold)
    `(bold ((,class :weight bold)))
+   `(comint-highlight-input ((,class :inherit bold)))
+   `(comint-highlight-prompt ((,class ,@(modus-operandi-theme-bold-weight) 
:foreground ,cyan-alt-other)))
    `(error ((,class :inherit bold :foreground ,red)))
    `(escape-glyph ((,class :foreground ,fg-escape-char-construct)))
    `(header-line ((,class :background ,bg-header :foreground ,fg-header)))
diff --git a/modus-vivendi-theme.el b/modus-vivendi-theme.el
index ad843f6..e963f18 100644
--- a/modus-vivendi-theme.el
+++ b/modus-vivendi-theme.el
@@ -1076,6 +1076,8 @@ Also bind `class' to ((class color) (min-colors 89))."
    ;;
    ;; (set-face-attribute 'bold nil :weight 'semibold)
    `(bold ((,class :weight bold)))
+   `(comint-highlight-input ((,class :inherit bold)))
+   `(comint-highlight-prompt ((,class ,@(modus-vivendi-theme-bold-weight) 
:foreground ,cyan-alt-other)))
    `(error ((,class :inherit bold :foreground ,red)))
    `(escape-glyph ((,class :foreground ,fg-escape-char-construct)))
    `(header-line ((,class :background ,bg-header :foreground ,fg-header)))