branch: elpa/dslide
commit a462b0a4babd764937457b99277b7d7cdd3677ce
Author: Psionik K <73710933+psioni...@users.noreply.github.com>
Commit: Psionik K <73710933+psioni...@users.noreply.github.com>
babel blocks should only clear results when configured to do so
removing for now
Signed-off-by: Psionik K <73710933+psioni...@users.noreply.github.com>
---
macro-slides.el | 6 ++----
1 file changed, 2 insertions(+), 4 deletions(-)
diff --git a/macro-slides.el b/macro-slides.el
index 928a663237..350330c55c 100644
--- a/macro-slides.el
+++ b/macro-slides.el
@@ -1723,6 +1723,7 @@ deck of progress was made.")
;; kind of implemented but seems to inconsistently work.
;; TODO configure results removal behavior with an argument
;; TODO any display jank concerns due to results? Possibly inhibit re-display.
+;; TODO integrate with skipping with init and end.
(defclass ms-action-babel (ms-action)
() "Execute source blocks as steps.
By default blocks execute one by one with step-forward. You can mark a block
to
@@ -1805,7 +1806,6 @@ stateful-sequence class methods. METHOD-NAME is a
string."
(cl-defmethod ms-init :after ((obj ms-action-babel))
(when-let ((block-element (ms--get-block obj "init")))
- (ms--clear-results obj)
(ms--block-execute block-element))
;; TODO pesky return values for init methods
;; These should probably need to be some explicit symbol to do anything other
@@ -1814,13 +1814,11 @@ stateful-sequence class methods. METHOD-NAME is a
string."
(cl-defmethod ms-end :after ((obj ms-action-babel))
(when-let ((block-element (ms--get-block obj "end")))
- (ms--clear-results obj)
(ms--block-execute block-element)))
(cl-defmethod ms-final :after ((obj ms-action-babel))
(when-let ((block-element (ms--get-block obj "final")))
- (ms--block-execute block-element)
- (ms--clear-results obj)))
+ (ms--block-execute block-element)))
;; ** Image Action
