[nongnu] elpa/telephone-line dd1afefa00 152/195: Add telephone-line-error and warning faces.

[ELPA Syncer]

branch: elpa/telephone-line
commit dd1afefa00856b3ea25d58dcc9f75dd4e8e5d48d
Author: ogdenwebb <ogdenwebb@gmail.com>
Commit: ogdenwebb <ogdenwebb@gmail.com>

    Add telephone-line-error and warning faces.
    
    Use them in flycheck-segment.
---
 telephone-line-segments.el |  6 +++---
 telephone-line.el          | 10 ++++++++++
 2 files changed, 13 insertions(+), 3 deletions(-)

diff --git a/telephone-line-segments.el b/telephone-line-segments.el
index a913e1ed39..76bc73eaed 100644
--- a/telephone-line-segments.el
+++ b/telephone-line-segments.el
@@ -241,14 +241,14 @@ Inspired by doom-modeline."
                                     (if (or .error .warning)
                                         (propertize (format "Problems: %s/%s"
                                                             (or .error 0) (or 
.warning 0))
-                                                    'face 'warning))
+                                                    'face 
'telephone-line-warning)
                                       ""))
                                 (propertize ":)" 'face 
'telephone-line-unimportant)))
                    ('running     "*")
                    ('no-checker  (propertize "-" 'face 
'telephone-line-unimportant))
                    ('not-checked "=")
-                   ('errored     (propertize "!" 'face 'error))
-                   ('interrupted (propertize "." 'face 'error))
+                   ('errored     (propertize "!" 'face 'telephone-line-error))
+                   ('interrupted (propertize "." 'face 'telephone-line-error))
                    ('suspicious  "?"))))
       (propertize text
                   'help-echo (pcase flycheck-last-status-change
diff --git a/telephone-line.el b/telephone-line.el
index c9cc278a52..c07fb0e478 100644
--- a/telephone-line.el
+++ b/telephone-line.el
@@ -60,6 +60,16 @@
   "Hightlight face for the projectile segment"
   :group 'telephone-line)
 
+(defface telephone-line-error
+  '((t (:inherit warning :underline nil :strike-through nil)))
+  "Face to higlight errors in telephone-line. "
+  :group 'telephone-line)
+
+(defface telephone-line-warning
+  '((t (:inherit warning :underline nil :strike-through nil)))
+  "Face to higlight errors in telephone-line."
+  :group 'telephone-line)
+
 (defface telephone-line-evil
   '((t (:foreground "white" :weight bold :inherit mode-line)))
   "Meta-face used for property inheritance on all telephone-line-evil faces."