# HG changeset patch
# User Zachary Kanfer <zkanfer@gmail.com>
# Date 1506486596 14400
#      Wed Sep 27 00:29:56 2017 -0400
# Node ID 153fbad8b0d85d14b2c7faac171fe33af8c6d176
# Parent  c91e368a8f1c0b7ba0d2feeca19676aa2f1a57b6
*** empty log message ***

diff --git a/zpresent.el b/zpresent.el
--- a/zpresent.el
+++ b/zpresent.el
@@ -598,10 +598,10 @@
 
 (defun zpresent--slide (slide)
   "Present SLIDE."
-  (if (equal (gethash :type slide)
-             :title)
-      (zpresent--present-title-slide slide)
-    (zpresent--present-normal-slide slide))
+  (cl-case (gethash :type slide)
+    (:full-screen-image (zpresent--present-full-screen-image slide))
+    (:title (zpresent--present-title-slide slide))
+    (otherwise (zpresent--present-normal-slide slide)))
   (let ((inhibit-read-only t))
     (insert (propertize (make-string (window-total-height) ?\n)
                         'face 'zpresent-base)))
@@ -646,6 +646,16 @@
                           'face
                           'zpresent-h1)))))
 
+(defun zpresent--present-full-screen-image (slide)
+  "Present SLIDE as a full screen image."
+  (switch-to-buffer "zpresentation")
+  (buffer-disable-undo "zpresentation")
+  (let ((inhibit-read-only t))
+    (erase-buffer)
+    (insert "full image!")
+    (message (hash-table-keys slide))
+    (insert "done")))
+
 (defun zpresent--lines-in-window (face &optional window)
   "Calculate how many lines of text with face FACE can fit in WINDOW."
   (truncate (window-body-height window t)