[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Orgmode] [PATCH] sexp can set its face (was: Including current time in
From: |
Łukasz Stelmach |
Subject: |
[Orgmode] [PATCH] sexp can set its face (was: Including current time in agenda) |
Date: |
Thu, 09 Dec 2010 00:46:20 +0100 |
User-agent: |
Gnus/5.13 (Gnus v5.13) Emacs/23.2 (gnu/linux) |
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
- Re: [Orgmode] Re: Including current time in agenda, (continued)
[Orgmode] Re: Including current time in agenda, Matt Lundin, 2010/12/06
Re: [Orgmode] Re: Including current time in agenda, suvayu ali, 2010/12/12
Re: [Orgmode] Including current time in agenda, Eric S Fraga, 2010/12/06