mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-08-24 14:02:51 +00:00
Code Releases Activity

Agenda: Make overriding header one of the default option variables

Browse source
This commit is contained in:
Carsten Dominik 2009-02-16 05:35:53 +01:00
parent 626e47ce7c
commit 0dae1ba349
2 changed files with 21 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/ChangeLog
View file

@ -1,3 +1,9 @@
2009-02-16 Carsten Dominik <carsten.dominik@gmail.com>
* org-agenda.el (org-agenda-custom-commands-local-options): Add
`org-agenda-overriding-header' as an option.
(org-agenda-list): Honor org-agenda-overriding-header'.
2009-02-15 Carsten Dominik <carsten.dominik@gmail.com>
* org-list.el (org-toggle-checkbox): Improve cursor positioning

24
lisp/org-agenda.el
View file

@ -166,9 +166,12 @@ you can \"misuse\" it to also add other text to the header. However,
(defconst org-agenda-custom-commands-local-options
`(repeat :tag "Local settings for this command. Remember to quote values"
(choice :tag "Setting"
(list :tag "Heading for this block"
(const org-agenda-overriding-header)
(string :tag "Headline"))
(list :tag "Any variable"
(variable :tag "Variable")
(sexp :tag "Value"))
(sexp :tag "Value (sexp)"))
(list :tag "Files to be searched"
(const org-agenda-files)
(list
@ -2518,14 +2521,17 @@ given in `org-agenda-start-on-weekday'."
(w1 (org-days-to-iso-week d1))
(w2 (org-days-to-iso-week d2)))
(setq s (point))
(insert (capitalize (symbol-name (org-agenda-ndays-to-span nd)))
"-agenda"
(if (< (- d2 d1) 350)
(if (= w1 w2)
(format " (W%02d)" w1)
(format " (W%02d-W%02d)" w1 w2))
"")
":\n"))
(if org-agenda-overriding-header
(insert (org-add-props (copy-sequence org-agenda-overriding-header)
nil 'face 'org-agenda-structure) "\n")
(insert (capitalize (symbol-name (org-agenda-ndays-to-span nd)))
"-agenda"
(if (< (- d2 d1) 350)
(if (= w1 w2)
(format " (W%02d)" w1)
(format " (W%02d-W%02d)" w1 w2))
"")
":\n")))
(add-text-properties s (1- (point)) (list 'face 'org-agenda-structure
'org-date-line t)))
(while (setq d (pop day-numbers))