[nongnu] elpa/dslide 217ddbe03e 185/230: a bit better display behavior

[ELPA Syncer]

branch: elpa/dslide
commit 217ddbe03e673eb14ab0cfc1b28b09f2bd194707
Author: Psionik K <73710933+psionic-k@users.noreply.github.com>
Commit: Psionik K <73710933+psionic-k@users.noreply.github.com>

    a bit better display behavior
    
    This is a bit in flux.  We want dslide-deck-develop and dslide-deck-start 
to do
    the right thing.  There could be buffers that were displayed due to some 
babel.
    Maybe the user abandoned a presentation.  There's more cases that just need 
to
    be found and fixed.
    
    Signed-off-by: Psionik K <73710933+psionic-k@users.noreply.github.com>
---
 dslide.el | 19 ++++++++++++-------
 1 file changed, 12 insertions(+), 7 deletions(-)

diff --git a/dslide.el b/dslide.el
index 28987d8fac..a6cac966db 100644
--- a/dslide.el
+++ b/dslide.el
@@ -2606,7 +2606,9 @@ the caller."
   (dslide-begin dslide--deck))
 
 (defun dslide-display-develop ()
-  (dslide-display-slides)
+  (let ((slide-buffer (oref dslide--deck slide-buffer)))
+    (unless (get-buffer-window slide-buffer))
+     (display-buffer slide-buffer 'display-buffer-same-window))
   (let ((base-buffer (oref dslide--deck base-buffer)))
     (unless (get-buffer-window base-buffer)
       (display-buffer base-buffer 'display-buffer-pop-up-window))))
@@ -2754,12 +2756,15 @@ TODO Add support for arbitrary secondary tasks like 
playing a
 video or custom actions."
   (interactive)
   (if (dslide-live-p)
-      (progn (dslide--ensure-slide-buffer)
-             (if (dslide--showing-slides-p)
-                 ;; TODO check for secondary task here
-                 (dslide-display-contents)
-               (dslide--choose-slide dslide--deck 'contents)
-               (dslide-display-slides)))
+      (if (get-buffer-window (oref dslide--deck slide-buffer))
+          (progn
+            (dslide--ensure-slide-buffer)
+            (if (dslide--showing-slides-p)
+                ;; TODO check for secondary task here
+                (dslide-display-contents)
+              (dslide--choose-slide dslide--deck 'contents)
+              (dslide-display-slides)))
+        (dslide--ensure-slide-buffer t))
     (let ((dslide-start-function
            #'dslide-display-slides))
       (dslide-mode 1))))