Re: [Orgmode] Underlines and strike-through lines in column view

[Wanrong Lin]

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