branch: elpa/dslide
commit 91b8fcaf926c2719cc3a726d9f531847b09710ff
Author: Psionik K <73710933+psioni...@users.noreply.github.com>
Commit: Psionik K <73710933+psioni...@users.noreply.github.com>
introducing dslide-deck-develop
Display the base buffer and slide buffer side by side, for faster set-up
when
wanting to follow the buffer to track progress and debug the presentation
Signed-off-by: Psionik K <73710933+psioni...@users.noreply.github.com>
---
dslide.el | 21 +++++++++++++++++++++
1 file changed, 21 insertions(+)
diff --git a/dslide.el b/dslide.el
index f8edf863fc..df411b1e51 100644
--- a/dslide.el
+++ b/dslide.el
@@ -2531,6 +2531,12 @@ the caller."
(org-fold-show-all)
(dslide-begin dslide--deck))
+(defun dslide-display-develop ()
+ (dslide-display-slides)
+ (let ((base-buffer (oref dslide--deck base-buffer)))
+ (unless (get-buffer-window base-buffer)
+ (display-buffer base-buffer 'display-buffer-pop-up-window))))
+
(defun dslide--base-buffer-highlight-region (beg end &optional face)
"Pulse region between BEG and END in base buffer.
Optional FACE defaults to `dslide-highlight'."
@@ -2679,6 +2685,21 @@ video or custom actions."
#'dslide-display-slides))
(dslide-mode 1))))
+;; TODO
+;;;###autoload
+(defun dslide-deck-develop ()
+ "Show both the base and slide buffer."
+ (interactive)
+ (let ((major-mode (buffer-local-value 'major-mode (current-buffer))))
+ (unless (or (dslide-live-p)
+ (eq 'org-mode major-mode))
+ (user-error "Not an org buffer and no other live presentation"))
+ (if (dslide-live-p)
+ ;; show the correct buffers
+ (dslide-display-develop)
+ (let ((dslide-start-function #'dslide-display-develop))
+ (dslide-mode 1)))))
+
;;;###autoload
(defun dslide-deck-forward ()
"Advance slideshow forward."
