[nongnu] elpa/dslide 57838970e8 059/230: Debug feedback when slides change

[ELPA Syncer]

branch: elpa/dslide
commit 57838970e86d956bbfee6274881c013262cc5dbe
Author: Psionik K <73710933+psionic-k@users.noreply.github.com>
Commit: Psionik K <73710933+psionic-k@users.noreply.github.com>

    Debug feedback when slides change
    
    Signed-off-by: Psionik K <73710933+psionic-k@users.noreply.github.com>
---
 macro-slides.el | 34 ++++++++++++++++++++--------------
 1 file changed, 20 insertions(+), 14 deletions(-)

diff --git a/macro-slides.el b/macro-slides.el
index 42347bc621..c98eb9326f 100644
--- a/macro-slides.el
+++ b/macro-slides.el
@@ -917,13 +917,15 @@ their init."
                         switching-to-sibling t)
                 (setq reached-end t)))))
 
-        (ms--debug current-slide)
-        (when ms--debug
-          (message "switching-to-parent: %s" switching-to-parent))
-        (when next-slide
-          (ms--debug next-slide))
+        (unless next-slide
+          (ms--debug current-slide (format "forward: %s" progress)))
 
         (when next-slide
+          (ms--debug next-slide
+                     (cond (switching-to-parent "switching to parent")
+                           (switching-to-sibling "switching to sibling")
+                           (t "switching to child")))
+
           (unless switching-to-parent
             ;; Push a new sequence-callbacks level
             (push nil (oref obj sequence-callbacks)))
@@ -1026,13 +1028,15 @@ their init."
                         switching-to-sibling t)
                 (setq reached-beginning t)))))
 
-        (ms--debug current-slide)
-        (when ms--debug
-          (message "switching-to-parent: %s" switching-to-parent))
-        (when previous-slide
-          (ms--debug previous-slide))
+        (unless previous-slide
+          (ms--debug current-slide (format "forward: %s" progress)))
 
         (when previous-slide
+          (ms--debug previous-slide
+                     (cond (switching-to-parent "switching to parent")
+                           (switching-to-sibling "switching to sibling")
+                           (t "switching to child")))
+
           (unless switching-to-parent
             ;; Push a new sequence-callbacks level
             (push nil (oref obj sequence-callbacks)))
@@ -2400,14 +2404,16 @@ and the value of `point-max' should contain a newline 
somewhere."
 
 ;; * Assorted Implementation Details
 
-;; TODO Watching actions, results, and slides is way too opaque
-(defun ms--debug (slide)
+(defun ms--debug (slide &optional situation)
   (when ms--debug
     (let* ((heading (ms-heading slide))
            (headline-begin (org-element-begin heading))
            (headline-end (or (org-element-contents-begin heading)
-                             (org-element-end heading))))
-      (message "begin: %s heading: %s"
+                             (org-element-end heading)))
+           (situation (or situation
+                          "ms--debug")))
+      (message "%s begin: %s heading: %s"
+               situation
                (marker-position (oref slide begin))
                (save-restriction
                  (widen)