branch: elpa/telephone-line
commit 2cfe86ee8e1fcfa46a8e843f6722689724020763
Merge: c4cab5a5dc 1c154b7fd0
Author: Daniel Bordak <dbor...@fastmail.fm>
Commit: GitHub <nore...@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."
