From: Carsten Dominik <carsten.dominik@gmail.com>
To: "Łukasz Stelmach" <lukasz.stelmach@iem.pw.edu.pl>
Cc: emacs-orgmode@gnu.org
Subject: Re: [PATCH] sexp can set its face (was: Including current time in agenda)
Date: Sun, 12 Dec 2010 08:44:33 +0100 [thread overview]
Message-ID: <29351D09-02D1-480A-9C76-BFE5F3DB723F@gmail.com> (raw)
In-Reply-To: <87y67zx1yr.fsf_-_%lukasz.stelmach@iem.pw.edu.pl>
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
next prev parent reply other threads:[~2010-12-12 7:44 UTC|newest]
Thread overview: 32+ messages / expand[flat|nested] mbox.gz Atom feed top
2010-12-06 6:49 Including current time in agenda suvayu ali
2010-12-06 11:47 ` Eric S Fraga
2010-12-06 11:55 ` suvayu ali
2010-12-06 12:08 ` Eric S Fraga
2010-12-06 12:27 ` suvayu ali
2010-12-06 13:00 ` Carsten Dominik
2010-12-06 13:10 ` suvayu ali
2010-12-06 13:38 ` Julien Danjou
2010-12-06 14:03 ` Carsten Dominik
2010-12-06 14:30 ` Suvayu Ali
2010-12-06 14:45 ` Carsten Dominik
2010-12-06 14:53 ` Suvayu Ali
2010-12-06 14:56 ` Carsten Dominik
2010-12-06 14:59 ` Rémi Vanicat
2010-12-06 15:10 ` suvayu ali
2010-12-06 15:13 ` Julien Danjou
2010-12-06 15:28 ` Suvayu Ali
2010-12-06 15:39 ` Matt Lundin
2010-12-12 8:30 ` Carsten Dominik
2010-12-12 17:54 ` Eric S Fraga
2010-12-12 21:31 ` Matt Lundin
2011-01-07 19:31 ` Erik Butz
2011-01-07 23:27 ` suvayu ali
2011-01-07 23:46 ` Erik Butz
2011-01-08 0:04 ` suvayu ali
2011-01-08 14:46 ` Erik Butz
2010-12-12 18:19 ` suvayu ali
2010-12-06 19:27 ` Eric S Fraga
2010-12-06 22:34 ` suvayu ali
2010-12-08 23:46 ` [PATCH] sexp can set its face (was: Including current time in agenda) Łukasz Stelmach
2010-12-12 7:44 ` Carsten Dominik [this message]
2010-12-13 0:14 ` suvayu ali
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
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=29351D09-02D1-480A-9C76-BFE5F3DB723F@gmail.com \
--to=carsten.dominik@gmail.com \
--cc=emacs-orgmode@gnu.org \
--cc=lukasz.stelmach@iem.pw.edu.pl \
/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 external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.