diff options
author | Bastien Guerry <bzg@altern.org> | 2012-04-20 12:38:07 +0200 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2012-04-21 12:12:30 +0200 |
commit | cde8a35f5440ad0d403db3b3dc53834e5d947f4e (patch) | |
tree | 0dc018757975877a3ee623bab6ed3ccbc36cef48 | |
parent | fef07abefb8cb955a39a1bd495af2cd47c5dfa4d (diff) | |
download | org-mode-cde8a35f5440ad0d403db3b3dc53834e5d947f4e.tar.gz |
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/
-rw-r--r-- | lisp/org-faces.el | 10 | ||||
-rw-r--r-- | lisp/org.el | 2 |
2 files changed, 11 insertions, 1 deletions
diff --git a/lisp/org-faces.el b/lisp/org-faces.el index 481d662..5e98463 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 c2cc235..c600896 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 |