From 59f9e22dda26067caee0bda380f6d1259ed70101 Mon Sep 17 00:00:00 2001 From: Bastien Guerry Date: Sat, 22 Sep 2012 11:02:34 +0200 Subject: [PATCH] org.el: Add a new function to `org-cycle-hook' to hide inline tasks from the 'contents view * org.el (org-cycle-hide-inline-tasks): New function to hide inline tasks when cycling. (org-cycle-hook): Use the new function. Thanks to Christopher Witte for triggering this and to Carsten for suggesting this change. --- lisp/org.el | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/lisp/org.el b/lisp/org.el index ddac8ff4a..f30ba3ff8 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -970,6 +970,7 @@ the values `folded', `children', or `subtree'." (defcustom org-cycle-hook '(org-cycle-hide-archived-subtrees org-cycle-hide-drawers + org-cycle-hide-inline-tasks org-cycle-show-empty-lines org-optimize-window-after-visibility-change) "Hook that is run after `org-cycle' has changed the buffer visibility. @@ -6788,6 +6789,13 @@ open and agenda-wise Org files." (while (re-search-forward org-drawer-regexp end t) (org-flag-drawer t)))))) +(defun org-cycle-hide-inline-tasks (state) + "Re-hide inline task when switching to 'contents visibility state." + (when (and (eq state 'contents) + (boundp 'org-inlinetask-min-level) + org-inlinetask-min-level) + (hide-sublevels (1- org-inlinetask-min-level)))) + (defun org-flag-drawer (flag) "When FLAG is non-nil, hide the drawer we are within. Otherwise make it visible."