org-tree-slide-config.el

;;; Org Tree Slide

(require 'org-tree-slide)

;; Weird but needed to get images to respond
(setq org-image-actual-width '(3))

(setq org-tree-slide-slide-in-effect nil)
(setq org-tree-slide-skip-outline-level 3)

(defvar-local org-show-comments-state t)

(defun engage-org-cloaking ()
  (interactive)
  (let ((cloak (face-attribute 'default :background)))
    (set-face-attribute 'org-meta-line (selected-frame) :foreground cloak)
    (set-face-attribute 'org-block-begin-line (selected-frame) :foreground cloak)
    (set-face-attribute 'org-block-end-line (selected-frame) :foreground cloak))
  (setq org-show-comments-state nil)
  (setq mode-line-format nil)
  (org-display-inline-images t t))

(defun disengage-org-cloaking ()
  (interactive)
  (let ((uncloak (face-attribute 'default :foreground)))
    (set-face-attribute 'org-meta-line (selected-frame) :foreground uncloak)
    (set-face-attribute 'org-block-begin-line (selected-frame) :foreground uncloak)
    (set-face-attribute 'org-block-end-line (selected-frame) :foreground uncloak))
  (setq org-show-comments-state t)
  (setq mode-line-format t)
  (org-display-inline-images nil t))

(defun toggle-org-cloaking ()
  (interactive)
  (cond
   (org-show-comments-state (engage-org-cloaking))
   (t (disengage-org-cloaking))))

(add-hook 'org-tree-slide-mode-hook  'toggle-org-cloaking)