branch: elpa/alect-themes
commit 6679070893c12b10e223e0ffd6f555d95eab029d
Author: Alex Kost <[email protected]>
Commit: Alex Kost <[email protected]>

    Revise compilation faces
    
    Some faces do not exist and some ("...-face") are actually variables.
---
 alect-themes.el | 20 +++++++-------------
 1 file changed, 7 insertions(+), 13 deletions(-)

diff --git a/alect-themes.el b/alect-themes.el
index 1c25f1c..ebaf1c4 100644
--- a/alect-themes.el
+++ b/alect-themes.el
@@ -496,20 +496,14 @@ For INVERT, see `alect-get-color'."
          (company-scrollbar-bg              ((,c :background ,(gc 'gray))))
 
          ;; compilation
-         (compilation-column-face           ((,c :foreground ,(gc 'yellow))))
-         (compilation-enter-directory-face  ((,c :foreground ,(gc 'green))))
-         (compilation-error-face            ((,c :foreground ,(gc 'red-1) 
:weight bold :underline t)))
-         (compilation-face                  ((,c :foreground ,(gc 'fg+1))))
-         (compilation-info-face             ((,c :foreground ,(gc 'blue))))
-         (compilation-info                  ((,c :foreground ,(gc 'green-2) 
:underline t)))
-         (compilation-leave-directory-face  ((,c :foreground ,(gc 'green))))
-         (compilation-line-face             ((,c :foreground ,(gc 'yellow))))
+         (compilation-info                  ((,c :foreground ,(gc 'green-2))))
+         (compilation-warning               ((,c :inherit warning)))
+         (compilation-error                 ((,c :inherit error)))
          (compilation-line-number           ((,c :foreground ,(gc 'yellow))))
-         (compilation-message-face          ((,c :foreground ,(gc 'blue))))
-         (compilation-warning-face          ((,c :foreground ,(gc 'fg-2) 
:weight bold :underline t)))
-         (compilation-mode-line-exit        ((,c :foreground ,(gc 'green+2) 
:weight bold)))
-         (compilation-mode-line-fail        ((,c :foreground ,(gc 'red) 
:weight bold)))
-         (compilation-mode-line-run         ((,c :foreground ,(gc 'yellow) 
:weight bold)))
+         (compilation-column-number         ((,c :foreground ,(gc 'yellow+2))))
+         (compilation-mode-line-run         ((,c :foreground ,(gc 'blue))))
+         (compilation-mode-line-exit        ((,c :inherit success)))
+         (compilation-mode-line-fail        ((,c :inherit compilation-error)))
 
          ;; ctable
          (ctbl:face-cell-select  ((,c :background ,(gc 'blue)

Reply via email to