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

elisp eval supported.

Browse Source
This commit is contained in:
Zhang Chiyuan 2008-03-03 07:19:45 +00:00
parent 6d81107a96
commit 9be049c264
1 changed files with 19 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
yasnippet.el
View File

@ -56,15 +56,16 @@ current column if this variable is non-`nil'.")
(defconst yas/escape-backquote-guard (defconst yas/escape-backquote-guard
(concat "YASESCAPE" "BACKQUOTE" "PROTECTGUARD")) (concat "YASESCAPE" "BACKQUOTE" "PROTECTGUARD"))
(defconst yas/elisp-regexp "`\\([^`]*\\)`")
(defconst yas/elisp-regexp-content-group 1)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Internal functions ;; Internal functions
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defsubst yas/replace-all (from to) (defsubst yas/replace-all (from to)
"Replace all occurance from FROM to TO." "Replace all occurance from FROM to TO."
(save-excursion
(goto-char (point-min)) (goto-char (point-min))
(while (search-forward from nil t) (while (search-forward from nil t)
(replace-match to nil t)))) (replace-match to t t)))
(defun yas/snippet-table (mode) (defun yas/snippet-table (mode)
"Get the snippet table corresponding to MODE." "Get the snippet table corresponding to MODE."
(let ((table (gethash mode yas/snippet-tables))) (let ((table (gethash mode yas/snippet-tables)))
@ -109,11 +110,22 @@ current column if `yas/indent-line' is non-`nil'."
(insert indent) (insert indent)
(end-of-line)))) (end-of-line))))
;; Step 2: protect escape characters ;; Step 2: protect backquote
(yas/replace-all yas/escape-dollar yas/escape-dollar-guard)
(yas/replace-all yas/escape-backquote yas/escape-backquote-guard) (yas/replace-all yas/escape-backquote yas/escape-backquote-guard)
;; Step : restore escape characters ;; Step 3: evaluate all backquotes
(goto-char (point-min))
(while (re-search-forward yas/elisp-regexp nil t)
(replace-match (format "%s" (eval
(read
(match-string-no-properties
yas/elisp-regexp-content-group))))
t t))
;; Step 4: protect dollar
(yas/replace-all yas/escape-dollar yas/escape-dollar-guard)
;; Step : restore all escape characters
(yas/replace-all yas/escape-dollar-guard yas/escape-dollar) (yas/replace-all yas/escape-dollar-guard yas/escape-dollar)
(yas/replace-all yas/escape-backquote-guard yas/escape-backquote) (yas/replace-all yas/escape-backquote-guard yas/escape-backquote)