(defun wal-sh/start-presentation ()
  "Set up the environment for presentations."
  (interactive)
  (use-package org-tree-slide
    :config
    (setq org-tree-slide-slide-in-effect t)
    (setq org-tree-slide-heading-emphasis nil)
    (setq org-tree-slide-cursor-init t)
    (setq org-tree-slide-modeline-display 'outside)
    (setq org-tree-slide-skip-done nil)
    (setq org-tree-slide-skip-comments t))

  (use-package org-bullets
    :config
    (add-hook 'org-mode-hook (lambda () (org-bullets-mode 1))))

  (use-package olivetti
    :config
    (setq olivetti-body-width 0.7))

  (use-package keycast
    :config
    (setq keycast-window-predicate 'keycast-bottom-right-window-p)
    (setq keycast-remove-tail-elements nil))

  (org-tree-slide-mode 1)
  (olivetti-mode 1)
  (keycast-mode 1)
  (text-scale-increase 2)
  (message "Presentation mode activated"))

(global-set-key (kbd "C-c s") 'wal-sh/start-presentation)