From 795c08dddcb7bae0b5c60b37d0fa6e9ef56bc013 Mon Sep 17 00:00:00 2001
From: capitaomorte <joaotavora@gmail.com>
Date: Fri, 23 Jan 2009 14:38:15 +0000
Subject: [PATCH]

---
 snippets/text-mode/html-mode/dov |  5 ++
 yasnippet.el                     | 79 +++++++++++++++++++++++---------
 2 files changed, 62 insertions(+), 22 deletions(-)
 create mode 100644 snippets/text-mode/html-mode/dov

diff --git a/snippets/text-mode/html-mode/dov b/snippets/text-mode/html-mode/dov
new file mode 100644
index 0000000..e2cfd03
--- /dev/null
+++ b/snippets/text-mode/html-mode/dov
@@ -0,0 +1,5 @@
+#name : <dov...>...</dov>
+# --
+<dov ${1:id="${2:some_id}"}>
+    $0
+</dov>
diff --git a/yasnippet.el b/yasnippet.el
index 562a779..d6144cb 100644
--- a/yasnippet.el
+++ b/yasnippet.el
@@ -1552,7 +1552,7 @@ eventually be pushed into the `buffer-undo-list' variable. This
 function is intended to be placed in `pre-command-hook'.
 
 The actual pushing of actions into the `buffer-undo-list' is
-performed in `yas/correct-undo-list', which is placed in the
+performed in `yas/push-pending-undo-actions', which is placed in the
 `post-command-hook'."
   (let* ((snippet (yas/snippet-of-current-keymap))
          (group (yas/snippet-active-group snippet))
@@ -1626,6 +1626,9 @@ performed in `yas/correct-undo-list', which is placed in the
               (apply #'yas/push-undo-action-maybe args))
           yas/pending-undo-actions))
 
+;;
+;; TODO: get rid of this "once" thing
+;;
 (defun yas/push-pending-undo-actions-once ()
   (yas/push-pending-undo-actions)
   (remove-hook 'post-command-hook 'yas/push-pending-undo-actions-once 'local))
@@ -1711,27 +1714,29 @@ performed in `yas/correct-undo-list', which is placed in the
 
 
                         (dolist (group (yas/snippet-groups snippet))
-                          (princ (format "\t  Group $%s with %s fields is %s and %s"
-                                         (yas/group-number group)
-                                         (length (yas/group-fields group))
-                                         (if (yas/group-probably-deleted-p group)
-                                             "DELETED"
-                                           "alive")
-                                         (if (eq group (yas/snippet-active-group snippet))
-                                             "ACTIVE!\n"
-                                           "NOT ACTIVE!\n")))
-                          (dolist (field (yas/group-fields group))
-                            (princ (format "\t\t* %s field. Current value (%s) .\n"
-                                           (if (eq field (yas/group-primary-field group))
-                                               "Primary" "Mirror")
-                                           (yas/current-field-text field)))
-                            (princ (format "\t\t  From %s to %s\n"
-                                           (yas/field-start field)
-                                           (yas/field-end field)))
-                            ))) yas/registered-snippets)))
+                          ;; (princ (format "\t  Group $%s with %s fields is %s and %s"
+;;                                          (yas/group-number group)
+;;                                          (length (yas/group-fields group))
+;;                                          (if (yas/group-probably-deleted-p group)
+;;                                              "DELETED"
+;;                                            "alive")
+;;                                          (if (eq group (yas/snippet-active-group snippet))
+;;                                              "LIVE!\n"
+;;                                            "SLEEPY!\n")))
+;;                           (dolist (field (yas/group-fields group))
+;;                             (princ (format "\t\t* %s field. Current value (%s) .\n"
+;;                                            (if (eq field (yas/group-primary-field group))
+;;                                                "Primary" "Mirror")
+;;                                            (yas/current-field-text field)))
+;;                             (princ (format "\t\t  From %s to %s\n"
+;;                                            (yas/field-start field)
+;;                                            (yas/field-end field)))
+;;                             )
+)) yas/registered-snippets)))
+
+    (princ (format "\nPRE-  command hook: %s\n" pre-command-hook))
+    (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 "\nUndo is %s and point-max is %s.\n"
                    (if (eq buffer-undo-list t)
@@ -1742,7 +1747,37 @@ performed in `yas/correct-undo-list', which is placed in the
       (princ (format "Undolist has %s elements. First 10 elements follow:\n" (length buffer-undo-list)))
       (let ((first-ten (subseq buffer-undo-list 0 19)))
         (dolist (undo-elem first-ten)
-          (princ (format "%2s:  %s\n" (position undo-elem first-ten) (truncate-string-to-width (format "%s" undo-elem) 70))))))))
+	  (princ (format "%2s:  %s\n"
+			 (position undo-elem first-ten)
+			 (cond ((null undo-elem)
+				"--- (separator) ---")
+			       (t
+				(truncate-string-to-width (format "%s" undo-elem) 70))))))))))
+
+
+(defun yas/debug-pprint-group (group)
+  (cond ((yas/group-p group)
+	 (format "[%sgrp $%s with %s flds %s]"
+		 (if (eq group (yas/snippet-active-group (yas/group-snippet field-group)))
+		     "LIVE "
+		   "")
+		 (yas/group-number group)
+		 (length (yas/group-fields group))
+		 (mapconcat #'yas/debug-pprint-field (yas/group-fields group) " "))
+	 (t
+	  "(not a group!"))))
+
+(defun yas/debug-pprint-field (field)
+  (cond ((yas/field-p field)
+	 (format "[%s: (%s) %s->%s]"
+		 (if (eq field (yas/group-primary-field (yas/field-group field)))
+		     "primary"
+		   "mirror")
+		 (yas/current-field-text field)
+		 (yas/field-start field)
+		 (yas/field-end field)))))
+		 
+    
 
 (defun yas/exterminate-package ()
   (interactive)