mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-11-24 07:20:29 +00:00
Code

Agenda: New face for entries from the Emacs diary

Browse Source
This commit is contained in:
Carsten Dominik 2010-01-04 15:35:45 +01:00
parent eab41a756a
commit a9eb916a2c
3 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -1,5 +1,10 @@
2010-01-04 Carsten Dominik <carsten.dominik@gmail.com>
* 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

2
lisp/org-agenda.el
View File

@ -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

6
lisp/org-faces.el
View File

@ -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