[elpa] master 755c25a 09/36: Add a new face for 'at-full style

[Oleh Krehel]

branch: master
commit 755c25a89bf01f1ad07c6ebd1bde08e1c5474794
Author: Oleh Krehel <address@hidden>
Commit: Oleh Krehel <address@hidden>

    Add a new face for 'at-full style
    
    * avy-jump.el (avy-lead-face-0): New face.
    (avy--overlay-at-full): If the path is longer than 1, propertize the
    first char with `avy-lead-face-0'.
    
    Re #5
---
 avy-jump.el |    6 ++++++
 1 files changed, 6 insertions(+), 0 deletions(-)

diff --git a/avy-jump.el b/avy-jump.el
index ab04bad..1da11c6 100644
--- a/avy-jump.el
+++ b/avy-jump.el
@@ -115,6 +115,10 @@ When nil, punctuation chars will not be matched.
 \"[!-/:address@hidden" will match all printable punctuation chars."
   :type 'regexp)
 
+(defface avy-lead-face-0
+  '((t (:foreground "white" :background "#4f57f9")))
+  "Face used for the leading chars.")
+
 (defface avy-lead-face
   '((t (:foreground "white" :background "#e52b50")))
   "Face used for the leading chars.")
@@ -294,6 +298,8 @@ LEAF is normally ((BEG . END) . WND)."
                   (caar leaf)
                 (car leaf)))
          (wnd (cdr leaf)))
+    (when (> (length str) 1)
+      (set-text-properties 0 1 '(face avy-lead-face-0) str))
     (with-selected-window wnd
       (save-excursion
         (goto-char beg)