Re: [O] Change Todo colors

[Jonathan Leech-Pepin]

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 <address@hidden> wrote:

zwz wrote:
> Chris Henderson <address@hidden> 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 "#BBBBBB")
                        :foreground "#BBBBBB" :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/