-;; Time-stamp: <2019-01-24 02:05:14 kmodi>
+;; Time-stamp: <2019-04-24 22:24:07 kmodi>
 ;; Hi-lock: (("\\(^;\\{3,\\}\\)\\( *.*\\)" (1 'org-hide prepend) (2 '(:inherit org-level-1 :height 1.3 :weight bold :overline t :underline t) prepend)))
 ;; Hi-Lock: end
 

      (setq org-tree-slide-skip-comments t)
      (setq org-tree-slide-activate-message
            (concat "Starting Org presentation. "
                    "Use arrow keys to navigate the slides."))
      (setq org-tree-slide-deactivate-message "Ended presentation.")
      (message "my custom `org-tree-slide' profile: ON"))

    (defvar modi/writegood-mode-state nil
      "Variable to store the state of `writegood-mode'.")

    (defun modi/org-tree-slide-start ()
      "Set up the frame for the slideshow."
      (interactive)
      (when (fboundp 'writegood-mode)
        (setq modi/writegood-mode-state writegood-mode)
        (writegood-mode -1))
      (modi/toggle-one-window :force-one-window) ;force 1 window
      (modi/org-tree-slide-set-profile)
      (text-scale-set modi/org-tree-slide-text-scale))
    (add-hook 'org-tree-slide-play-hook #'modi/org-tree-slide-start)

    (defun modi/org-tree-slide-stop()
      "Undo the frame setup for the slideshow."
      (interactive)
      (modi/toggle-one-window) ;toggle 1 window
      (when (and (fboundp 'writegood-mode)
                 modi/writegood-mode-state)
        (writegood-mode 1)
        (setq modi/writegood-mode-state nil))
      (text-scale-set 0))
    (add-hook 'org-tree-slide-stop-hook #'modi/org-tree-slide-stop)

    (defun modi/org-tree-slide-text-scale-reset ()

    (defun modi/org-tree-slide-set-profile ()
      "Customize org-tree-slide variables."
      (interactive)
      (setq modi/org-tree-slide-text-scale 3)
      (setq org-tree-slide-header t)
      (setq org-tree-slide-slide-in-effect t)
      (setq org-tree-slide-slide-in-blank-lines 5)
      (setq org-tree-slide-heading-emphasis nil)
      (setq org-tree-slide-cursor-init t) ;Move cursor to the head of buffer
      (setq org-tree-slide-modeline-display 'lighter)
