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\".") mode will be listed under the menu \"yasnippet\".")
(defvar yas/trigger-symbol " =>" (defvar yas/trigger-symbol " =>"
"The text that will be used in menu to represent the trigger.") "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 ;; Internal variables
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@ -520,10 +529,12 @@ will be deleted before inserting template."
(overlay-put overlay 'yas/modified? nil) (overlay-put overlay 'yas/modified? nil)
(overlay-put overlay 'modification-hooks yas/overlay-modification-hooks) (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 'insert-in-front-hooks yas/overlay-insert-in-front-hooks)
(overlay-put overlay 'face 'yas/field-highlight-face)
(dolist (field (yas/group-fields group)) (dolist (field (yas/group-fields group))
(overlay-put (yas/field-overlay field) (unless (equal overlay (yas/field-overlay field))
'face (overlay-put (yas/field-overlay field)
'highlight)))) 'face
'yas/mirror-highlight-face)))))
;; Step 11: move to end and make sure exit-marker exist ;; Step 11: move to end and make sure exit-marker exist
(goto-char (point-max)) (goto-char (point-max))