branch: elpa/dslide
commit fd7acfa4776a719209564dde951874b1574cdc48
Author: Psionik K <73710933+psioni...@users.noreply.github.com>
Commit: Psionik K <73710933+psioni...@users.noreply.github.com>
fix item reveal progress indication (broken a bit in recent rewrite)
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 a6cac966db..7b3e79b161 100644
--- a/dslide.el
+++ b/dslide.el
@@ -1205,7 +1205,8 @@ for `dslide-contents-map'."
(cl-defmethod dslide-forward ((obj dslide-action-item-reveal))
;; Item reveal / hide repeats in place, so we pass a final t to
;; `dslide-section-next'.
- (when-let* ((next-item (dslide-section-next obj 'item nil t)))
+ (when-let* ((next-item (dslide-section-next obj 'item nil t))
+ (progress (org-element-property :begin next-item)))
(let ((item-overlays (seq-intersection (oref obj overlays)
(overlays-at (org-element-property
:begin next-item)))))
@@ -1222,14 +1223,15 @@ for `dslide-contents-map'."
;; from some other action
(mapc #'delete-overlay item-overlays))))
;; return progress
- (oref obj marker)))
+ progress))
(cl-defmethod dslide-backward ((obj dslide-action-item-reveal))
- (when-let ((previous-item (dslide-section-previous obj 'item)))
+ (when-let ((previous-item (dslide-section-previous obj 'item))
+ (progress (org-element-property :begin previous-item)))
(push (dslide-hide-element previous-item (oref obj inline))
(oref obj overlays))
;; return progress
- (oref obj marker)))
+ progress))
;; ** Babel Action
