Agenda: Make block separator configurable.
The new option `org-agenda-block-separator' can be used for this.
This commit is contained in:
parent
fd82530eed
commit
19421c2513
|
@ -1,3 +1,9 @@
|
|||
2009-01-18 Carsten Dominik <carsten.dominik@gmail.com>
|
||||
|
||||
* org-agenda.el (org-prepare-agenda): Use
|
||||
`org-agenda-block-separator'.
|
||||
(org-agenda-block-separator): New option.
|
||||
|
||||
2009-01-17 Carsten Dominik <carsten.dominik@gmail.com>
|
||||
|
||||
* org-export-latex.el (org-export-latex-tables): Call
|
||||
|
|
|
@ -81,6 +81,15 @@ This is done by leaving out unnecessary 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."
|
||||
:group 'org-agenda
|
||||
:type '(choice
|
||||
(character)
|
||||
(string)))
|
||||
|
||||
(defgroup org-agenda-export nil
|
||||
"Options concerning exporting agenda views in Org-mode."
|
||||
:tag "Org Agenda Export"
|
||||
|
@ -2041,7 +2050,11 @@ VALUE defaults to t."
|
|||
(setq buffer-read-only nil)
|
||||
(goto-char (point-max))
|
||||
(unless (or (bobp) org-agenda-compact-blocks)
|
||||
(insert "\n" (make-string (window-width) ?=) "\n"))
|
||||
(insert "\n"
|
||||
(if (stringp org-agenda-block-separator)
|
||||
org-agenda-block-separator
|
||||
(make-string (window-width) org-agenda-block-separator))
|
||||
"\n"))
|
||||
(narrow-to-region (point) (point-max)))
|
||||
(org-agenda-reset-markers)
|
||||
(setq org-agenda-contributing-files nil)
|
||||
|
|
Loading…
Reference in New Issue