[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: [Orgmode] [PATCH] sexp can set its face (was: Including current time
From: |
suvayu ali |
Subject: |
Re: [Orgmode] [PATCH] sexp can set its face (was: Including current time in agenda) |
Date: |
Mon, 13 Dec 2010 01:14:13 +0100 |
Hi Łukasz,
2010/12/9 Łukasz Stelmach <address@hidden>:
> 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?
>
Thanks for this patch. Works great. :)
> --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---
>
--
Suvayu
Open source is the future. It sets us free.
- Re: [Orgmode] Including current time in agenda, (continued)
Re: [Orgmode] Including current time in agenda, Eric S Fraga, 2010/12/06