diff options
author | Michael Brand <michael.ch.brand@gmail.com> | 2011-06-03 21:09:46 +0200 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2011-06-30 18:40:48 +0200 |
commit | d29890839436cf73bda14852185a85f8dbe50dd9 (patch) | |
tree | 45b3c63e44629a5362a88a5d545e9cf0d0080e30 | |
parent | dbde087a2179b741ad944b6f2c18eec659e15a32 (diff) | |
download | org-mode-d29890839436cf73bda14852185a85f8dbe50dd9.tar.gz |
Allow to disable the agenda block separator per block
* org-agenda.el (org-agenda-compact-blocks): Improve docstring.
(org-agenda-block-separator): Add nil to docstring and customization.
(org-prepare-agenda): Skip agenda block separator additionally if
org-agenda-block-separator is nil.
(org-agenda-overriding-header): Improve docstring.
This change allows to disable the agenda block separator only and also
per block only. (The variable org-agenda-compact-blocks non-nil
disables agenda block separators together with the line containing the
agenda span name and week number and does this globally for all blocks
and all custom agenda commands.)
-rw-r--r-- | lisp/org-agenda.el | 13 |
1 files changed, 9 insertions, 4 deletions
diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index 9c81b8e..2bec518 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -89,16 +89,20 @@ only needed when the text to be killed contains more than N non-white lines." (defcustom org-agenda-compact-blocks nil "Non-nil means make the block agenda more compact. -This is done by leaving out unnecessary lines." +This is done globally by leaving out lines like the agenda span +name and week number or the separator lines." :group 'org-agenda :type 'boolean) (defcustom org-agenda-block-separator ?= "The separator between blocks in the agenda. If this is a string, it will be used as the separator, with a newline added. -If it is a character, it will be repeated to fill the window width." +If it is a character, it will be repeated to fill the window width. +If nil the separator is disabled. In `org-agenda-custom-commands' this +addresses the separator between the current and the previous block." :group 'org-agenda :type '(choice + (const :tag "Disabled" nil) (character) (string))) @@ -3030,7 +3034,8 @@ the global options and expect it to be applied to the entire view.") (progn (setq buffer-read-only nil) (goto-char (point-max)) - (unless (or (bobp) org-agenda-compact-blocks) + (unless (or (bobp) org-agenda-compact-blocks + (not org-agenda-block-separator)) (insert "\n" (if (stringp org-agenda-block-separator) org-agenda-block-separator @@ -4111,7 +4116,7 @@ This is basically a temporary global variable that can be set and then used by user-defined selections using `org-agenda-skip-function'.") (defvar org-agenda-overriding-header nil - "When this is set during todo and tags searches, will replace header. + "When set during agenda, todo and tags searches it replaces the header. This variable should not be set directly, but custom commands can bind it in the options section.") |