emacs-orgmode@gnu.org archives
 help / color / mirror / code / Atom feed
From: Carsten Dominik <carsten.dominik@gmail.com>
To: Julien Danjou <julien@danjou.info>
Cc: emacs-orgmode@gnu.org
Subject: Re: [PATCH 2/2] org-agenda: add org-agenda-day-face-function
Date: Fri, 12 Nov 2010 09:30:13 -0600	[thread overview]
Message-ID: <DCCF9884-F160-43C5-9E3B-780625C46E93@gmail.com> (raw)
In-Reply-To: <1289236987-21552-2-git-send-email-julien@danjou.info>

Hi Julien,

to make sure I don't make a mistake here, could you please send a new  
patch which contains all the changes in a single patch.

Sorry about this.

- Carsten

On Nov 8, 2010, at 11:23 AM, Julien Danjou wrote:

> * 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 <julien@danjou.info>
> ---
> 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
>
>
> _______________________________________________
> Emacs-orgmode mailing list
> Please use `Reply All' to send replies to the list.
> Emacs-orgmode@gnu.org
> http://lists.gnu.org/mailman/listinfo/emacs-orgmode

  reply	other threads:[~2010-11-12 15:30 UTC|newest]

Thread overview: 10+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2010-11-08 17:23 [PATCH 1/2] org-agenda: introduce org-agenda-today and org-agenda-get-day-face Julien Danjou
2010-11-08 17:23 ` [PATCH 2/2] org-agenda: add org-agenda-day-face-function Julien Danjou
2010-11-12 15:30   ` Carsten Dominik [this message]
2010-11-12 15:34     ` Julien Danjou
2010-11-12 15:43       ` Carsten Dominik
2010-11-12 15:50         ` Julien Danjou
2010-11-08 18:34 ` [PATCH 1/2] org-agenda: introduce org-agenda-today and org-agenda-get-day-face Carsten Dominik
2010-11-08 19:28   ` Julien Danjou
2010-11-08 19:59     ` Carsten Dominik
2010-11-09 10:59 ` Julien Danjou

Reply instructions:

You may reply publicly to this message via plain-text email
using any one of the following methods:

* Save the following mbox file, import it into your mail client,
  and reply-to-all from there: mbox

  Avoid top-posting and favor interleaved quoting:
  https://en.wikipedia.org/wiki/Posting_style#Interleaved_style

  List information: https://www.orgmode.org/

* Reply using the --to, --cc, and --in-reply-to
  switches of git-send-email(1):

  git send-email \
    --in-reply-to=DCCF9884-F160-43C5-9E3B-780625C46E93@gmail.com \
    --to=carsten.dominik@gmail.com \
    --cc=emacs-orgmode@gnu.org \
    --cc=julien@danjou.info \
    /path/to/YOUR_REPLY

  https://kernel.org/pub/software/scm/git/docs/git-send-email.html

* If your mail client supports setting the In-Reply-To header
  via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line before the message body.
Code repositories for project(s) associated with this public inbox

	https://git.savannah.gnu.org/cgit/emacs/org-mode.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).