From mboxrd@z Thu Jan  1 00:00:00 1970
From: Julien Danjou <julien@danjou.info>
Subject: Re: [PATCH 2/2] org-agenda: add org-agenda-day-face-function
Date: Fri, 12 Nov 2010 16:50:14 +0100
Message-ID: <sa38w0ybky1.fsf@cigue.easter-eggs.fr>
References: <1289236987-21552-1-git-send-email-julien@danjou.info>
	<1289236987-21552-2-git-send-email-julien@danjou.info>
	<DCCF9884-F160-43C5-9E3B-780625C46E93@gmail.com>
	<sa3lj4yblof.fsf@cigue.easter-eggs.fr>
	<A61F3511-EB52-480C-A4C2-6A6B5E7A2308@gmail.com>
Mime-Version: 1.0
Content-Type: text/plain; charset=utf-8
Content-Transfer-Encoding: quoted-printable
Return-path: <emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org>
Received: from [140.186.70.92] (port=54065 helo=eggs.gnu.org)
	by lists.gnu.org with esmtp (Exim 4.43) id 1PGvtK-0000UV-Nl
	for emacs-orgmode@gnu.org; Fri, 12 Nov 2010 10:50:22 -0500
Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71)
	(envelope-from <julien@danjou.info>) id 1PGvtJ-0002o4-Bo
	for emacs-orgmode@gnu.org; Fri, 12 Nov 2010 10:50:18 -0500
Received: from coquelicot-s.easter-eggs.com ([213.215.37.94]:44369)
	by eggs.gnu.org with esmtp (Exim 4.71)
	(envelope-from <julien@danjou.info>) id 1PGvtI-0002mV-L8
	for emacs-orgmode@gnu.org; Fri, 12 Nov 2010 10:50:17 -0500
In-Reply-To: <A61F3511-EB52-480C-A4C2-6A6B5E7A2308@gmail.com> (Carsten
	Dominik's message of "Fri, 12 Nov 2010 09:43:03 -0600")
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/archive/html/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: Carsten Dominik <carsten.dominik@gmail.com>
Cc: emacs-orgmode@gnu.org

On Fri, Nov 12 2010, Carsten Dominik wrote:

> Applied, thanks.
>
> I did not test it myself (have grown to trust Julien...), so if someone c=
an
> put this to a test, that would be nice.

Thanks Carsten.

If people wants to try it, here's an example of what I'm using to mark
days as holidays using the weekend face.

The function tests the category of all entries from all my Org files,
and if the category is "Holidays" or "Vacation", I return the face used
for weekend days. With that I quickly see I can stay at home and hack on
org-mode. :-)

(setq org-agenda-day-face-function
      (defun jd:org-agenda-day-face-holidays-function (date)
        "Compute DATE face for holidays."
        (unless (org-agenda-todayp date)
          (dolist (file (org-agenda-files nil 'ifmode))
            (let ((face
                   (dolist (entry (org-agenda-get-day-entries file date))
                     (let ((category (with-temp-buffer
                                       (insert entry)
                                       (org-get-category (point-min)))))
                       (when (or (string=3D "Holidays" category)
                                 (string=3D "Vacation" category))
                         (return 'org-agenda-date-weekend))))))
              (when face (return face)))))))

--=20
Julien Danjou
// =E1=90=B0 <julien@danjou.info>   http://julien.danjou.info