Re: [PATCH 2/2] org-agenda: add org-agenda-day-face-function

[Julien Danjou <julien@danjou.info>]

On Fri, Nov 12 2010, Carsten Dominik wrote:

> Applied, thanks.
>
> I did not test it myself (have grown to trust Julien...), so if someone can
> 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= "Holidays" category)
                                 (string= "Vacation" category))
                         (return 'org-agenda-date-weekend))))))
              (when face (return face)))))))

-- 
Julien Danjou
// ᐰ <julien@danjou.info>   http://julien.danjou.info