org: New function to hide the body up to the first child
* lisp/org.el (org-hide-entry): New function. Counterpart to org-show-entry.
This commit is contained in:
parent
bb427f7bd6
commit
7069dc3f32
|
@ -280,6 +280,11 @@ possible via column view value edit or with =<C-c C-q>=.
|
|||
*** ~org-agenda-ctrl-c-ctrl-c~
|
||||
|
||||
=<C-c C-c>= in agenda calls ~org-agenda-set-tags~.
|
||||
|
||||
*** ~org-hide-entry~
|
||||
|
||||
Counterpart of ~org-show-entry~.
|
||||
|
||||
** New options
|
||||
*** New option ~org-clock-auto-clockout-timer~
|
||||
|
||||
|
|
16
lisp/org.el
16
lisp/org.el
|
@ -5982,6 +5982,22 @@ Show the heading too, if it is currently invisible."
|
|||
'outline)
|
||||
(org-cycle-hide-drawers 'children)))
|
||||
|
||||
(defun org-hide-entry ()
|
||||
"Hide the body directly following its heading."
|
||||
(interactive)
|
||||
(save-excursion
|
||||
(org-back-to-heading-or-point-min t)
|
||||
(when (org-at-heading-p) (forward-line))
|
||||
(org-flag-region
|
||||
(line-end-position 0)
|
||||
(save-excursion
|
||||
(if (re-search-forward
|
||||
(concat "[\r\n]" org-outline-regexp) nil t)
|
||||
(line-end-position 0)
|
||||
(point-max)))
|
||||
t
|
||||
'outline)))
|
||||
|
||||
(defun org-show-children (&optional level)
|
||||
"Show all direct subheadings of this heading.
|
||||
Prefix arg LEVEL is how many levels below the current level
|
||||
|
|
Loading…
Reference in New Issue