From: Wanrong Lin <wanrong.lin@gmail.com>
Cc: org-mode mailing list <emacs-orgmode@gnu.org>
Subject: Re: Underlines and strike-through lines in column view
Date: Fri, 16 May 2008 10:52:19 -0400 [thread overview]
Message-ID: <482D9FA3.8000800@gmail.com> (raw)
In-Reply-To: <91A9307E-412F-49B4-9A65-43CBAF26DD02@uva.nl>
[-- Attachment #1: Type: text/plain, Size: 1802 bytes --]
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
>>>
[-- Attachment #2: minimal.el --]
[-- Type: text/plain, Size: 4519 bytes --]
;; 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
[-- Attachment #3: test.org --]
[-- Type: text/plain, Size: 44 bytes --]
* DONE Just a test
* STARTED Another test
[-- Attachment #4: Type: text/plain, Size: 204 bytes --]
_______________________________________________
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
next prev parent reply other threads:[~2008-05-16 14:52 UTC|newest]
Thread overview: 15+ messages / expand[flat|nested] mbox.gz Atom feed top
2008-04-24 14:55 Underlines and strike-through lines in column view Wanrong Lin
2008-04-24 16:44 ` Jose Robins
2008-04-25 13:52 ` Carsten Dominik
2008-04-30 21:25 ` Wanrong Lin
2008-05-01 8:07 ` Carsten Dominik
2008-05-07 22:23 ` Wanrong Lin
2008-05-08 6:29 ` Carsten Dominik
2008-05-08 14:32 ` Wanrong Lin
2008-05-15 17:40 ` Wanrong Lin
2008-05-16 7:23 ` Carsten Dominik
2008-05-16 14:52 ` Wanrong Lin [this message]
2008-05-16 15:20 ` Carsten Dominik
2008-05-16 15:26 ` Carsten Dominik
2008-05-16 15:29 ` Carsten Dominik
2008-05-16 16:41 ` Wanrong Lin
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=482D9FA3.8000800@gmail.com \
--to=wanrong.lin@gmail.com \
--cc=emacs-orgmode@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.