emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/dslide 20c4a44f18 184/230: line noise


From: ELPA Syncer
Subject: [nongnu] elpa/dslide 20c4a44f18 184/230: line noise
Date: Sun, 7 Jul 2024 19:00:35 -0400 (EDT)

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

    line noise
    
    Signed-off-by: Psionik K <73710933+psionic-k@users.noreply.github.com>
---
 dslide.el | 23 +++++++++++------------
 1 file changed, 11 insertions(+), 12 deletions(-)

diff --git a/dslide.el b/dslide.el
index 432b3b13b6..28987d8fac 100644
--- a/dslide.el
+++ b/dslide.el
@@ -1592,16 +1592,16 @@ Child headings become independent slides.")
   ;; For child slides, we make a slide out of the next child heading and 
advance
   ;; our progress forward to the end of that child
   (or (when-let ((child (oref obj child)))
-      (if-let ((progress (dslide-forward child)))
-          progress
-        (dslide-final child)
-        (oset obj child nil)))
-    (when-let ((child-heading (dslide-child-next obj)))
-      ;; TODO transitive action customization
-      (let ((child (dslide--make-slide child-heading)))
-        (dslide-begin child)
-        (oset obj child child)
-        (oref child begin)))))
+        (if-let ((progress (dslide-forward child)))
+            progress
+          (dslide-final child)
+          (oset obj child nil)))
+      (when-let ((child-heading (dslide-child-next obj)))
+        ;; TODO transitive action customization
+        (let ((child (dslide--make-slide child-heading)))
+          (dslide-begin child)
+          (oset obj child child)
+          (oref child begin)))))
 
 (cl-defmethod dslide-backward ((obj dslide-slide-action-child))
   ;; For child slides, we make a slide out of the previous child heading and
@@ -1639,8 +1639,7 @@ Child headings become independent slides.")
     (dslide-final child)))
 
 ;; ** Inline Slide Action
-;; TODO round-robin slide action
-;; TODO every-slide action
+;; TODO round-robin
 
 ;; TODO override the child's own slide action
 (defclass dslide-slide-action-inline (dslide-slide-action)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]