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

Big bugs but it's around! Field level undo obviously needs a massive

Browse Source 
change....
This commit is contained in:
capitaomorte 2008-09-08 17:06:16 +00:00
parent 4a2db923bb
commit e899cb4f83
1 changed files with 59 additions and 102 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

159
yasnippet.el
View File

@ -340,7 +340,9 @@ TODO: describe the rest of the fields"
(fields (list primary-field)) (fields (list primary-field))
(next nil) (next nil)
(prev nil) (prev nil)
snippet) snippet
deleted
modified)
(defstruct (yas/field (defstruct (yas/field
(:constructor yas/make-field (overlay number value transform parent-field))) (:constructor yas/make-field (overlay number value transform parent-field)))
"A field in a snippet." "A field in a snippet."
@ -604,21 +606,33 @@ of the primary field."
(defun yas/overlay-insert-in-front-hook (overlay after? beg end &optional length) (defun yas/overlay-insert-in-front-hook (overlay after? beg end &optional length)
"Hook for snippet overlay when text is inserted in front of a snippet field." "Hook for snippet overlay when text is inserted in front of a snippet field."
(when after? (let ((group (overlay-get overlay 'yas/group)))
(let ((field-group (overlay-get overlay 'yas/group)) (when (and after?
(inhibit-modification-hooks t)) group
(when (not (overlay-get overlay 'yas/modified?)) (not (yas/group-deleted group)))
(overlay-put overlay 'yas/modified? t) (let ((inhibit-modification-hooks t))
(when (> (overlay-end overlay) end) ;; If the group hasn't ever been modified, delete it
(save-excursion ;; completely.
(goto-char end) (when (not (yas/group-modified group))
(delete-char (- (overlay-end overlay) end))))) (setf (yas/group-modified group) t)
(yas/synchronize-fields field-group)))) (when (> (overlay-end overlay) end)
(save-excursion
(goto-char end)
(delete-char (- (overlay-end overlay) end))))
;; Mark subgroups as `yas/group-deleted', so insert-in-front
;; and behind hooks won't be run by them.
(mapcar #'(lambda (group)
(setf (yas/group-deleted group) t))
(mapcar #'yas/field-group (yas/field-subfields (yas/group-primary-field group)))))
;; in any case, synchronize mirror fields
(yas/synchronize-fields group)))))
(defun yas/overlay-insert-behind-hook (overlay after? beg end &optional length) (defun yas/overlay-insert-behind-hook (overlay after? beg end &optional length)
"Hook for snippet overlay when text is inserted just behind a snippet field." "Hook for snippet overlay when text is inserted just behind a snippet field."
(let ((current-field-overlay (yas/current-field-overlay beg))) (let ((current-field-overlay (yas/current-field-overlay beg))
(group (overlay-get overlay 'yas/group)))
(when (and after? (when (and after?
(not (yas/group-deleted group))
(or (null current-field-overlay) ; not inside another field (or (null current-field-overlay) ; not inside another field
(< (overlay-get current-field-overlay 'priority) (< (overlay-get current-field-overlay 'priority)
(overlay-get overlay 'priority)))) (overlay-get overlay 'priority))))
@ -787,8 +801,9 @@ will be deleted before inserting template."
nil nil
nil nil
t))) t)))
;; XXX: DEBUG: Got rid of this workaround. Hope I can find ;; XXX: DEBUG: Got rid of this workaround and used old
;; some other one. ;; `yas/overlay-insert-behind-hook' . Hope I can find some
;; other one.
;; ;;
;; (overlay-put overlay ;; (overlay-put overlay
;; 'modification-hooks ;; 'modification-hooks
@ -822,7 +837,6 @@ will be deleted before inserting template."
(yas/group-primary-field group)))) (yas/group-primary-field group))))
(overlay-put overlay 'yas/snippet snippet) (overlay-put overlay 'yas/snippet snippet)
(overlay-put overlay 'yas/group group) (overlay-put overlay 'yas/group group)
(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 'insert-behind-hooks yas/overlay-insert-behind-hooks) (overlay-put overlay 'insert-behind-hooks yas/overlay-insert-behind-hooks)
@ -995,7 +1009,6 @@ placeholders."
(message "Invalid snippet template!"))))) (message "Invalid snippet template!")))))
bracket-end)) bracket-end))
(defun yas/current-field-overlay (&optional point) (defun yas/current-field-overlay (&optional point)
"Return the most ." "Return the most ."
(let ((point (or point (point)))) (let ((point (or point (point))))
@ -1032,43 +1045,6 @@ POINT."
(setq keymap-snippet snippet))))) (setq keymap-snippet snippet)))))
keymap-snippet)) keymap-snippet))
(defun yas/current-overlay-for-navigation ()
"Get current overlay for navigation.
XXX: FIXME: investigate why: Might be overlay at current or previous point."
(yas/current-field-overlay))
;;XXX: DEBUG removed
;; (let ((overlay1 (yas/current-field-overlay))
;; (overlay2 (if (bobp)
;; nil
;; (yas/current-field-overlay (- (point) 1)))))
;; (if (null overlay1)
;; overlay2
;; (if (or (null overlay2)
;; (eq (overlay-get overlay1 'yas/snippet)
;; (overlay-get overlay2 'yas/snippet)))
;; overlay1
;; (if (> (yas/snippet-id (overlay-get overlay2 'yas/snippet))
;; (yas/snippet-id (overlay-get overlay1 'yas/snippet)))
;; overlay2
;; overlay1)))))
(defun yas/navigate-group (group next?)
"Go to next of previous field group. Exit snippet if none."
(let ((target (if next?
(yas/group-next group)
(yas/group-prev group))))
(if target
(goto-char (overlay-start
(yas/field-overlay
(yas/group-primary-field target))))
(yas/exit-snippet (yas/group-snippet group)))))
(defun yas/parse-template (&optional file-name) (defun yas/parse-template (&optional file-name)
"Parse the template in the current buffer. "Parse the template in the current buffer.
If the buffer contains a line of \"# --\" then the contents If the buffer contains a line of \"# --\" then the contents
@ -1430,7 +1406,7 @@ when the condition evaluated to non-nil."
(if template (if template
(progn (yas/expand-snippet start end template) (progn (yas/expand-snippet start end template)
'expanded) ; expanded successfully 'expanded) ; expanded successfully
'interruptted)) ; interrupted by user 'interrupted)) ; interrupted by user
(if (eq yas/fallback-behavior 'return-nil) (if (eq yas/fallback-behavior 'return-nil)
nil ; return nil nil ; return nil
(let* ((yas/minor-mode nil) (let* ((yas/minor-mode nil)
@ -1438,58 +1414,39 @@ when the condition evaluated to non-nil."
(when (commandp command) (when (commandp command)
(call-interactively command)))))))))) (call-interactively command))))))))))
(defun yas/next-field-group () (defun yas/current-field-overlay-for-navigation ()
;; FIXME: has big bug
(or (yas/current-field-overlay (1- (point)))
(yas/current-field-overlay)))
(defun yas/next-field-group (&optional arg)
"Navigate to next field group. If there's none, exit the snippet." "Navigate to next field group. If there's none, exit the snippet."
(interactive) (interactive)
(let ((overlay (yas/current-overlay-for-navigation))) (let* ((arg (or arg
(if overlay 1))
(yas/navigate-group (overlay-get overlay 'yas/group) t) (overlay (yas/current-field-overlay-for-navigation))
(let ((snippet (yas/snippet-of-current-keymap)) (number (and overlay
(done nil)) (+ arg
(if snippet (yas/group-number (overlay-get overlay 'yas/group)))))
(do* ((groups (yas/snippet-groups snippet) (cdr groups)) (snippet (yas/snippet-of-current-keymap))
(group (car groups) (car groups))) (target-group (and number
((or (null groups) snippet
done) (find-if #'(lambda (group)
(unless done (= number (yas/group-number group)))
(let* ((overlay (yas/snippet-overlay snippet)) (yas/snippet-groups snippet)))))
(keymap (overlay-get overlay 'keymap)) (unless (< number 1)
(command nil)) (if target-group
(overlay-put overlay 'keymap nil) (goto-char (overlay-start
(overlay-put overlay 'yas/snippet-reference nil) (yas/field-overlay
(setq command (key-binding yas/next-field-key)) (yas/group-primary-field target-group))))
(when (commandp command) (when snippet
(call-interactively command)) (yas/exit-snippet snippet))))))
(overlay-put overlay 'keymap keymap)
(overlay-put overlay 'yas/snippet-reference snippet))))
(when (= (point)
(overlay-start
(yas/field-overlay
(yas/group-primary-field group))))
(setq done t)
(yas/navigate-group group t))))))))
(defun yas/prev-field-group () (defun yas/prev-field-group ()
"Navigate to prev field group. If there's none, exit the snippet." "Navigate to prev field group. If there's none, exit the snippet."
(interactive) (interactive)
(let ((overlay (yas/current-overlay-for-navigation)))
(if overlay (yas/next-field-group -1))
(yas/navigate-group (overlay-get overlay 'yas/group) nil)
(let ((snippet (yas/snippet-of-current-keymap))
(done nil))
(if snippet
(do* ((groups (yas/snippet-groups snippet) (cdr groups))
(group (car groups) (car groups)))
((or (null groups)
done)
(unless done (message "Not in a snippet field.")))
(when (= (point)
(overlay-start
(yas/field-overlay
(yas/group-primary-field group))))
(setq done t)
(yas/navigate-group group nil)))
(message "Not in a snippet field."))))))
(defun yas/exit-snippet (snippet) (defun yas/exit-snippet (snippet)
"Goto exit-marker of SNIPPET and cleanup the snippe. Cleaning "Goto exit-marker of SNIPPET and cleanup the snippe. Cleaning
@ -1604,7 +1561,7 @@ registered snippets last."
(<= (point) (overlay-end primary-overlay))))) (<= (point) (overlay-end primary-overlay)))))
(yas/snippet-groups snippet))) (yas/snippet-groups snippet)))
(yas/cleanup-snippet snippet)) (yas/cleanup-snippet snippet))
( ;; (;;
;; Snippet at point, and point inside a snippet field, ;; Snippet at point, and point inside a snippet field,
;; everything is normal ;; everything is normal
;; ;;