From mboxrd@z Thu Jan 1 00:00:00 1970 From: Julien Danjou Subject: [PATCH 2/2] org-agenda: add org-agenda-day-face-function Date: Mon, 8 Nov 2010 18:23:07 +0100 Message-ID: <1289236987-21552-2-git-send-email-julien@danjou.info> References: <1289236987-21552-1-git-send-email-julien@danjou.info> Return-path: Received: from [140.186.70.92] (port=52054 helo=eggs.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1PFVRN-0000wQ-0s for emacs-orgmode@gnu.org; Mon, 08 Nov 2010 12:23:35 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1PFVR2-0003xd-Ie for emacs-orgmode@gnu.org; Mon, 08 Nov 2010 12:23:14 -0500 Received: from coquelicot-s.easter-eggs.com ([213.215.37.94]:47028) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1PFVR2-0003xU-De for emacs-orgmode@gnu.org; Mon, 08 Nov 2010 12:23:12 -0500 In-Reply-To: <1289236987-21552-1-git-send-email-julien@danjou.info> List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-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: emacs-orgmode@gnu.org Cc: Julien Danjou * lisp/org-agenda.el (org-agenda-day-face-function): New variable. (org-agenda-get-day-face): Use org-agenda-day-face-function. Signed-off-by: Julien Danjou --- lisp/org-agenda.el | 20 +++++++++++++++----- 1 files changed, 15 insertions(+), 5 deletions(-) diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index 98371e6..ffd6c90 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -1433,6 +1433,14 @@ determines if it is a foreground or a background color." (string :tag "Color") (sexp :tag "Face")))))) +(defcustom org-agenda-day-face-function nil + "Function called to determine what face should be used to display a day. +The only argument passed to that function is the day. It should +returns a face, or nil if does not want to specify a face and let +the normal rules apply." + :group 'org-agenda-line-format + :type 'function) + (defcustom org-agenda-category-icon-alist nil "Alist of category icon to be displayed in agenda views. @@ -3108,11 +3116,13 @@ no longer in use." (defun org-agenda-get-day-face (date) "Return the face DATE should be displayed with." - (cond ((org-agenda-todayp date) - 'org-agenda-date-today) - ((member (calendar-day-of-week date) org-agenda-weekend-days) - 'org-agenda-date-weekend) - (t 'org-agenda-date))) + (or (and (functionp org-agenda-day-face-function) + (funcall org-agenda-day-face-function date)) + (cond ((org-agenda-todayp date) + 'org-agenda-date-today) + ((member (calendar-day-of-week date) org-agenda-weekend-days) + 'org-agenda-date-weekend) + (t 'org-agenda-date)))) ;;; Agenda timeline -- 1.7.2.3