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

user customizable window-system and text popup function.

Browse Source
This commit is contained in:
Zhang Chiyuan 2008-03-16 01:35:41 +00:00
parent e48806e04f
commit 8337700325
1 changed files with 21 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
yasnippet.el
View File

@ -95,6 +95,16 @@ mode will be listed under the menu \"yasnippet\".")
'((((class color) (background light)) (:background "LightYellow2")) '((((class color) (background light)) (:background "LightYellow2"))
(t (:background "gray22"))) (t (:background "gray22")))
"The face used to highlight mirror fields of a snippet.") "The face used to highlight mirror fields of a snippet.")
(defvar yas/window-system-popup-function #'yas/x-popup-menu-for-template
"When there's multiple candidate for a snippet key. This function
is called to let user select one of them. `yas/text-popup-function'
is used instead when not in a window system.")
(defvar yas/text-popup-function #'yas/text-popup-for-template
"When there's multiple candidate for a snippet key. If not in a
window system, this function is called to let user select one of
them. `yas/window-system-popup-function' is used instead when in
a window system.")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Internal variables ;; Internal variables
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@ -704,13 +714,19 @@ t is returned simply."
(selected-window))) (selected-window)))
t)) t))
(defun yas/popup-for-template (templates) (defun yas/x-popup-menu-for-template (templates)
"Show a popup menu listing templates to let the user select one." "Show a popup menu listing templates to let the user select one."
(car (x-popup-menu (yas/point-to-coord)
(yas/fake-keymap-for-popup templates))))
(defun yas/text-popup-for-template (templates)
"Can't display popup menu in text mode. Just select the first one."
(yas/template-content (cdar templates)))
(defun yas/popup-for-template (templates)
(if window-system (if window-system
(car (x-popup-menu (yas/point-to-coord) (funcall yas/window-system-popup-function templates)
(yas/fake-keymap-for-popup templates))) (funcall yas/text-popup-function templates)))
;; no window system, simply select the first one
(yas/template-content (cdar templates))))
(defun yas/load-directory-1 (directory &optional parent) (defun yas/load-directory-1 (directory &optional parent)
"Really do the job of loading snippets from a directory "Really do the job of loading snippets from a directory