From mboxrd@z Thu Jan  1 00:00:00 1970
From: "Ryan C. Thompson" <rct@thompsonclan.org>
Subject: Easier customization of TODO keyword colors
Date: Thu, 03 Sep 2009 22:20:06 -0700
Message-ID: <4AA0A386.6030901@thompsonclan.org>
Mime-Version: 1.0
Content-Type: text/plain; charset=ISO-8859-1; format=flowed
Content-Transfer-Encoding: 7bit
Return-path: <emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org>
Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43)
	id 1MjRDe-0003H0-Gi
	for emacs-orgmode@gnu.org; Fri, 04 Sep 2009 01:20:18 -0400
Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43)
	id 1MjRDZ-0003CQ-Ni
	for emacs-orgmode@gnu.org; Fri, 04 Sep 2009 01:20:18 -0400
Received: from [199.232.76.173] (port=49251 helo=monty-python.gnu.org)
	by lists.gnu.org with esmtp (Exim 4.43) id 1MjRDZ-0003CC-Ez
	for emacs-orgmode@gnu.org; Fri, 04 Sep 2009 01:20:13 -0400
Received: from mail-px0-f197.google.com ([209.85.216.197]:41877)
	by monty-python.gnu.org with esmtp (Exim 4.60)
	(envelope-from <rct@thompsonclan.org>) id 1MjRDZ-0005WL-03
	for emacs-orgmode@gnu.org; Fri, 04 Sep 2009 01:20:13 -0400
Received: by pxi35 with SMTP id 35so444821pxi.12
	for <emacs-orgmode@gnu.org>; Thu, 03 Sep 2009 22:20:10 -0700 (PDT)
List-Id: "General discussions about Org-mode." <emacs-orgmode.gnu.org>
List-Unsubscribe: <http://lists.gnu.org/mailman/listinfo/emacs-orgmode>,
	<mailto:emacs-orgmode-request@gnu.org?subject=unsubscribe>
List-Archive: <http://lists.gnu.org/pipermail/emacs-orgmode>
List-Post: <mailto:emacs-orgmode@gnu.org>
List-Help: <mailto:emacs-orgmode-request@gnu.org?subject=help>
List-Subscribe: <http://lists.gnu.org/mailman/listinfo/emacs-orgmode>,
	<mailto:emacs-orgmode-request@gnu.org?subject=subscribe>
Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org
Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org
To: org-mode Mailinglist <emacs-orgmode@gnu.org>

Here is some code I came up with some code to make it easier to 
customize the colors of various TODO keywords. As long as you just want 
a different color and nothing else, you can customize the variable 
org-todo-keyword-faces and use just a string color (i.e. a string of the 
color name) as the face, and then org-get-todo-face will convert the 
color to a face, inheriting everything else from the standard org-todo face.

To demonstrate, I currently have org-todo-keyword-faces set to
(("IN PROGRESS" . "dark orange")
  ("WAITING" . "red4")
  ("CANCELED" . "saddle brown"))

Here's the code, in a form you can put in your .emacs.

(eval-after-load 'org-faces
   '(progn
      (defcustom org-todo-keyword-faces nil
        "Faces for specific TODO keywords.
This is a list of cons cells, with TODO keywords in the car and
faces in the cdr.  The face can be a symbol, a color, or a
property list of attributes, like (:foreground \"blue\" :weight
bold :underline t)."
        :group 'org-faces
        :group 'org-todo
        :type '(repeat
                (cons
                 (string :tag "Keyword")
                 (choice color (sexp :tag "Face")))))))

(eval-after-load 'org
   '(progn
      (defun org-get-todo-face-from-color (color)
        "Returns a specification for a face that inherits from org-todo
   face and has the given color as foreground. Returns nil if
   color is nil."
        (when color
          `(:inherit org-warning :foreground ,color)))

      (defun org-get-todo-face (kwd)
        "Get the right face for a TODO keyword KWD.
If KWD is a number, get the corresponding match group."
        (if (numberp kwd) (setq kwd (match-string kwd)))
        (or (let ((face (cdr (assoc kwd org-todo-keyword-faces))))
              (if (stringp face)
                  (org-get-todo-face-from-color face)
                face))
            (and (member kwd org-done-keywords) 'org-done)
            'org-todo))))