mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-07-15 19:16:28 +00:00
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/
This commit is contained in:
parent
001bcb9645
commit
9f5699e1aa
|
@ -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"))
|
||||
|
|
|
@ -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
|
||||
|
|
Loading…
Reference in a new issue