summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMichael Brand <michael.ch.brand@gmail.com>2011-06-03 21:09:46 +0200
committerBastien Guerry <bzg@altern.org>2011-06-30 18:40:48 +0200
commitd29890839436cf73bda14852185a85f8dbe50dd9 (patch)
tree45b3c63e44629a5362a88a5d545e9cf0d0080e30
parentdbde087a2179b741ad944b6f2c18eec659e15a32 (diff)
downloadorg-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.el13
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.")