[nongnu] elpa/telephone-line 2cfe86ee8e 155/195: Merge pull request #76 from ogdenwebb/master

[ELPA Syncer]

branch: elpa/telephone-line
commit 2cfe86ee8e1fcfa46a8e843f6722689724020763
Merge: c4cab5a5dc 1c154b7fd0
Author: Daniel Bordak <dbordak@fastmail.fm>
Commit: GitHub <noreply@github.com>

    Merge pull request #76 from ogdenwebb/master
    
    Use built-in faces 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 398a30573f..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 '(:foreground 
"orange"))
+                                                    'face 
'telephone-line-warning)
                                       ""))
                                 (propertize ":)" 'face 
'telephone-line-unimportant)))
                    ('running     "*")
                    ('no-checker  (propertize "-" 'face 
'telephone-line-unimportant))
                    ('not-checked "=")
-                   ('errored     (propertize "!" 'face '(:foreground 
"tomato")))
-                   ('interrupted (propertize "." 'face '(:foreground 
"tomato")))
+                   ('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..537697c195 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 error :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 warnings 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."