ld/yasnippet
1
0
Fork 0
mirror of https://github.com/joaotavora/yasnippet.git synced 2025-10-13 21:13:04 +00:00
Code Issues Packages Projects Releases Wiki Activity

set customized face. Now user can customize the face.

Browse Source
This commit is contained in:
Zhang Chiyuan 2008-03-13 02:37:37 +00:00
parent 8780bc95ea
commit dbada984cf
1 changed files with 14 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
yasnippet.el
View File

@ -86,6 +86,15 @@ this variable to t.")
mode will be listed under the menu \"yasnippet\".")
(defvar yas/trigger-symbol " =>"
"The text that will be used in menu to represent the trigger.")
(defface yas/field-highlight-face
'((((class color) (background light)) (:background "DarkSeaGreen2"))
(t (:background "DimGrey")))
"The face used to highlight a field of snippet.")
(defface yas/mirror-highlight-face
'((((class color) (background light)) (:background "LightYellow2"))
(t (:background "gray22")))
"The face used to highlight mirror fields of a snippet.")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Internal variables
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@ -520,10 +529,12 @@ will be deleted before inserting template."
(overlay-put overlay 'yas/modified? nil)
(overlay-put overlay 'modification-hooks yas/overlay-modification-hooks)
(overlay-put overlay 'insert-in-front-hooks yas/overlay-insert-in-front-hooks)
(overlay-put overlay 'face 'yas/field-highlight-face)
(dolist (field (yas/group-fields group))
(overlay-put (yas/field-overlay field)
'face
'highlight))))
(unless (equal overlay (yas/field-overlay field))
(overlay-put (yas/field-overlay field)
'face
'yas/mirror-highlight-face)))))
;; Step 11: move to end and make sure exit-marker exist
(goto-char (point-max))