diff options
author | Ingo Lohmar <i.lohmar@gmail.com> | 2012-12-18 18:47:49 +0100 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2012-12-18 18:47:49 +0100 |
commit | 0f3264f690bb6f06ceba5db29c33c5420e84e8df (patch) | |
tree | e02991c27c9d726f2615b05fe405ccbb7ed25b44 | |
parent | 0db5f28dd408e5dd87ffac65514db3b4c194a469 (diff) | |
download | org-mode-0f3264f690bb6f06ceba5db29c33c5420e84e8df.tar.gz |
org-agenda.el: Use `org-todo-keyword-faces' to highlight selected TODO keywords.
* org-agenda.el
(org-agenda-propertize-selected-todo-keywords): New function
to highlight the current agenda todo keywords depending on
`org-todo-keyword-faces'.
(org-todo-list): Use the new function.
TINYCHANGE
-rw-r--r-- | lisp/org-agenda.el | 17 |
1 files changed, 14 insertions, 3 deletions
diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index 5343887..31a815d 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -4516,6 +4516,18 @@ in `org-agenda-text-search-extra-files'. ;;; Agenda TODO list +(defun org-agenda-propertize-selected-todo-keywords (keywords) + "Use `org-todo-keyword-faces' for the selected todo 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) @@ -4576,9 +4588,8 @@ for a keyword. A numeric prefix directly selects the Nth keyword in (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-agenda-propertize-selected-todo-keywords + org-select-this-todo-keyword)) (setq pos (point)) (unless org-agenda-multi (insert "Available with `N r': (0)[ALL]") |