ld/avy
1
0
Fork 0
mirror of https://github.com/abo-abo/avy.git synced 2025-10-14 05:43:04 +00:00
Code Issues Packages Projects Releases Wiki Activity

Add a new face for 'at-full style

Browse Source 
* 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
This commit is contained in:
Oleh Krehel 2015-05-11 09:45:49 +02:00
parent ca302b4fe6
commit 755c25a89b
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
avy-jump.el
View File

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