summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBastien Guerry <bzg@altern.org>2012-04-20 12:38:07 +0200
committerBastien Guerry <bzg@altern.org>2012-04-20 12:38:07 +0200
commit9f5699e1aa1be3ae0fc611d681520240b2b8c19f (patch)
tree40da2c68e3dd4b2696b673d5ddf00e9d797a13c6
parent001bcb9645bf0a5ea72f09ae502a8410319473c0 (diff)
downloadorg-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.el10
-rw-r--r--lisp/org.el2
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