Fixing PresentMode allowing to go past headings

lisp/05-custom-functions.el

@@ -146,7 +146,7 @@
   (interactive)
   (goto-char (point-min))
   (widen)
-  (org-backward-element)
+  (org-backward-heading-same-level 1)
   (org-narrow-to-subtree))
 
 (defun leo/org-narrow-next-tree ()
@@ -154,7 +154,7 @@
   (interactive)
   (goto-char (point-min))
   (widen)
-  (org-forward-element)
+  (org-forward-heading-same-level 1)
   (org-narrow-to-subtree))
 
 (defun leo/org-present ()
@@ -177,7 +177,7 @@
     (org-narrow-to-subtree)
     (setq cursor-type 'hbar)
     (read-only-mode 1)
-    (text-scale-adjust 6)
+    (text-scale-adjust 5)
     (visual-line-mode 1)
     (toggle-word-wrap 1)
     (message "Presenting")