ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Make face org-column determine weight, underline, etc. 

This used to be enforced despite the settings of or-column.
This commit is contained in:
Carsten Dominik 2008-05-01 10:06:15 +02:00
parent 3a94b2d07f
commit 98ef50b7a4
2 changed files with 6 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/org-colview.el
View File

@ -139,11 +139,8 @@ This is the compiled version of the format.")
(and (eq major-mode 'org-agenda-mode) (and (eq major-mode 'org-agenda-mode)
(get-text-property (point-at-bol) 'face)) (get-text-property (point-at-bol) 'face))
'default)) 'default))
(color (list :foreground (color (list :foreground (face-attribute ref-face :foreground)))
(face-attribute ref-face :foreground) (face (list color 'org-column ref-face))
:weight 'normal :strike-through nil
:underline nil))
(face (list color 'org-column level-face))
pom property ass width f string ov column val modval) pom property ass width f string ov column val modval)
;; Check if the entry is in another buffer. ;; Check if the entry is in another buffer.
(unless props (unless props

7
lisp/org-faces.el
View File

@ -150,11 +150,12 @@ color of the frame."
(defface org-column (defface org-column
(org-compatible-face nil (org-compatible-face nil
'((((class color) (min-colors 16) (background light)) '((((class color) (min-colors 16) (background light))
(:background "grey90")) (:background "grey90" :weight normal :strike-through nil :underline nil))
(((class color) (min-colors 16) (background dark)) (((class color) (min-colors 16) (background dark))
(:background "grey30")) (:background "grey30" :weight normal :strike-through nil :underline nil))
(((class color) (min-colors 8)) (((class color) (min-colors 8))
(:background "cyan" :foreground "black")) (:background "cyan" :foreground "black"
:weight normal :strike-through nil :underline nil))
(t (:inverse-video t)))) (t (:inverse-video t))))
"Face for column display of entry properties." "Face for column display of entry properties."
:group 'org-faces) :group 'org-faces)