From mboxrd@z Thu Jan  1 00:00:00 1970
From: "Fabrice Niessen" <fni-news-TA4HMoP+1wHrZ44/DZwexQ@public.gmane.org>
Subject: Re: Change Todo colors
Date: Mon, 03 Mar 2014 16:11:24 +0100
Message-ID: <86zjl7uxk3.fsf@somewhere.org>
References: <CAFrmxDfB4dGRHU5jZ4wfsSLxrF2oYKt5B4G2dNkk4BZi8gJGnw@mail.gmail.com>
	<87lhwu77wq.fsf@gmail.com>
Mime-Version: 1.0
Content-Type: text/plain
Return-path: <emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org-mXXj517/zsQ@public.gmane.org>
List-Id: "General discussions about Org-mode." <emacs-orgmode.gnu.org>
List-Unsubscribe: <https://lists.gnu.org/mailman/options/emacs-orgmode>,
	<mailto:emacs-orgmode-request-mXXj517/zsQ@public.gmane.org?subject=unsubscribe>
List-Archive: <http://lists.gnu.org/archive/html/emacs-orgmode>
List-Post: <mailto:emacs-orgmode-mXXj517/zsQ@public.gmane.org>
List-Help: <mailto:emacs-orgmode-request-mXXj517/zsQ@public.gmane.org?subject=help>
List-Subscribe: <https://lists.gnu.org/mailman/listinfo/emacs-orgmode>,
	<mailto:emacs-orgmode-request-mXXj517/zsQ@public.gmane.org?subject=subscribe>
Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org-mXXj517/zsQ@public.gmane.org
Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org-mXXj517/zsQ@public.gmane.org
To: emacs-orgmode-mXXj517/zsQ@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/