branch: elpa/telephone-line
commit dd1afefa00856b3ea25d58dcc9f75dd4e8e5d48d
Author: ogdenwebb <[email protected]>
Commit: ogdenwebb <[email protected]>
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."
