                      (when (org-before-first-heading-p)
                        (org-next-visible-heading 1))
                      (ignore-errors (org-up-heading-all 99))
-                     (forward-line 1)
+                     (when +org-present-hide-first-heading
+                       (forward-line 1))
                      (point))
                    (progn (org-end-of-subtree t t)
                           (when (and (org-at-heading-p) (not (eobp)))

          :n [C-left]  #'org-tree-slide-move-previous-tree)
    (add-hook 'org-tree-slide-mode-hook #'evil-normalize-keymaps))

  (defadvice! +org-present--narrow-to-subtree-a (orig-fn &rest args)
    "Narrow to the target subtree when you start the presentation."
    :around #'org-tree-slide--display-tree-with-narrow
    (letf! (defun org-narrow-to-subtree ()
             (save-excursion

;;; lang/org/contrib/present.el -*- lexical-binding: t; -*-
;;;###if (featurep! +present)

(defvar +org-present-text-scale 5
  "The `text-scale-amount' for `org-tree-slide-mode'.")

(defvar +org-present-hide-first-heading nil
  "If non-nil, hide the top-level heading for the current slide.

Some presenters think the first level heading takes up too much space, or use
them as slide names, rather than titles. Instead, you can use second level
headings as titles, and you have more freedom to place them wherever you like.")


(after! ox
  (add-to-list 'org-export-backends 'beamer))
