summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNicolas Goaziou <mail@nicolasgoaziou.fr>2015-08-06 14:55:51 +0200
committerNicolas Goaziou <mail@nicolasgoaziou.fr>2015-08-06 14:55:51 +0200
commit96b4e8f74b6c067b64fd997e953961fc609ac31e (patch)
treed00423c1ab5555218d9c706ef0c82db7257828da
parent3a81c7ee6f392463db1db4b3e77a0e0411032382 (diff)
downloadorg-mode-96b4e8f74b6c067b64fd997e953961fc609ac31e.tar.gz
org-colview: Preserve face for TODO keywords
* lisp/org-colview.el (org-columns-display-here): Preserve face for TODO keywords in column view. Suggested-by: Matt Price <moptop99@gmail.com> <http://permalink.gmane.org/gmane.emacs.orgmode/99557>
-rw-r--r--lisp/org-colview.el12
1 files changed, 8 insertions, 4 deletions
diff --git a/lisp/org-colview.el b/lisp/org-colview.el
index 251f425..2dec676 100644
--- a/lisp/org-colview.el
+++ b/lisp/org-colview.el
@@ -206,9 +206,7 @@ This is the compiled version of the format.")
(val (or (cdr ass) ""))
(modval
(cond
- ((and org-columns-modify-value-for-display-function
- (functionp
- org-columns-modify-value-for-display-function))
+ ((functionp org-columns-modify-value-for-display-function)
(funcall org-columns-modify-value-for-display-function
title val))
((equal property "ITEM") (org-columns-compact-links val))
@@ -222,7 +220,13 @@ This is the compiled version of the format.")
(string
(format f (org-columns-add-ellipses (or modval val) width)))
(ov (org-columns-new-overlay
- (point) (1+ (point)) string (if dateline face1 face))))
+ (point) (1+ (point))
+ string
+ (cond
+ ((equal property "TODO")
+ (list (org-get-todo-face val) (if dateline face1 face)))
+ (dateline face1)
+ (t face)))))
(overlay-put ov 'keymap org-columns-map)
(overlay-put ov 'org-columns-key property)
(overlay-put ov 'org-columns-value (cdr ass))