From da472290c68226f048ea3500b2373777cadd72cb Mon Sep 17 00:00:00 2001 From: Levi Olson Date: Mon, 24 Feb 2020 12:15:59 -0600 Subject: [PATCH] Fixing PresentMode allowing to go past headings --- lisp/05-custom-functions.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/05-custom-functions.el b/lisp/05-custom-functions.el index 7a94b8a..afe98a1 100644 --- a/lisp/05-custom-functions.el +++ b/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")