From cde8a35f5440ad0d403db3b3dc53834e5d947f4e Mon Sep 17 00:00:00 2001 From: Bastien Guerry Date: Fri, 20 Apr 2012 12:38:07 +0200 Subject: [PATCH] org.el: New face `org-date-selected' for the selected calendar day. * org-faces.el (org-date-selected): New face. * org.el (org-date-ovl): Use `org-date-selected'. This fixes a problem with bold faces enlarging the calendar window unduely. See http://patchwork.newartisans.com/patch/1286/ --- lisp/org-faces.el | 10 ++++++++++ lisp/org.el | 2 +- 2 files changed, 11 insertions(+), 1 deletion(-) diff --git a/lisp/org-faces.el b/lisp/org-faces.el index 481d662ec..5e984636c 100644 --- a/lisp/org-faces.el +++ b/lisp/org-faces.el @@ -285,6 +285,16 @@ column view defines special faces for each outline level. See the file "Face for date/time stamps." :group 'org-faces) +(defface org-date-selected + (org-compatible-face nil + '((((class color) (min-colors 16) (background light)) (:foreground "Red1" :bold nil)) + (((class color) (min-colors 16) (background dark)) (:foreground "Pink" :bold nil)) + (((class color) (min-colors 8) (background light)) (:foreground "red" :bold nil)) + (((class color) (min-colors 8) (background dark)) (:foreground "red" :bold nil)) + (t (:inverse-video t)))) + "Face for deadlines and TODO keywords." + :group 'org-faces) + (defface org-sexp-date '((((class color) (background light)) (:foreground "Purple")) (((class color) (background dark)) (:foreground "Cyan")) diff --git a/lisp/org.el b/lisp/org.el index c2cc23544..c600896e9 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -14915,7 +14915,7 @@ So these are more for recording a certain time/date." (org-time-stamp arg 'inactive)) (defvar org-date-ovl (make-overlay 1 1)) -(overlay-put org-date-ovl 'face 'org-warning) +(overlay-put org-date-ovl 'face 'org-date-selected) (org-detach-overlay org-date-ovl) (defvar org-ans1) ; dynamically scoped parameter -- 2.11.4.GIT