mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-09-22 13:10:42 +00:00
Code Releases Activity

org.el: Add a new function to `org-cycle-hook' to hide inline tasks from the 'contents view

Browse source 
* 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.
This commit is contained in:
Bastien Guerry 2012-09-22 11:02:34 +02:00
parent 5d62f26fbc
commit 59f9e22dda
1 changed files with 8 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/org.el
View file

@ -970,6 +970,7 @@ the values `folded', `children', or `subtree'."
(defcustom org-cycle-hook '(org-cycle-hide-archived-subtrees (defcustom org-cycle-hook '(org-cycle-hide-archived-subtrees
org-cycle-hide-drawers org-cycle-hide-drawers
org-cycle-hide-inline-tasks
org-cycle-show-empty-lines org-cycle-show-empty-lines
org-optimize-window-after-visibility-change) org-optimize-window-after-visibility-change)
"Hook that is run after `org-cycle' has changed the buffer visibility. "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) (while (re-search-forward org-drawer-regexp end t)
(org-flag-drawer 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) (defun org-flag-drawer (flag)
"When FLAG is non-nil, hide the drawer we are within. "When FLAG is non-nil, hide the drawer we are within.
Otherwise make it visible." Otherwise make it visible."