Re: Change Todo colors

["Fabrice Niessen" <fni-news-TA4HMoP+1wHrZ44/DZwexQ@public.gmane.org>]

zwz wrote:
> Chris Henderson <henders254-Re5JQEeQqe8AvxtiuMwx3w@public.gmane.org> 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/