From d29890839436cf73bda14852185a85f8dbe50dd9 Mon Sep 17 00:00:00 2001 From: Michael Brand Date: Fri, 3 Jun 2011 21:09:46 +0200 Subject: [PATCH] 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.) --- lisp/org-agenda.el | 13 +++++++++---- 1 file changed, 9 insertions(+), 4 deletions(-) diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index 9c81b8e31..2bec5186e 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.") -- 2.11.4.GIT