Add configuration for org-tree-slide

That's fun!

Again from https://protesilaos.com/dotemacs/.

init.el

@@ -1331,6 +1331,27 @@ With given ARG, display files in `db/important-document-path’."
                 org-reveal-mathjax t
                 org-reveal-transition "none"))
 
+(use-package org-tree-slide
+  :commands (org-tree-slide-mode)
+  ;; Configuration from https://protesilaos.com/dotemacs/
+  :init (setq org-tree-slide-breadcrumbs " → "
+              org-tree-slide-header t
+              org-tree-slide-slide-in-effect nil
+              org-tree-slide-heading-emphasis nil
+              org-tree-slide-cursor-init t
+              org-tree-slide-modeline-display nil
+              org-tree-slide-skip-done nil
+              org-tree-slide-skip-comments t
+              org-tree-slide-fold-subtrees-skipped t
+              org-tree-slide-skip-outline-level 8
+              org-tree-slide-never-touch-face t
+              org-tree-slide-activate-message (propertize "Presentation mode ON" 'face 'success)
+              org-tree-slide-deactivate-message (propertize "Presentation mode OFF" 'face 'error))
+  :bind (:map org-tree-slide-mode-map
+              ("<C-down>" . org-tree-slide-display-header-toggle)
+              ("<C-right>" . org-tree-slide-move-next-tree)
+              ("<C-left>" . org-tree-slide-move-previous-tree)))
+
 
 ;; * Mail