[nongnu] elpa/dslide 5cf6e1d521 102/230: option to hide mode line when displaying images

[ELPA Syncer]

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

    option to hide mode line when displaying images
    
    Signed-off-by: Psionik K <73710933+psionic-k@users.noreply.github.com>
---
 macro-slides.el | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/macro-slides.el b/macro-slides.el
index e507b6dd20..fa45958e03 100644
--- a/macro-slides.el
+++ b/macro-slides.el
@@ -1462,6 +1462,10 @@ stateful-sequence class methods.  METHOD-NAME is a 
string."
     :initform nil
     :initarg :fullscreen
     :documentation "Switch to full frame during display.")
+   (hide-mode-line
+    :initform t
+    :initarg :hide-mode-line
+    :documentation "Turn on `hide-mode-line-mode'.")
    (refresh
     :initform nil
     :initarg :refresh
@@ -1489,6 +1493,8 @@ stateful-sequence class methods.  METHOD-NAME is a 
string."
 
     (when (eq (buffer-local-value 'major-mode (current-buffer))
               'image-mode)
+      (when (oref obj hide-mode-line)
+        (hide-mode-line-mode 1))
       (image-transform-fit-to-window)
       (let ((image-buffer (current-buffer)))
         (ms-push-step
@@ -1510,6 +1516,8 @@ stateful-sequence class methods.  METHOD-NAME is a 
string."
 
     (when (eq (buffer-local-value 'major-mode (current-buffer))
               'image-mode)
+      (when (oref obj hide-mode-line)
+        (hide-mode-line-mode 1))
       (image-transform-fit-to-window)
       (let ((image-buffer (current-buffer)))
         (ms-push-step