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

* Nice! Getting there with this scheme, undo and everything!

Browse Source
This commit is contained in:
capitaomorte 2008-09-12 13:19:34 +00:00
parent d5695a34cb
commit 38ce2aac82
1 changed files with 220 additions and 146 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

366
yasnippet.el
View File

@ -292,24 +292,13 @@ set to t."
(defstruct (yas/snippet (:constructor yas/make-snippet ())) (defstruct (yas/snippet (:constructor yas/make-snippet ()))
"A snippet. "A snippet.
Description of some fields: ..."
`yas/snippet-saved-buffer-undo-list' saves the value of
`buffer-undo-list' just after the snippet has been expanded. This
is to be restored when the snippet is cleaned up. Thus the
snippet expansion can still be undone after
`yas/cleanup-snippet', even if field-level undo steps were
recorded.
`yas/snippet-end-marker' saves the actual end position of the
snippets main overlay, at the time the snippet was cleaned
up. Thus `yas/undo-expand-snippet' can clean it up properly.
TODO: describe the rest of the fields"
(groups nil) (groups nil)
(exit-marker nil) (exit-marker 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)
field-undo-saved-boundaries
(active-group nil) (active-group nil)
(end-marker nil)) (end-marker nil))
@ -323,7 +312,7 @@ TODO: describe the rest of the fields"
(deleted nil) (deleted nil)
(modified nil)) (modified nil))
(defstruct (yas/field (defstruct (yas/field
(:constructor yas/make-field (start-marker end-marker number value transform parent-field))) (:constructor yas/make-field (start end number value transform parent-field)))
"A field in a snippet." "A field in a snippet."
start start
end end
@ -579,45 +568,52 @@ of the primary field."
(t (t
"STH UNKNOWN")) "STH UNKNOWN"))
overlay)) overlay))
(when (and after? (not undo-in-progress)) (when after?
;; (and after? (not undo-in-progress))
(yas/synchronize-fields (overlay-get overlay 'yas/group)))) (yas/synchronize-fields (overlay-get overlay 'yas/group))))
(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."
(let ((group (overlay-get overlay 'yas/group))) (let ((group (overlay-get overlay 'yas/group)))
(when (and after? (when (and after?
group group)
(not (yas/group-deleted group)))
(let ((inhibit-modification-hooks t)) (let ((inhibit-modification-hooks t))
;; If the group hasn't ever been modified, delete it ;;
;; If the group hasn't ever been modified, delete its contents
;; completely. ;; completely.
;;
(when (not (yas/group-modified group)) (when (not (yas/group-modified group))
(setf (yas/group-modified group) t) (setf (yas/group-modified group) t)
(when (> (overlay-end overlay) end) (when (> (overlay-end overlay) end)
(save-excursion (save-excursion
(goto-char end) (goto-char end)
(delete-char (- (overlay-end overlay) 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. ;; Mark subgroups as `yas/group-deleted', so we're no longer
;; able to move them. XXX:UNDO:TODO: This action has to be undoable!
;;
(mapcar #'(lambda (group) (mapcar #'(lambda (group)
(setf (yas/group-deleted group) t)) (setf (yas/group-deleted group) t))
(mapcar #'yas/field-group (yas/field-subfields (yas/group-primary-field group))))) (mapcar #'yas/field-group (yas/field-subfields (yas/group-primary-field group)))))
;; in any case, synchronize mirror fields ;; in any case, synchronize mirror fields
(yas/synchronize-fields group))))) (yas/synchronize-fields group)))))
(defun yas/move-overlay-and-field (overlay field start end)
(move-overlay overlay
start
end)
(move-marker (yas/field-start field) start)
(move-marker (yas/field-end field) end))
(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 the currently active field overlay."
(let ((current-field-overlay (yas/current-field-overlay beg)) (let* ((group (overlay-get overlay 'yas/group))
(group (overlay-get overlay 'yas/group))) (field (and group
(yas/group-primary-field group))))
(when (and after? (when (and after?
(not (yas/group-deleted group)) field)
(or (null current-field-overlay) ; not inside another field (yas/move-overlay-and-field overlay field (overlay-start overlay) end)
(< (overlay-get current-field-overlay 'priority) (yas/synchronize-fields group))))
(overlay-get overlay 'priority))))
(move-overlay overlay
(overlay-start overlay)
end)
(yas/synchronize-fields (overlay-get overlay 'yas/group)))))
(defun yas/remove-recent-undo-from-history () (defun yas/remove-recent-undo-from-history ()
(let ((undo (car buffer-undo-list))) (let ((undo (car buffer-undo-list)))
@ -669,7 +665,7 @@ will be deleted before inserting template."
(save-restriction (save-restriction
(narrow-to-region start start) (narrow-to-region start start)
(setq buffer-undo-list t) ;; disable undo for a short while ;; (setq buffer-undo-list t) ;; disable undo for a short while
(insert template) (insert template)
;; Step 1: do necessary indent ;; Step 1: do necessary indent
@ -752,38 +748,30 @@ will be deleted before inserting template."
(unless (yas/snippet-exit-marker snippet) (unless (yas/snippet-exit-marker snippet)
(setf (yas/snippet-exit-marker snippet) (copy-marker (point) t))) (setf (yas/snippet-exit-marker snippet) (copy-marker (point) t)))
;; Step 12: Construct undo information ;; ;; Step 12: Construct undo information
(unless (eq original-undo-list t) ;; (unless (eq original-undo-list t)
(add-to-list 'original-undo-list ;; (add-to-list 'original-undo-list
`(apply yas/undo-expand-snippet ;; `(apply yas/undo-expand-snippet
,(point-min) ;; ,(point-min)
,key ;; ,key
,snippet))) ;; ,snippet)))
;; Step 13: remove the trigger key ;; Step 13: remove the trigger key
(widen) (widen)
(delete-char length) (delete-char length)
;; Step 14: Restore undo information ;; ;; Step 14: Restore undo information
(setq buffer-undo-list original-undo-list) ;; (setq buffer-undo-list original-undo-list)
;; Step 15: place the cursor at a proper place ;; Step 15: place the cursor at a proper place
(let ((first-group (car (yas/snippet-groups snippet))) (let* ((first-group (car (yas/snippet-groups snippet)))
(first-field (and first-group (first-field (and first-group
(yas/group-primary-field first-group))) (yas/group-primary-field first-group)))
overlay) overlay)
(cond (first-field (cond (first-field
(setf (yas/snippet-active-group snippet) first-group) ;; Step 10: Move to the new group, setting up
(goto-char (yas/field-start first-field)) ;; properties of the wandering active field overlay.
;; Step 10: Set up properties of the wandering active field (yas/move-to-group snippet first-group))
;; overlay.
(setq overlay (make-overlay (yas/field-start first-field) (yas/field-end first-field)))
(overlay-put overlay 'yas/group group)
(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-behind-hooks yas/overlay-insert-behind-hooks)
(overlay-put overlay 'face 'yas/field-highlight-face)
(setf (yas/snippet-active-field-overlay snippet) overlay))
(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))))
@ -911,26 +899,6 @@ placeholders."
(message "Invalid snippet template!"))))) (message "Invalid snippet template!")))))
bracket-end)) bracket-end))
(defun yas/current-field-overlay (&optional point)
"Return the most ."
(let ((point (or point (point))))
(car (sort (delete-if-not #'(lambda (overlay)
(overlay-get overlay 'yas/snippet))
(overlays-at point))
#'(lambda (overlay1 overlay2)
(let ((id-1 (yas/snippet-id (overlay-get overlay1 'yas/snippet)))
(id-2 (yas/snippet-id (overlay-get overlay2 'yas/snippet)))
(prio-1 (overlay-get overlay1 'priority))
(prio-2 (overlay-get overlay2 'priority)))
(cond ((> id-1 id-2)
t)
((< id-1 id-2)
nil)
((> prio-1 prio-2)
t)
(t
nil))))))))
(defun yas/snippet-of-current-keymap (&optional point) (defun yas/snippet-of-current-keymap (&optional point)
"Return the most recently inserted snippet holding covering "Return the most recently inserted snippet holding covering
POINT." POINT."
@ -947,6 +915,9 @@ POINT."
(setq keymap-snippet snippet))))) (setq keymap-snippet snippet)))))
keymap-snippet)) keymap-snippet))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; Template-related and snippet loading functions
(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
@ -1317,10 +1288,8 @@ when the condition evaluated to non-nil."
(call-interactively command)))))))))) (call-interactively command))))))))))
(defun yas/current-group-for-navigation (&optional snippet) (defun yas/current-group-for-navigation (&optional snippet)
(or (and snippet (and snippet
(yas/snippet-active-group snippet)) (yas/snippet-active-group snippet)))
(overlay-get (or (yas/current-field-overlay (1- (point)))
(yas/current-field-overlay)) 'yas/group)))
(defun yas/next-field-group (&optional arg) (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."
@ -1346,20 +1315,33 @@ when the condition evaluated to non-nil."
nil)))) nil))))
(defun yas/move-to-group (snippet group) (defun yas/move-to-group (snippet group)
(let ((field (yas/group-primary-field target-group))) "Update SNIPPET to move to group GROUP."
(let ((field (yas/group-primary-field group))
(overlay (yas/snippet-active-field-overlay snippet)))
(goto-char (yas/field-start field)) (goto-char (yas/field-start field))
(setf (yas/snippet-active-group snippet) target-group) (setf (yas/snippet-active-group snippet) group)
(move-overlay (yas/snippet-active-field-overlay snippet) (yas/field-start field) (cond ((and overlay
(yas/field-end field)))) (overlay-buffer overlay))
(move-overlay overlay (yas/field-start field)
(yas/field-end field)))
(t
(setq overlay (make-overlay (yas/field-start first-field) (yas/field-end first-field)))
(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-behind-hooks yas/overlay-insert-behind-hooks)
(overlay-put overlay 'face 'yas/field-highlight-face)
(setf (yas/snippet-active-field-overlay snippet) overlay)))
(overlay-put overlay 'yas/group group)
(overlay-put overlay 'yas/field field)))
(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)
(yas/next-field-group -1)) (yas/next-field-group -1))
(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 snippet. Cleaning
up the snippet does not delete it!" up the snippet does not delete it!"
(interactive) (interactive)
(goto-char (yas/snippet-exit-marker snippet)) (goto-char (yas/snippet-exit-marker snippet))
@ -1403,6 +1385,8 @@ registered snippet exists in the current buffer. Return snippet"
(add-hook 'pre-command-hook 'yas/field-undo-before-hook 'append 'local) (add-hook 'pre-command-hook 'yas/field-undo-before-hook 'append 'local)
(add-hook 'post-command-hook 'yas/check-cleanup-snippet 'append 'local) (add-hook 'post-command-hook 'yas/check-cleanup-snippet 'append 'local)
(add-hook 'post-command-hook 'yas/field-undo-after-hook 'append 'local) (add-hook 'post-command-hook 'yas/field-undo-after-hook 'append 'local)
;; DEBUG
(add-hook 'post-command-hook 'yas/debug-some-vars 'append 'local)
snippet) snippet)
(defun yas/unregister-snippet (snippet) (defun yas/unregister-snippet (snippet)
@ -1415,14 +1399,22 @@ current buffer."
(hash-table-count yas/registered-snippets)) (hash-table-count yas/registered-snippets))
(remove-hook 'pre-command-hook 'yas/field-undo-before-hook 'local) (remove-hook 'pre-command-hook 'yas/field-undo-before-hook 'local)
(remove-hook 'post-command-hook 'yas/field-undo-after-hook 'local) (remove-hook 'post-command-hook 'yas/field-undo-after-hook 'local)
(remove-hook 'post-command-hook 'yas/check-cleanup-snippet 'local))) (remove-hook 'post-command-hook 'yas/check-cleanup-snippet 'local)
;; DEBUG
(remove-hook 'post-command-hook 'yas/debug-some-vars ' 'local)
))
(defun yas/exterminate-snippets () (defun yas/exterminate-snippets ()
"Remove all locally registered snippets and remove "Remove all locally registered snippets and remove
`yas/check-cleanup-snippet' from the `post-command-hook'" `yas/check-cleanup-snippet' from the `post-command-hook'"
(interactive) (interactive)
(maphash #'(lambda (key snippet) (yas/cleanup-snippet snippet)) (maphash #'(lambda (key snippet)
yas/registered-snippets)) (when (yas/snippet-p snippet) (yas/cleanup-snippet snippet)))
yas/registered-snippets)
(unless (eq 0 (hash-table-count yas/registered-snippets))
(setq yas/registered-snippets (make-hash-table :test 'eq))
(message "Warning: yas/snippet hash-table not fully clean. Forcing NIL.")))
(defun yas/cleanup-snippet (snippet) (defun yas/cleanup-snippet (snippet)
"Cleanup SNIPPET, but leave point as it is. This renders the "Cleanup SNIPPET, but leave point as it is. This renders the
@ -1430,60 +1422,67 @@ snippet as ordinary text"
(let* ((control-overlay (yas/snippet-control-overlay snippet)) (let* ((control-overlay (yas/snippet-control-overlay snippet))
(field-overlay (yas/snippet-active-field-overlay snippet)) (field-overlay (yas/snippet-active-field-overlay snippet))
yas/snippet-beg yas/snippet-end) yas/snippet-beg yas/snippet-end)
;; save the end of the moribund snippet in case we need to undo ;;
;; Save the end of the moribund snippet in case we need to undo
;; its original expansion. This is used by `yas/undo-expand-snippet' ;; its original expansion. This is used by `yas/undo-expand-snippet'
;;
(when (and control-overlay (when (and control-overlay
(overlay-buffer control-overlay)) (overlay-buffer control-overlay))
(setq yas/snippet-beg (overlay-start control-overlay)) (setq yas/snippet-beg (overlay-start control-overlay))
(setq yas/snippet-end (overlay-end control-overlay)) (setq yas/snippet-end (overlay-end control-overlay))
(setf (yas/snippet-end-marker snippet) yas/snippet-end) (setf (yas/snippet-end-marker snippet) yas/snippet-end)
(delete-overlay control-overlay)) (delete-overlay control-overlay))
;;
;; Delete the currently active field overlay if any ;; Delete the currently active field overlay if any
;;
(when (and field-overlay (when (and field-overlay
(overlay-buffer field-overlay)) (overlay-buffer field-overlay))
(delete-overlay field-overlay)) (delete-overlay field-overlay))
;;
;; Iterate every group, and in it, every field.
;; ;;
(dolist (group (yas/snippet-groups snippet)) (dolist (group (yas/snippet-groups snippet))
(dolist (field (yas/group-fields group)) (dolist (field (yas/group-fields group))
(let ((start-marker (yas/field-start field)) (let ((start-marker (yas/field-start field))
(end-marker (yas/field-end field))) (end-marker (yas/field-end field)))
(setf (yas/field-start field) (marker-position start-marker)) ;;
(setf (yas/field-end field) (marker-position end-marker)) ;; convert markers into points, before losing the reference.
(set-marker start-marker nil) ;;
(set-marker end-marker nil)))) (when (markerp start-marker)
(setf (yas/field-start field) (marker-position start-marker))
(set-marker start-marker nil))
(when (markerp end-marker)
(setf (yas/field-end field) (marker-position end-marker))
(set-marker end-marker nil)))))
;;
;; 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
;; disappeared, which sometimes happens when the snippet's messed ;; disappeared, which sometimes happens when the snippet's messed
;; up... ;; up...
;;
(run-hooks 'yas/after-exit-snippet-hook)) (run-hooks 'yas/after-exit-snippet-hook))
(yas/unregister-snippet snippet) (yas/unregister-snippet snippet))
(setq buffer-undo-list (yas/snippet-saved-buffer-undo-list snippet)))
(defun yas/check-cleanup-snippet () (defun yas/check-cleanup-snippet ()
"Checks if point exited any of the fields of the snippet, if so "Checks if point exited the currently active field of the
clean it up. snippet, if so cleans up the whole snippet up.
This function is part of `post-command-hook' while This function is part of `post-command-hook' while
registered snippets last." registered snippets last."
(let ((snippet (yas/snippet-of-current-keymap))) (let* ((snippet (yas/snippet-of-current-keymap))
(field-overlay (and snippet
(yas/snippet-active-field-overlay snippet))))
(cond ( ;; (cond ( ;;
;; No snippet at point, cleanup *all* snippets ;; No snippet at point, cleanup *all* snippets
;; ;;
(null snippet) (null snippet)
(yas/exterminate-snippets)) (yas/exterminate-snippets))
( ;; ( ;; A snippet exits at point, but point left the currently
;; A snippet exits at point, but point is out of any ;; active field overlay
;; primary snippet field. (and field-overlay
(and snippet (or (> (point) (overlay-end field-overlay))
(notany #'(lambda (group) (< (point) (overlay-start field-overlay))))
(let ((primary-overlay (yas/field-overlay (yas/group-primary-field group))))
(and (>= (point) (overlay-start primary-overlay))
(<= (point) (overlay-end primary-overlay)))))
(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,
@ -1497,17 +1496,83 @@ registered snippets last."
;; XXX: Commentary on this section by joaot. ;; XXX: Commentary on this section by joaot.
;; ;;
;; ... ;; ...
(defun yas/field-undo-before-hook () (defun yas/field-undo-before-hook ()
"..." "..."
) (let* ((snippet (yas/snippet-of-current-keymap))
(field-overlay (and snippet
(yas/snippet-active-field-overlay snippet))))
(when (and field-overlay
(overlay-buffer field-overlay))
(setf (yas/snippet-field-undo-saved-boundaries snippet)
(cons (overlay-start field-overlay)
(overlay-end field-overlay))))))
(defun yas/field-undo-after-hook () (defun yas/field-undo-after-hook ()
"..." "..."
) (let* ((snippet (yas/snippet-of-current-keymap))
(saved-boundaries (and snippet
(yas/snippet-field-undo-saved-boundaries snippet))))
(unless (null saved-boundaries)
(yas/push-undo-action-maybe (list 'yas/field-undo-restore-boundaries
(car saved-boundaries)
(cdr saved-boundaries))))
(unless (null snippet)
(yas/push-undo-action-maybe (list 'yas/restore-active-group nil)))))
(defun yas/field-restore-overlay-position (snippet)
(defun yas/restore-active-group (snippet)
"..." "..."
) (message "Would be restoring the active group, but how????"))
(defun yas/push-undo-action-maybe (apply-args)
"..."
(let ((undo-list buffer-undo-list)
(target-separator nil)
done)
(unless (eq t buffer-undo-list)
;;
;; Discard possibly existing/missing start separator
;;
(when (null (car undo-list))
(setq undo-list (cdr undo-list)))
;;
;; Find the target separator keeping `undo-list' as a reference to
;; the list starting before that.
;;
(while (not done)
(cond ((eq (first apply-args)
(condition-case opps
(second (car undo-list))
(error nil)))
(setq done 'return))
((null (cadr undo-list))
(setq done 'try-insert))
(t
(setq undo-list (cdr undo-list)))))
(unless (eq done 'return)
;;
;; Push a the apply-args action there
;;
(setq target-separator (cdr undo-list))
(setf (cdr undo-list)
(cons (cons 'apply
apply-args)
target-separator))))))
(defun yas/field-undo-restore-boundaries (start end)
"..."
(let* ((snippet (yas/snippet-of-current-keymap))
(field-overlay (and snippet
(yas/snippet-active-field-overlay snippet)))
(group (and snippet
(yas/snippet-active-group snippet)))
(field (and group
(yas/group-primary-field group))))
(yas/move-overlay-and-field field-overlay field start end)))
;; Debug functions. Use (or change) at will whenever needed. ;; Debug functions. Use (or change) at will whenever needed.
@ -1527,45 +1592,54 @@ registered snippets last."
(yas/snippet-id snippet))) (yas/snippet-id snippet)))
(princ (format "\t Big priority %s overlay %s\n\n" (princ (format "\t Big overlay %s\n"
(overlay-get (yas/snippet-control-overlay snippet) 'priority)
(yas/snippet-control-overlay snippet))) (yas/snippet-control-overlay snippet)))
(if (yas/snippet-active-field-overlay snippet)
(princ (format "\t Field overlay %s\n "
(yas/snippet-active-field-overlay snippet)))
(princ "No active field overlay!!\m"))
(dolist (group (yas/snippet-groups snippet)) (dolist (group (yas/snippet-groups snippet))
(princ (format "\t group $%s with %s fields.\n" (princ (format "\t Group $%s with %s fields is %s and %s"
(yas/group-number group) (yas/group-number group)
(length (yas/group-fields group)))) (length (yas/group-fields group))
(if (yas/group-deleted group)
"DELETED"
"alive")
(if (eq group (yas/snippet-active-group snippet))
"ACTIVE!\n"
"NOT ACTIVE!\n")))
(dolist (field (yas/group-fields group)) (dolist (field (yas/group-fields group))
(let ((overlay (yas/field-overlay field))) (princ (format "\t\t* %s field. Current value (%s) .\n"
(princ (format "\t %s field. Saved (%s) . " (if (eq field (yas/group-primary-field group))
(if (eq field (yas/group-primary-field group)) "Primary" "Mirror")
"Primary" "Mirror") (yas/current-field-text field)))
(yas/field-value (yas/group-primary-field group)))) (princ (format "\t\t From %s to %s\n"
(if (and (overlayp overlay) (yas/field-start field)
(overlay-buffer overlay)) (yas/field-end field)))
(princ (format "Priority %d overlay (%d:%d:%s)\n" ))) yas/registered-snippets)))
(overlay-get overlay 'priority)
(overlay-start overlay)
(overlay-end overlay)
(buffer-substring (overlay-start overlay) (overlay-end overlay))))
(princ "NO OVERLAY\n"))))))
yas/registered-snippets)))
(princ (format "\nPost command hook: %s\n" post-command-hook)) (princ (format "\nPost command hook: %s\n" post-command-hook))
(princ (format "\nPre command hook: %s\n" pre-command-hook)) (princ (format "\nPre command hook: %s\n" pre-command-hook))
;; (princ (format "\nUndo is %s." (princ (format "\nUndo is %s."
;; (if (eq buffer-undo-list t) (if (eq buffer-undo-list t)
;; "DISABLED" "DISABLED"
;; "ENABLED"))) "ENABLED")))
;; (unless (eq buffer-undo-list t) (unless (eq buffer-undo-list t)
;; (princ (format "Undolist has %s elements. First 3 elements follow:\n" (length buffer-undo-list))) (princ (format "Undolist has %s elements. First 10 elements follow:\n" (length buffer-undo-list)))
;; (let ((first-ten (subseq buffer-undo-list 0 2))) (let ((first-ten (subseq buffer-undo-list 0 19)))
;; (dolist (undo-elem first-ten) (dolist (undo-elem first-ten)
;; (princ (format "%s: %s\n" (position undo-elem first-ten) undo-elem))))) (princ (format "%s: %s\n" (position undo-elem first-ten) undo-elem)))))))
))
(defun yas/exterminate-package ()
(interactive)
(yas/minor-mode -1)
(mapatoms #'(lambda (atom)
(when (string-match "yas/" (symbol-name atom))
(unintern atom)))))
(provide 'yasnippet) (provide 'yasnippet)