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

[Carsten Dominik <carsten.dominik@gmail.com>]

Patch accepted, thanks.

- Carsten

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

> suvayu ali <fatkasuvayu+linux@gmail.com> 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.
> Emacs-orgmode@gnu.org
> http://lists.gnu.org/mailman/listinfo/emacs-orgmode