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

rudimentary undo, very buggy, but this is the way to go

Browse Source
This commit is contained in:
capitaomorte 2009-07-02 12:51:08 +00:00
parent 333d48d731
commit f790e77e7c
1 changed files with 109 additions and 125 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

118
yasnippet.el
View File

@ -96,6 +96,11 @@ mode will be listed under the menu \"yasnippet\".")
(t (:background "DimGrey"))) (t (:background "DimGrey")))
"The face used to highlight the currently active field of a snippet") "The face used to highlight the currently active field of a snippet")
(defface yas/mirror-highlight-face
'((((class color) (background light)) (:background "Dodgerblue"))
(t (:background "DimGrey")))
"The face used to highlight a mirror of a snippet")
(defface yas/field-debug-face (defface yas/field-debug-face
'((((class color) (background light)) (:background "tomato")) '((((class color) (background light)) (:background "tomato"))
(t (:background "tomato"))) (t (:background "tomato")))
@ -286,6 +291,9 @@ set to t."
name name
condition) condition)
(defvar yas/active-field-overlay nil
"Overlays the currently active field")
(defstruct (yas/snippet (:constructor yas/make-snippet ())) (defstruct (yas/snippet (:constructor yas/make-snippet ()))
"A snippet. "A snippet.
@ -294,7 +302,6 @@ set to t."
(exit nil) (exit nil)
(id (yas/snippet-next-id) :read-only t) (id (yas/snippet-next-id) :read-only t)
(control-overlay nil) (control-overlay nil)
(active-field-overlay nil)
(active-field nil)) (active-field nil))
(defstruct (yas/field (:constructor yas/make-field (number overlay-pair parent-field))) (defstruct (yas/field (:constructor yas/make-field (number overlay-pair parent-field)))
@ -503,7 +510,6 @@ the template of a snippet in the current snippet-table."
(let ((text (yas/current-field-text field))) (let ((text (yas/current-field-text field)))
(when text (when text
(while (string-match "${\\([0-9]+:\\)?\\(.*\\)}.*" text) (while (string-match "${\\([0-9]+:\\)?\\(.*\\)}.*" text)
(let ((real-match-end-0 (scan-sexps (1+ (match-beginning 0)) 1)))
(setq text (setq text
(concat (concat
(substring text (substring text
@ -514,7 +520,7 @@ the template of a snippet in the current snippet-table."
(match-end 2)) (match-end 2))
(substring text (substring text
(1+ (match-end 2)) (1+ (match-end 2))
(match-end 0))))))) (match-end 0))))))
text)) text))
(defun yas/current-field-text (field) (defun yas/current-field-text (field)
@ -566,9 +572,6 @@ will be deleted before inserting template."
(goto-char start) (goto-char start)
(let* ((key (buffer-substring-no-properties start end)) (let* ((key (buffer-substring-no-properties start end))
(original-undo-list buffer-undo-list) ;; save previous undo information
(buffer-undo-list t)
(inhibit-modification-hooks t)
(length (- end start)) (length (- end start))
(column (current-column))) (column (current-column)))
(save-restriction (save-restriction
@ -588,32 +591,28 @@ will be deleted before inserting template."
(= (current-column) 0)) (= (current-column) 0))
(insert indent)))) (insert indent))))
;; Step XX: protect backslash and backquote (let ((template-beg (point-min))
(yas/replace-all "\\\\" yas/escape-backslash) (template-end (point-max)))
(yas/replace-all "\\`" yas/escape-backquote) (widen)
(goto-char template-end)
(delete-char length)
(let ((snippet (yas/snippet-create template-beg template-end)))
(save-excursion
;; Do more indenting
(goto-char (overlay-start (yas/snippet-control-overlay snippet)))
(while (re-search-forward "$>" nil t)
(replace-match "")
(indent-according-to-mode))))))))
;; Step XX: evaluate all backquotes (defun yas/snippet-create (begin end)
(goto-char (point-min)) (narrow-to-region begin end)
(while (re-search-forward "`\\([^`]*\\)`" nil t) ;; Create and register a brand new snippet in the local
;; go back so that (current-column) in elisp code evaluation
;; will calculate to a meaningful value
(goto-char (match-beginning 0))
(replace-match (yas/eval-string (match-string-no-properties 1))
t t))
;; Step XX: protect all escapes, including backslash and backquot
;; which may be produced in Step 3
(yas/replace-all "\\\\" yas/escape-backslash)
(yas/replace-all "\\`" yas/escape-backquote)
(yas/replace-all "\\$" yas/escape-dollar)
;; Step XX: Create and register a brand new snippet in the local
;; `yas/registered-snippets' var. Create fields. ;; `yas/registered-snippets' var. Create fields.
(let ((snippet (yas/register-snippet (yas/make-snippet)))) (let ((snippet (yas/register-snippet (yas/make-snippet))))
(goto-char (point-min)) (goto-char (point-min))
(yas/snippet-parse-create snippet) (yas/snippet-parse-create snippet)
;; Step XX: Sort and link each field ;; Sort and link each field
(setf (yas/snippet-fields snippet) (setf (yas/snippet-fields snippet)
(sort (yas/snippet-fields snippet) (sort (yas/snippet-fields snippet)
'(lambda (field1 field2) '(lambda (field1 field2)
@ -626,7 +625,7 @@ will be deleted before inserting template."
(setf (yas/field-next prev) field)) (setf (yas/field-next prev) field))
(setq prev field))) (setq prev field)))
;; Step XX: Hide (or highlight for debugging) all hidden overlays ;; Hide (or highlight for debugging) all hidden overlays
(let ((prop-list)) (let ((prop-list))
(push (if (member 'yas/debug-some-vars post-command-hook) (push (if (member 'yas/debug-some-vars post-command-hook)
(cons 'face 'yas/field-debug-face) (cons 'face 'yas/field-debug-face)
@ -645,23 +644,12 @@ will be deleted before inserting template."
(when (overlayp (yas/snippet-exit snippet)) (when (overlayp (yas/snippet-exit snippet))
(overlay-put (yas/snippet-exit snippet) (car prop) (cdr prop))))) (overlay-put (yas/snippet-exit snippet) (car prop) (cdr prop)))))
;; Step XX: Create keymap overlay for snippet ;; Create keymap overlay for snippet
(setf (yas/snippet-control-overlay snippet) (yas/make-control-overlay (point-min) (point-max))) (setf (yas/snippet-control-overlay snippet) (yas/make-control-overlay (point-min) (point-max)))
;; Step XX: restore all escape characters
(yas/replace-all yas/escape-dollar "$")
(yas/replace-all yas/escape-backquote "`")
(yas/replace-all yas/escape-backslash "\\")
;; Step XX: move to end and make sure exit-marker exist ;; Step XX: move to end and make sure exit-marker exist
(goto-char (point-max)) (goto-char (point-max))
(unless (yas/snippet-exit snippet) (unless (yas/snippet-exit snippet)
(setf (yas/snippet-exit snippet) (copy-marker (point) t))) (setf (yas/snippet-exit snippet) (copy-marker (point) t)))
;; Step XX: remove the trigger key
(widen)
(delete-char length)
;; Step XX: place the cursor at a proper place ;; Step XX: place the cursor at a proper place
(let* ((first-field (car (yas/snippet-fields snippet))) (let* ((first-field (car (yas/snippet-fields snippet)))
overlay) overlay)
@ -672,13 +660,8 @@ will be deleted before inserting template."
(t (t
;; no need to call exit-snippet, since no overlay created. ;; no need to call exit-snippet, since no overlay created.
(yas/exit-snippet snippet)))) (yas/exit-snippet snippet))))
(widen)
;; Step XX: Do necessary indenting snippet))
(save-excursion
(goto-char (overlay-start (yas/snippet-control-overlay snippet)))
(while (re-search-forward "$>" nil t)
(replace-match "")
(indent-according-to-mode)))))))
(defun yas/snippet-parse-create (snippet) (defun yas/snippet-parse-create (snippet)
"Parse a recently inserted snippet template, creating all "Parse a recently inserted snippet template, creating all
@ -742,7 +725,8 @@ Allows nested placeholder in the style of Textmate."
(yas/field-mirrors field)))))))) (yas/field-mirrors field))))))))
(defun yas/mirror-update-display (mirror field) (defun yas/mirror-update-display (mirror field)
(overlay-put (yas/mirror-overlay mirror) 'after-string (yas/apply-transform mirror field))) (overlay-put (yas/mirror-overlay mirror) 'after-string
(propertize (yas/apply-transform mirror field) 'face 'yas/mirror-highlight-face)))
(defun yas/snippet-of-current-keymap (&optional point) (defun yas/snippet-of-current-keymap (&optional point)
"Return the most recently inserted snippet covering POINT." "Return the most recently inserted snippet covering POINT."
@ -1159,21 +1143,20 @@ when the condition evaluated to non-nil."
"Update SNIPPET to move to field FIELD." "Update SNIPPET to move to field FIELD."
(goto-char (overlay-end (car (yas/field-overlay-pair field)))) (goto-char (overlay-end (car (yas/field-overlay-pair field))))
(setf (yas/snippet-active-field snippet) field) (setf (yas/snippet-active-field snippet) field)
(let ((overlay (yas/snippet-active-field-overlay snippet))) (if (and yas/active-field-overlay
(if overlay (overlay-buffer yas/active-field-overlay))
(move-overlay overlay (move-overlay yas/active-field-overlay
(overlay-end (car (yas/field-overlay-pair field))) (overlay-end (car (yas/field-overlay-pair field)))
(overlay-start (cdr (yas/field-overlay-pair field)))) (overlay-start (cdr (yas/field-overlay-pair field))))
;; create a new overlay ;; create a new overlay
(setf (yas/snippet-active-field-overlay snippet) (setq yas/active-field-overlay
(make-overlay (overlay-end (car (yas/field-overlay-pair field))) (make-overlay (overlay-end (car (yas/field-overlay-pair field)))
(overlay-start (cdr (yas/field-overlay-pair field))))) (overlay-start (cdr (yas/field-overlay-pair field)))))
(setq overlay (yas/snippet-active-field-overlay snippet)) (overlay-put yas/active-field-overlay 'face 'yas/field-highlight-face)
(overlay-put overlay 'face 'yas/field-highlight-face) (overlay-put yas/active-field-overlay 'modification-hooks '(yas/on-field-overlay-modification))
(overlay-put overlay 'modification-hooks '(yas/on-field-overlay-modification)) (overlay-put yas/active-field-overlay 'insert-in-front-hooks '(yas/on-field-overlay-modification))
(overlay-put overlay 'insert-in-front-hooks '(yas/on-field-overlay-modification)) (overlay-put yas/active-field-overlay 'insert-behind-hooks '(yas/on-field-overlay-modification)))
(overlay-put overlay 'insert-behind-hooks '(yas/on-field-overlay-modification))) (overlay-put yas/active-field-overlay 'yas/field field))
(overlay-put overlay 'yas/field field)))
(defun yas/prev-field () (defun yas/prev-field ()
"Navigate to prev field. If there's none, exit the snippet." "Navigate to prev field. If there's none, exit the snippet."
@ -1248,7 +1231,6 @@ more snippets registered in the current buffer."
"Commit SNIPPET, but leave point as it is. This renders the "Commit SNIPPET, but leave point as it is. This renders the
snippet as ordinary text" snippet as ordinary text"
(let* ((control-overlay (yas/snippet-control-overlay snippet)) (let* ((control-overlay (yas/snippet-control-overlay snippet))
(active-field-overlay (yas/snippet-active-field-overlay snippet))
yas/snippet-beg yas/snippet-beg
yas/snippet-end) yas/snippet-end)
;; ;;
@ -1261,12 +1243,17 @@ snippet as ordinary text"
(setq yas/snippet-end (overlay-end control-overlay)) (setq yas/snippet-end (overlay-end control-overlay))
(delete-overlay control-overlay)) (delete-overlay control-overlay))
(let ((inhibit-modification-hooks t)) ;; TODO: Maybe action for snippet revival
(when active-field-overlay
(delete-overlay active-field-overlay))
;; Delete all the text under the overlays
;; ;;
(push `(apply yas/snippet-create ,yas/snippet-beg ,yas/snippet-end)
buffer-undo-list)
;; Trash those overlays!
;;
(let ((inhibit-modification-hooks t))
(when yas/active-field-overlay
(delete-overlay yas/active-field-overlay))
;; Delete all the text under the overlays
(dolist (field (yas/snippet-fields snippet)) (dolist (field (yas/snippet-fields snippet))
(dolist (mirror (yas/field-mirrors field)) (dolist (mirror (yas/field-mirrors field))
(let ((mirror-overlay (yas/mirror-overlay mirror))) (let ((mirror-overlay (yas/mirror-overlay mirror)))
@ -1289,9 +1276,6 @@ snippet as ordinary text"
(yas/delete-overlay-region (yas/snippet-exit snippet)) (yas/delete-overlay-region (yas/snippet-exit snippet))
(set-marker (yas/snippet-exit snippet) nil))) (set-marker (yas/snippet-exit snippet) nil)))
;; TODO: Maybe action for snippet revival
;;
;;
;; XXX: `yas/after-exit-snippet-hook' should be run with ;; XXX: `yas/after-exit-snippet-hook' should be run with
;; `yas/snippet-beg' and `yas/snippet-end' bound. That might not ;; `yas/snippet-beg' and `yas/snippet-end' bound. That might not
;; be the case if the main overlay had somehow already ;; be the case if the main overlay had somehow already
@ -1419,7 +1403,7 @@ registered snippets last."
(yas/exterminate-snippets) (yas/exterminate-snippets)
(erase-buffer) (erase-buffer)
(setq buffer-undo-list nil) (setq buffer-undo-list nil)
(insert "prop") (insert "prip")
(objc-mode) (objc-mode)
(when verbose (when verbose
(add-hook (make-local-variable 'post-command-hook) 'yas/debug-some-vars)) (add-hook (make-local-variable 'post-command-hook) 'yas/debug-some-vars))