Should be able to just use `org-todo-keyword-faces` the way he was trying
in the original post. I've got the following in my init.el. Re-evaluating
it after changes (C-M-x) and then switching back to an org buffer makes the
changes on the fly:
,
| (setq
org-todo-keyword-faces
| `((TODO
|:weight bold
|:foreground ,(jlp/zenburn-color zenburn-cyan))
| (CLOSE
|:weight bold
|:underline (:color
|,(jlp/zenburn-color
| zenburn-blue))
|:foreground ,(jlp/zenburn-color
| zenburn-red))
| (WAIT
|:weight bold
|:foreground ,(jlp/zenburn-color
| zenburn-yellow))
| (PEND
|:weight bold
|:foreground ,(jlp/zenburn-color
| zenburn-orange))
| (MEET
|:weight bold
|:foreground ,(jlp/zenburn-color
| zenburn-yellow))
| (MET
|:weight bold
|:foreground ,(jlp/zenburn-color
| zenburn-yellow-2))
| (TIME
|:weight bold
|:foreground ,(jlp/zenburn-color
| zenburn-yellow))
| (CLOCKED
|:weight bold
|:foreground ,(jlp/zenburn-color
|zenburn-yellow-2
`
jlp/zenburn-color is just a shortcut to pull the list of colors from the
Zenburn color theme rather than have to remember the equivalent HEX colors.
Regards,
Jon
On 3 March 2014 10:11, Fabrice Niessen fni-n...@pirilampo.org wrote:
zwz wrote:
Chris Henderson henders...@gmail.com writes:
I'd like to change the color of Next to Red and Started to brown. At the
moment, todo/ next and started all showing as red.
Here is my .emacs snippet.
(setq org-todo-keywords
'((sequence TODO(t) Next(n) Started(s) | DONE(d!))
(sequence | CANCELED(c
(setq org-todo-keyword-faces
'((CANCELED . (:foreground blue :weight bold
You should use custom-set-faces instead of setq.
or `set-face-attribute', as I do in my Emacs configuration file[1]:
--8---cut here---start-8---
(with-eval-after-load org-faces
;; faces for specific TODO keywords
(setq org-todo-keyword-faces
'((NEW . leuven-org-created-kwd)
(TODO . org-todo)
(STRT . leuven-org-inprogress-kwd)
(WAIT . leuven-org-waiting-for-kwd)
(SDAY . leuven-org-someday-kwd)
(DONE . org-done)
(CANX . org-done)))
;; Org standard faces
(set-face-attribute 'org-todo nil
:weight 'bold :box '(:line-width 1 :color
#D8ABA7)
:foreground #D8ABA7 :background #FFE6E4)
(set-face-attribute 'org-done nil
:weight 'bold :box '(:line-width 1 :color
#BB)
:foreground #BB :background #F0F0F0)
;; Org non-standard faces
(defface leuven-org-created-kwd
'((t (:weight normal :box (:line-width 1 :color #EEE9C3)
:foreground #1A1A1A :background #FDFCD8)))
Face used to display state NEW.)
(defface leuven-org-inprogress-kwd
'((t (:weight bold :box (:line-width 1 :color #D9D14A)
:foreground #D9D14A :background #FCFCDC)))
Face used to display state STRT.)
(defface leuven-org-waiting-for-kwd
'((t (:weight bold :box (:line-width 1 :color #89C58F)
:foreground #89C58F :background #E2FEDE)))
Face used to display state WAIT.)
(defface leuven-org-someday-kwd
'((t (:weight bold :box (:line-width 1 :color #9EB6D4)
:foreground #9EB6D4 :background #E0EFFF)))
Face used to display state SDAY.))
--8---cut here---end---8---
Best regards,
Fabrice
[1] https://github.com/fniessen/emacs-leuven/blob/master/emacs-leuven.el
--
Fabrice Niessen
Leuven, Belgium
http://www.pirilampo.org/