New STARTUP keyword `showeverything'

This will make even drawer contents visible upon startup.
This commit is contained in:
Carsten Dominik 2009-09-18 09:31:16 +01:00
parent 74a59c0c00
commit 2e8ece9219
4 changed files with 29 additions and 12 deletions

View File

@ -1,3 +1,8 @@
2009-09-18 Carsten Dominik <carsten.dominik@gmail.com>
* org.texi (Visibility cycling): Document showeverything keyword.
(In-buffer settings): Document showeverything keyword.
2009-09-17 Carsten Dominik <carsten.dominik@gmail.com>
* org.texi (Setting up the staging area): Fix the example.

View File

@ -894,6 +894,7 @@ the previously used indirect buffer.
@cindex @code{overview}, STARTUP keyword
@cindex @code{content}, STARTUP keyword
@cindex @code{showall}, STARTUP keyword
@cindex @code{showeverything}, STARTUP keyword
When Emacs first visits an Org file, the global state is set to
OVERVIEW, @ie only the top level headlines are visible. This can be
@ -905,6 +906,7 @@ buffer:
#+STARTUP: overview
#+STARTUP: content
#+STARTUP: showall
#+STARTUP: showeverything
@end example
@cindex property, VISIBILITY
@ -10171,10 +10173,12 @@ tree. The corresponding variable for global default settings is
@cindex @code{overview}, STARTUP keyword
@cindex @code{content}, STARTUP keyword
@cindex @code{showall}, STARTUP keyword
@cindex @code{showeverything}, STARTUP keyword
@example
overview @r{top-level headlines only}
content @r{all headlines}
showall @r{no folding at all, show everything}
overview @r{top-level headlines only}
content @r{all headlines}
showall @r{no folding of any entries}
showeverything @r{show even drawer contents}
@end example
@vindex org-startup-indented

View File

@ -9,6 +9,10 @@
(org-update-dblock): Apply the indentation of the begin line to
the rest of the block.
(org-ctrl-c-ctrl-c): Also find indented dblock lines.
(org-startup-folded): New allowed value `showeverything'.
(org-startup-options): Add STARTUP keyword `showeverything'.
(org-set-startup-visibility): Respect value `showeverything' in
org-startup-folded.
2009-09-17 Carsten Dominik <carsten.dominik@gmail.com>

View File

@ -286,14 +286,16 @@ is Emacs 23 only."
This can also be configured on a per-file basis by adding one of
the following lines anywhere in the buffer:
#+STARTUP: fold
#+STARTUP: nofold
#+STARTUP: content"
#+STARTUP: fold (or `overview', this is equivalent)
#+STARTUP: nofold (or `showall', this is equivalent)
#+STARTUP: content
#+STARTUP: showeverything"
:group 'org-startup
:type '(choice
(const :tag "nofold: show all" nil)
(const :tag "fold: overview" t)
(const :tag "content: all headlines" content)))
(const :tag "content: all headlines" content)
(const :tag "show everything, even drawers" showeverything)))
(defcustom org-startup-truncated t
"Non-nil means, entering Org-mode will set `truncate-lines'.
@ -3510,6 +3512,7 @@ After a match, the following groups carry important information:
("overview" org-startup-folded t)
("nofold" org-startup-folded nil)
("showall" org-startup-folded nil)
("showeverything" org-startup-folded showeverything)
("content" org-startup-folded content)
("indent" org-startup-indented t)
("noindent" org-startup-indented nil)
@ -5105,11 +5108,12 @@ With a numeric prefix, show all headlines up to that level."
((eq org-startup-folded 'content)
(let ((this-command 'org-cycle) (last-command 'org-cycle))
(org-cycle '(4)) (org-cycle '(4)))))
(if org-hide-block-startup (org-hide-block-all))
(org-set-visibility-according-to-property 'no-cleanup)
(org-cycle-hide-archived-subtrees 'all)
(org-cycle-hide-drawers 'all)
(org-cycle-show-empty-lines 'all))
(unless (eq org-startup-folded 'showeverything)
(if org-hide-block-startup (org-hide-block-all))
(org-set-visibility-according-to-property 'no-cleanup)
(org-cycle-hide-archived-subtrees 'all)
(org-cycle-hide-drawers 'all)
(org-cycle-show-empty-lines 'all)))
(defun org-set-visibility-according-to-property (&optional no-cleanup)
"Switch subtree visibilities according to :VISIBILITY: property."