branch: elpa/dslide
commit 597ed25aa203d5aeed9b1ff84a575ad45edaadca
Author: Psionik K <73710933+psioni...@users.noreply.github.com>
Commit: Psionik K <73710933+psioni...@users.noreply.github.com>
hook cleanup
Signed-off-by: Psionik K <73710933+psioni...@users.noreply.github.com>
---
macro-slides.el | 9 ++++-----
1 file changed, 4 insertions(+), 5 deletions(-)
diff --git a/macro-slides.el b/macro-slides.el
index beeb81e23d..b99529a6ab 100644
--- a/macro-slides.el
+++ b/macro-slides.el
@@ -404,7 +404,8 @@ an SLIDE_FILTER keyword."
;; Create the indirect buffer and link it via the deck object.
(ms--ensure-deck)
(funcall (or ms-start-function
- #'ms-display-slides)))
+ #'ms-display-slides))
+ (run-hooks 'ms-start-hook))
(t
(ms-stop))))
@@ -422,9 +423,7 @@ an SLIDE_FILTER keyword."
(oset ms--deck display-state 'slides)
(widen)
(org-fold-show-all)
- (ms-init ms--deck)
- ;; TODO rename this hook?
- (run-hooks 'ms-play-hook))
+ (ms-init ms--deck))
(defun ms-display-contents ()
"Switch to showing contents in the slide buffer.
@@ -450,7 +449,7 @@ each slide show from the contents view."
;; TODO filter slides that don't have a display action?
(ms--feedback :contents)
- (run-hooks 'ms-before-contents-view-hook))
+ (run-hooks 'ms-contents-hook))
(defun ms-display-base ()
"Switch to the base buffer for the slide show."
