[nongnu] elpa/dslide 91b8fcaf92 153/230: introducing dslide-deck-develop

[ELPA Syncer]

branch: elpa/dslide
commit 91b8fcaf926c2719cc3a726d9f531847b09710ff
Author: Psionik K <73710933+psionic-k@users.noreply.github.com>
Commit: Psionik K <73710933+psionic-k@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+psionic-k@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."