Hi all, recently I was bothered by a very minor thing in my custom agenda: the headline showing the keywords is always using the "warning" face for the selected keyword(s), instead of the proper faces used to display to them everywhere else. Attached is a patch that changes this that should work under all conditions as far as I can see (and tested). Do you think this is useful? I feel it is the right thing (TM) to do.
I used a separate function for the propertization (is that a word?), in case it might become useful elsewhere --- feel free to refactor this to your liking. I would be happy to see this change applied. Standard disclaimer: Not using the git version, but works in the elpa version from last night. Regards, Ingo ----- --- org-agenda-orig.el 2012-11-02 18:26:43.848678550 +0100 +++ org-agenda.el 2012-11-02 18:43:23.377778537 +0100 @@ -4490,6 +4490,17 @@ ;;; Agenda TODO list +(defun org-propertize-todo-keyword-list (keywords) + (concat + (if (or (equal keywords "ALL") (not keywords)) + (propertize "ALL" 'face 'warning) + (mapconcat + (lambda (kw) + (propertize kw 'face (org-get-todo-face kw))) + (org-split-string keywords "|") + "|")) + "\n")) + (defvar org-select-this-todo-keyword nil) (defvar org-last-arg nil) @@ -4550,9 +4561,7 @@ (concat "ToDo: " (or org-select-this-todo-keyword "ALL")))) (org-agenda-mark-header-line (point-min)) - (setq pos (point)) - (insert (or org-select-this-todo-keyword "ALL") "\n") - (add-text-properties pos (1- (point)) (list 'face 'org-warning)) + (insert (org-propertize-todo-keyword-list org-select-this-todo-keyword)) (setq pos (point)) (unless org-agenda-multi (insert "Available with `N r': (0)[ALL]")