emacs-orgmode@gnu.org archives
 help / color / mirror / code / Atom feed
From: suvayu ali <fatkasuvayu+linux@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: Mon, 13 Dec 2010 01:14:13 +0100	[thread overview]
Message-ID: <AANLkTik3hUoZFe+Bp154-g1Z7vpaOQz_OfWBjdnK+Spa@mail.gmail.com> (raw)
In-Reply-To: <87y67zx1yr.fsf_-_%lukasz.stelmach@iem.pw.edu.pl>

Hi Łukasz,

2010/12/9 Łukasz Stelmach <lukasz.stelmach@iem.pw.edu.pl>:
> 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?
>

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.

      parent reply	other threads:[~2010-12-13  0:14 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
2010-12-13  0:14         ` suvayu ali [this message]

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=AANLkTik3hUoZFe+Bp154-g1Z7vpaOQz_OfWBjdnK+Spa@mail.gmail.com \
    --to=fatkasuvayu+linux@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 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).