Hi Carsten,
Attached is a minim emacs config file I made that can reproduce the
problem using "emacs -q -l minimal.el". The first line of the file add
the load-path to the org-mode package, so you may need to change it.
Also attached is a simple two-line org-file that you can open to see the
problem in column-view. My face settings are for light background.
Besides those strike-through lines and underlines, I also noticed that
there is a light gray vertical line in the "PRI" column. It has
something to do with my use of "box" face for org-column, but I wonder
whether that can get fixed together, as those strike-through and
underlines start right from that vertical line.
I am using the official GNU Emacs 22.2 on Windows XP.
Thanks a lot for looking into this.
Wanrong
Carsten Dominik wrote:
Hi Wanrong,
I have lost track a bit of the details, so in order to fix this, can
you please make me a test case with a minimal .emacs that contrains
your face definitions, and a small example file. Please make it work
so that
emacs -q -l minimal.emacs
will reproduce the problem. Please also include the exact version of
Emacs you are using.
Thanks.
- Carsten
On May 15, 2008, at 7:40 PM, Wanrong Lin wrote:
Feedback: I just tested again on org 6.03, and the "line noises" are
still there in the column view.
Wanrong
Wanrong Lin wrote:
Just a reminder: do you have any TODO faces with strike-through
lines? Remember the line noises will only happen when that is true.
Also, maybe there are some other check-ins after your patch that
fixed this. I only tried your patch, not the latest GIT revision. I
can just wait until next release to test again.
Thanks a lot.
Wanrong
;; org-config.el, config file for emacs org-mode
;; Time-stamp: <2008-05-16 10:42:58 linw>
;; Tested with emacs 22.1 and org-5.14
;;
;; Wanrong Lin
(setq my-local-extra-loadpath "c:/linw/.emacs-lisp/")
(add-to-list 'load-path (concat my-local-extra-loadpath "org/lisp"))
(add-to-list 'load-path (concat my-local-extra-loadpath "org/CONTRIB/lisp"))
(require 'org-install)
(add-to-list 'auto-mode-alist
'("\\.org\\'" . org-mode))
;; TODO keywords
(setq org-todo-keywords '((sequence "TODO(t)" "STARTED(s!)" "WAITING(w@/!)"
"MAYBE(m/!)" "DELEGATED(g@/!)" "DEFERRED(d!/!)" "HOLD(h!/!)" "|" "DONE(x)"
"CANCELED(c)")))
(custom-set-faces
;; custom-set-faces was added by Custom.
;; If you edit it by hand, you could mess it up, so be careful.
;; Your init file should contain only one such instance.
;; If there is more than one, they won't work right.
'(org-level-1 ((t (:weight bold)))) ;; bold
;; normal text
;; '(org-level-2 ((t nil))) ;; normal text
;; Use the following complicated format because the above line does not work
very well
;; with column view (in org-mode 5.12c)
'(org-level-2 ((((background light)) (:foreground "#000000")) ;; black (with
light background)
(t (:foreground "#F0F0F0")))) ;; white (with
dark background)
'(org-level-3 ((t (:foreground "#800000")))) ;; dark red
'(org-level-4 ((t (:foreground "#0000FF")))) ;; blue
'(org-level-5 ((t (:foreground "#006000")))) ;; dark green
'(org-level-6 ((t (:foreground "#B020A0")))) ;; purple
'(org-level-7 ((t (:foreground "#0060C0")))) ;; green blue
'(org-level-8 ((t (:foreground "#4030C0")))) ;; purple blue
'(org-agenda-structure ((t (:foreground "#0040C0" :weight bold)))) ;; dark
green blue
'(org-agenda-date ((t (:foreground "#800000" :weight bold)))) ;; dark red
'(org-agenda-date-weekend ((t (:foreground "#006000" :weight bold)))) ;; dark
green
'(org-scheduled-today ((t (:foreground "#0000FF")))) ;; bright blue
'(org-scheduled-previously ((t (:foreground "#181880")))) ;; dark green blue
'(org-upcoming-deadline ((t (:foreground "#C00000")))) ;; middle red
'(org-warning ((t (:foreground "#C00000" :weight bold)))) ;; bold middle red
'(org-todo ((t (:foreground "#B020A0" :weight bold)))) ;; purple
'(org-done ((t (:foreground "#008000" :strike-through t :weight bold)))) ;;
bold dark green
;; <TODO: use "background-color" in "default-frame-alist" instead of hard
coding it here>
`(org-hide ((t (:foreground "white")))) ;; same as background
'(org-table ((((class color) (min-colors 512)) (:foreground "#181880"
:background "#98D0D8"))
(t (:foreground "#181880")))) ;; dark green blue
'(org-drawer ((t (:foreground "#0040C0")))) ;; dark green blue
'(org-formula ((t (:foreground "#800000")))) ;; dark red
'(org-time-grid ((t (:foreground "#B8860B")))) ;; dark golden rod
;; '(org-link ((((class color) (background light)) (:foreground "#A020F0"
:underline t)))) ;; official purple
;; '(org-date ((((class color) (background light)) (:foreground "#A020F0"
:underline t)))) ;; official purple
'(org-link ((t (:foreground "#5050FF" :underline t)))) ;; light blue
'(org-date ((t (:foreground "#5050FF" :underline t)))) ;; light blue
'(org-tag ((t (:foreground "#008000" :weight bold))))
'(org-code ((t (:foreground "#505050")))) ;; gray
'(org-special-keyword ((t (:foreground "#205060")))) ;; dark green blue
'(org-column ((t (:background "gray80" :box (:line-width 1 :color "grey70")))))
)
;; pale org-todo face
(defface my-org-todo-faded '((t (:inherit org-todo :foreground "#7050B8")))
"Face for to-do items in a background/faded state.")
(setq org-todo-keyword-faces
'(
("STARTED" . (:inherit org-todo :slant italic :underline t))
("WAITING" . (:inherit org-todo :slant italic :underline t))
("DELEGATED" . (:inherit org-todo :slant italic :underline t))
("DEFERRED" . (:inherit my-org-todo-faded))
("HOLD" . (:inherit my-org-todo-faded))
("MAYBE" . (:inherit my-org-todo-faded))
("CANCELED" . (:inherit my-org-todo-faded :strike-through t))))
(defface my-org-ellipsis-face '((t (:underline t :weight bold)))
"Face folding ellipsis.")
(setq org-ellipsis 'my-org-ellipsis-face)
(setq org-hide-leading-stars t)
(provide 'org-config)
;; org-config.el ends here
* DONE Just a test
* STARTED Another test
_______________________________________________
Emacs-orgmode mailing list
Remember: use `Reply All' to send replies to the list.
Emacs-orgmode@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode
