diff options
author | Bastien Guerry <bzg@altern.org> | 2012-04-20 12:38:07 +0200 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2012-04-20 12:38:07 +0200 |
commit | 9f5699e1aa1be3ae0fc611d681520240b2b8c19f (patch) | |
tree | 40da2c68e3dd4b2696b673d5ddf00e9d797a13c6 | |
parent | 001bcb9645bf0a5ea72f09ae502a8410319473c0 (diff) | |
download | org-mode-9f5699e1aa1be3ae0fc611d681520240b2b8c19f.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 d2ab9cb..54ca285 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -15007,7 +15007,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 |