Re: [Orgmode] [PATCH] sexp can set its face (was: Including current time in agenda)

[Carsten Dominik]

Patch accepted, thanks.

- Carsten

On Dec 9, 2010, at 12:46 AM, Łukasz Stelmach wrote:

> suvayu ali <address@hidden> writes:
>
> > I actually tried to set the text properties for the string instead,
> > but looks like org-agenda is ignoring that.
> >
> > (defun jd:org-current-time ()
> >  "Return current-time if date is today."
> >  (when (equal date (calendar-current-date))
> >    (propertize (format-time-string "%H:%M Current time") 'font-lock- 
> > face
> >                 '(:weight bold :foreground "DodgerBlue4" :background "snow"))))
>
> To accomplish this you'd have to apply the following patch and use  
> 'face
> property rather than font-lock-face.
>
> Why can't a sexp choose its 'face after all?
>
> --8<---------------cut here---------------start------------->8---
> diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el
> index 20c901a..ba5eafc 100644
> --- a/lisp/org-agenda.el
> +++ b/lisp/org-agenda.el
> @@ -4650,8 +4650,7 @@ the documentation of `org-diary'."
> (defun org-agenda-get-sexps ()
>   "Return the sexp information for agenda display."
>   (require 'diary-lib)
> -  (let* ((props (list 'face nil
> -                     'mouse-face 'highlight
> +  (let* ((props (list 'mouse-face 'highlight
>                       'help-echo
>                       (format "mouse-2 or RET jump to org file %s"
>                               (abbreviate-file-name buffer-file-name))))
> --8<---------------cut here---------------end--------------->8---
>
> --
> Miłego dnia,
> Łukasz Stelmach
>
>
> _______________________________________________
> Emacs-orgmode mailing list
> Please use `Reply All' to send replies to the list.
> address@hidden
> http://lists.gnu.org/mailman/listinfo/emacs-orgmode