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

Commenting...

Browse Source
This commit is contained in:
capitaomorte 2009-07-07 17:19:56 +00:00
parent 7ce15312a7
commit 9e9f5f477c
1 changed files with 52 additions and 48 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

100
yasnippet.el
View File

@ -377,6 +377,8 @@ a list of modes like this to help the judgement."
(or (fboundp mode) (or (fboundp mode)
(find mode yas/known-modes))) (find mode yas/known-modes)))
;; TODO: This is a possible optimization point, the expression could
;; be stored in cons format instead of string,
(defun yas/eval-string (string) (defun yas/eval-string (string)
"Evaluate STRING and convert the result to string." "Evaluate STRING and convert the result to string."
(condition-case err (condition-case err
@ -953,44 +955,44 @@ up the snippet does not delete it!"
(defun yas/delete-overlay-region (overlay) (defun yas/delete-overlay-region (overlay)
(delete-region (overlay-start overlay) (overlay-end overlay))) (delete-region (overlay-start overlay) (overlay-end overlay)))
;; Markers to points: This can be useful for performance reasons, so ;;; Apropos markers-to-points: This can be useful for performance reasons, so
;; that an excessive number of live markers arent kept aroung in the ;;; that an excessive number of live markers arent kept aroung in the
;; `buffer-undo-list'. However in `markers-to-points', the set-to-nil ;;; `buffer-undo-list'. However in `markers-to-points', the set-to-nil
;; markers can't simply be discarded and replaced with fresh ones in ;;; markers can't simply be discarded and replaced with fresh ones in
;; `points-to-markers'. The original set-to-nil marker has to be ;;; `points-to-markers'. The original set-to-nil marker has to be
;; reused. ;;; reused.
;;;
;;; (defun yas/markers-to-points (snippet)
;;; "Convert all markers in SNIPPET to simple integer buffer positions."
;;; (dolist (field (yas/snippet-fields snippet))
;;; (let ((start (marker-position (yas/field-start field)))
;;; (end (marker-position (yas/field-end field))))
;;; (set-marker (yas/field-start field) nil)
;;; (set-marker (yas/field-end field) nil)
;;; (setf (yas/field-start field) start)
;;; (setf (yas/field-end field) end))
;;; (dolist (mirror (yas/field-mirrors field))
;;; (let ((start (marker-position (yas/mirror-start mirror)))
;;; (end (marker-position (yas/mirror-end mirror))))
;;; (set-marker (yas/mirror-start mirror) nil)
;;; (set-marker (yas/mirror-end mirror) nil)
;;; (setf (yas/mirror-start mirror) start)
;;; (setf (yas/mirror-end mirror) end))))
;;; (when (yas/snippet-exit snippet)
;;; (let ((exit (marker-position (yas/snippet-exit snippet))))
;;; (set-marker (yas/snippet-exit snippet) nil)
;;; (setf (yas/snippet-exit snippet) exit))))
;; ;;
;; (defun yas/markers-to-points (snippet) ;;; (defun yas/points-to-markers (snippet)
;; "Convert all markers in SNIPPET to simple integer buffer positions." ;;; "Convert all simple integer buffer positions in SNIPPET to markers"
;; (dolist (field (yas/snippet-fields snippet)) ;;; (dolist (field (yas/snippet-fields snippet))
;; (let ((start (marker-position (yas/field-start field))) ;;; (setf (yas/field-start field) (set-marker (make-marker) (yas/field-start field)))
;; (end (marker-position (yas/field-end field)))) ;;; (setf (yas/field-end field) (set-marker (make-marker) (yas/field-end field)))
;; (set-marker (yas/field-start field) nil) ;;; (dolist (mirror (yas/field-mirrors field))
;; (set-marker (yas/field-end field) nil) ;;; (setf (yas/mirror-start mirror) (set-marker (make-marker) (yas/mirror-start mirror)))
;; (setf (yas/field-start field) start) ;;; (setf (yas/mirror-end mirror) (set-marker (make-marker) (yas/mirror-end mirror)))))
;; (setf (yas/field-end field) end)) ;;; (when (yas/snippet-exit snippet)
;; (dolist (mirror (yas/field-mirrors field)) ;;; (setf (yas/snippet-exit snippet) (set-marker (make-marker) (yas/snippet-exit snippet)))))
;; (let ((start (marker-position (yas/mirror-start mirror)))
;; (end (marker-position (yas/mirror-end mirror))))
;; (set-marker (yas/mirror-start mirror) nil)
;; (set-marker (yas/mirror-end mirror) nil)
;; (setf (yas/mirror-start mirror) start)
;; (setf (yas/mirror-end mirror) end))))
;; (when (yas/snippet-exit snippet)
;; (let ((exit (marker-position (yas/snippet-exit snippet))))
;; (set-marker (yas/snippet-exit snippet) nil)
;; (setf (yas/snippet-exit snippet) exit))))
;; (defun yas/points-to-markers (snippet)
;; "Convert all simple integer buffer positions in SNIPPET to markers"
;; (dolist (field (yas/snippet-fields snippet))
;; (setf (yas/field-start field) (set-marker (make-marker) (yas/field-start field)))
;; (setf (yas/field-end field) (set-marker (make-marker) (yas/field-end field)))
;; (dolist (mirror (yas/field-mirrors field))
;; (setf (yas/mirror-start mirror) (set-marker (make-marker) (yas/mirror-start mirror)))
;; (setf (yas/mirror-end mirror) (set-marker (make-marker) (yas/mirror-end mirror)))))
;; (when (yas/snippet-exit snippet)
;; (setf (yas/snippet-exit snippet) (set-marker (make-marker) (yas/snippet-exit snippet)))))
(defun yas/commit-snippet (snippet &optional no-hooks) (defun yas/commit-snippet (snippet &optional no-hooks)
"Commit SNIPPET, but leave point as it is. This renders the "Commit SNIPPET, but leave point as it is. This renders the
@ -1162,16 +1164,18 @@ progress."
(yas/clear-field field)) (yas/clear-field field))
(setf (yas/field-modified-p field) t)))))) (setf (yas/field-modified-p field) t))))))
;; Apropos "protection overlays:"... These exist for nasty users who ;;;
;; will try to delete parts of the snippet outside the active ;;; Apropos protection overlays:...
;; field. Actual protection happens in ;;;
;; `yas/on-protection-overlay-modification'. ;;; These exist for nasty users who will try to delete parts of the
;; ;;; snippet outside the active field. Actual protection happens in
;; Currently, this commits the snippet before actually calling ;;; `yas/on-protection-overlay-modification'.
;; `this-command' interactively, and then signals an eror, which is ;;;
;; ignored. but blocks all other million modification hooks. I might ;;; Currently, this commits the snippet before actually calling
;; decide to not let the command be executed at all... ;;; `this-command' interactively, and then signals an eror, which is
;; ;;; ignored. but blocks all other million modification hooks. I might
;;; decide to not let the command be executed at all...
;;;
(defun yas/make-move-field-protection-overlays (snippet field) (defun yas/make-move-field-protection-overlays (snippet field)
"Place protection overlays surrounding SNIPPET's FIELD. "Place protection overlays surrounding SNIPPET's FIELD.
@ -1200,7 +1204,7 @@ Move the overlays, or create them if they do not exit."
(error "Snippet exited")))))) (error "Snippet exited"))))))
;;; ;;;
;;; Apropos "stacked expansion:"... ;;; Apropos stacked expansion:...
;;; ;;;
;;; the parent snippet does not run its fields modification hooks ;;; the parent snippet does not run its fields modification hooks
;;; (`yas/on-field-overlay-modification' and ;;; (`yas/on-field-overlay-modification' and