branch: elpa/dslide
commit ec3bf9ec883cd262f3dfa20efacd39e9cdcba4e4
Author: Psionik K <73710933+psioni...@users.noreply.github.com>
Commit: Psionik K <73710933+psioni...@users.noreply.github.com>
! ditch :after in child action end method
drive-by fix, don't animate children during end. Now that there are
multiple
animations, this became much more necessary
! The children could be made to not animate during end?
Signed-off-by: Psionik K <73710933+psioni...@users.noreply.github.com>
---
dslide.el | 10 ++++++----
1 file changed, 6 insertions(+), 4 deletions(-)
diff --git a/dslide.el b/dslide.el
index 9fe667273f..e2051ad165 100644
--- a/dslide.el
+++ b/dslide.el
@@ -1718,11 +1718,13 @@ state from being at the first child heading."
(setq progress (org-element-property :begin child))))
progress))
-(cl-defmethod dslide-end :after ((obj dslide-child-action-slide))
- (when-let ((child (dslide-deck-backward-child obj)))
+(cl-defmethod dslide-end ((obj dslide-child-action-slide))
+ (dslide-marker obj (org-element-property :end (dslide-heading obj)))
+ (when-let ((child (dslide-child-previous obj)))
(let ((child (dslide--make-slide child (oref dslide--deck slide))))
- (prog1 (dslide-end child)
- (oset obj child child)))))
+ (oset obj child child)
+ (let (dslide-slide-in-effect)
+ (dslide-end child)))))
(cl-defmethod dslide-final :after ((obj dslide-child-action-slide))
(when-let ((child (oref obj child)))
