[nongnu] elpa/telephone-line b2439795a4 078/195: Improve default colors.

[ELPA Syncer]

branch: elpa/telephone-line
commit b2439795a441db06aafd78bf2eae32616f75d106
Author: Daniel Bordak <dbordak@fastmail.fm>
Commit: Daniel Bordak <dbordak@fastmail.fm>

    Improve default colors.
---
 telephone-line.el | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/telephone-line.el b/telephone-line.el
index 5456e54bfd..38e0a88934 100644
--- a/telephone-line.el
+++ b/telephone-line.el
@@ -56,17 +56,17 @@
   :group 'telephone-line-evil)
 
 (defface telephone-line-evil-insert
-  '((t (:background "green" :inherit telephone-line-evil)))
+  '((t (:background "forest green" :inherit telephone-line-evil)))
   "Face used in evil color-coded segments when in Insert state."
   :group 'telephone-line-evil)
 
 (defface telephone-line-evil-normal
-  '((t (:background "red" :inherit telephone-line-evil)))
+  '((t (:background "red3" :inherit telephone-line-evil)))
   "Face used in evil color-coded segments when in Normal state."
   :group 'telephone-line-evil)
 
 (defface telephone-line-evil-visual
-  '((t (:background "orange" :inherit telephone-line-evil)))
+  '((t (:background "dark orange" :inherit telephone-line-evil)))
   "Face used in evil color-coded segments when in Visual{,-Block,-Line} state."
   :group 'telephone-line-evil)
 
@@ -76,7 +76,7 @@
   :group 'telephone-line-evil)
 
 (defface telephone-line-evil-motion
-  '((t (:background "blue" :inherit telephone-line-evil)))
+  '((t (:background "dark blue" :inherit telephone-line-evil)))
   "Face used in evil color-coded segments when in Motion state."
   :group 'telephone-line-evil)
 
@@ -161,7 +161,7 @@ Secondary separators do not incur a background color 
change."
 (defun telephone-line-evil-face (active)
   "Return an appropriate face for the current evil mode, given whether the 
frame is ACTIVE."
   (cond ((not active) 'mode-line-inactive)
-        ((and (boundp 'xah-fly-keys) xah-fly-keys)
+        ((bound-and-true-p xah-fly-keys)
          (if xah-fly-insert-state-q
              'telephone-line-evil-insert
            'telephone-line-evil-normal))