From a9eb916a2c24ce4e09ecd7a3e69d9e4a8dec010e Mon Sep 17 00:00:00 2001 From: Carsten Dominik Date: Mon, 4 Jan 2010 15:35:45 +0100 Subject: [PATCH] Agenda: New face for entries from the Emacs diary --- lisp/ChangeLog | 5 +++++ lisp/org-agenda.el | 2 +- lisp/org-faces.el | 6 ++++++ 3 files changed, 12 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index e40e17761..ee7cf4c1b 100755 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,10 @@ 2010-01-04 Carsten Dominik + * org-agenda.el (org-get-entries-from-diary): Add the new face to + these entries. + + * org-faces.el (org-agenda-diary): New face. + * org.el (org-make-link-regexps): Allow regexp-special characters in link types. (org-open-file): When in-emacs is `system', also force system diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index 891b0cb46..fb472c3cf 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -3757,7 +3757,7 @@ MATCH is being ignored." (setq x (org-format-agenda-item "" x "Diary" nil 'time)) ;; Extend the text properties to the beginning of the line (org-add-props x (text-properties-at (1- (length x)) x) - 'type "diary" 'date date)) + 'type "diary" 'date date 'face 'org-agenda-diary)) entries))))) (defvar org-agenda-cleanup-fancy-diary-hook nil diff --git a/lisp/org-faces.el b/lisp/org-faces.el index 75ba13d10..cfc4cf7a4 100644 --- a/lisp/org-faces.el +++ b/lisp/org-faces.el @@ -605,6 +605,12 @@ month and 365.24 days for a year)." "Face used for time grids." :group 'org-faces) +(defface org-agenda-diary + (org-compatible-face 'default + nil) + "Face used for agenda entries that come from the Emacs diary." + :group 'org-faces) + (defconst org-level-faces '(org-level-1 org-level-2 org-level-3 org-level-4 org-level-5 org-level-6 org-level-7 org-level-8