From: Bernt Hansen <bernt@alumni.uwaterloo.ca>
To: emacs-orgmode@gnu.org
Subject: Intermittent Font Face problem
Date: Wed, 03 Oct 2007 13:30:26 -0400 [thread overview]
Message-ID: <87bqbg14y5.fsf@gollum.intra.norang.ca> (raw)
[-- Attachment #1: Type: text/plain, Size: 436 bytes --]
Hi Carsten,
I'm sure this bug is going to be a pain to track down... :(
I'm using multiple org files and I'm clocking time and jumping between
the files for hours. Then for no reason I can determine the colour
display of tasks breaks.
When it's broken I get black tasks alternating instead of all blue. I
created a test.org file which shows this problem and it looks like the
following image - task '* two' is black and not blue.
[-- Attachment #2: test.png --]
[-- Type: image/png, Size: 8676 bytes --]
[-- Attachment #3: Type: text/plain, Size: 7016 bytes --]
This seems to be right after a :PROPERTIES: ... :END: section with no
blank line. If I insert a blank line before '* two' the task goes blue
again - and if I delete it so there is no blank line between the
properties section and task it is black again.
The fun part of this is if I close down Emacs and start it again it
works perfectly - and all the tasks are coloured correctly. :-P
I noticed this first in my work org files and decided to try to
duplicate it in the test file for publication but it looks like it's
some transient error that gets triggered by something I'm doing during
the day. Restarting Emacs fixes it until I trigger it again. I'll try
to capture more information on this if possible.
Below is my my test.org file and my .emacs file with everything that is
not org-related stripped out.
Org-mode version 5.10b
GNU Emacs 22.1.1 (i486-pc-linux-gnu, X toolkit, Xaw3d scroll bars) of 2007-08-22 on raven, modified by Debian
Bernt
,----[ test.org ]
| #+STARTUP:
| * one
| ** TODO one-one
| SCHEDULED: <2007-09-12 Wed>
| - State "STARTED" [2007-09-12 Wed 12:58] \\
| some note here
| ** WAITING one-two
| SCHEDULED: <2007-09-12 Wed>
| - State "WAITING" [2007-09-12 Wed 12:58] \\
| This is waiting
| :PROPERTIES:
| :CATEGORY: test
| :ARCHIVE: %s_archive::
| :END:
| * two
| ** TODO two-one
| SCHEDULED: <2007-09-12 Wed>
| ** TODO two-two
| SCHEDULED: <2007-09-12 Wed>
|
|
| * TODO docs
`----
,----[ .emacs ]
| ;;;; .emacs: Emacs customizations
|
| ;;; XEmacs backwards compatibility file
| (setq user-init-file
| (expand-file-name "init.el"
| (expand-file-name ".xemacs" "~")))
| (setq custom-file
| (expand-file-name "custom.el"
| (expand-file-name ".xemacs" "~")))
|
| (load-file user-init-file)
| (load-file custom-file)
|
| ;; Appointments
| (display-time)
| (add-hook 'diary-hook 'appt-make-list)
| (diary 0)
|
| ;;
| ;; Enable color highligthing
| ;;
| (global-font-lock-mode t)
|
| ;;;
| ;;; Org Mode
| ;;;
| (add-to-list 'load-path (expand-file-name "~/git/org-mode"))
| (add-to-list 'auto-mode-alist '("\\.\\(org\\|org_archive\\)$" . org-mode))
| (require 'org-install)
|
| (setq org-log-done '(state)
| org-agenda-include-diary t
| org-cycle-include-plain-lists nil
| org-agenda-todo-list-sublevels t
| org-agenda-todo-ignore-deadlines nil
| org-agenda-todo-ignore-scheduled nil
| org-agenda-start-with-follow-mode nil
| org-use-tag-inheritance t
| org-tags-match-list-sublevels t
| org-show-hierarchy-above t
| org-show-following-heading t
| org-show-siblings nil
| org-export-with-sub-superscripts nil
| org-clock-out-when-done t
| org-use-fast-todo-selection t
| org-hide-leading-stars t)
|
| (setq org-todo-keywords
| '((sequence "TODO(t)" "NEXT(n)" "|" "DONE(d)")
| (sequence "WAITING(w@)" "APPT(a)" "|")
| (sequence "SOMEDAY(S)" "|" "CANCELLED(c)")
| (sequence "OPEN(O)" "|" "CLOSED(C)")
| (sequence "PROJECT(P)" "|" "PROJDONE(D)")))
|
| (setq org-tag-alist '(("@work" . ?w) ("@home" . ?h) ("@errand" . ?e) ("@phone" . ?p)
| (:startgroup . nil) ("sub10" . ?1) ("sub30" . ?3) ("sub60" . ?6) ("sub2h" . ?2) ("sub4h" . ?4) ("subday" . ?d) (:endgroup . nil)
| ("admin" . ?a) ("org" . ?o)))
|
| (setq org-agenda-sorting-strategy '((agenda priority-down time-up category-up)
| (todo category-keep priority-down)
| (tags category-keep priority-down)))
|
| (define-key global-map "\C-cl" 'org-store-link)
| (define-key global-map "\C-ca" 'org-agenda)
|
| ;;
| ;; Fix for org and Gnus...
| ;;
| (require 'planner-gnus)
| (defun gnus-summary-article-header (&optional number)
| (gnus-data-header (gnus-data-find (or number
| (gnus-summary-article-number)))))
| (defun mail-header-from (header) (aref header 2))
| (defun mail-header-id (header) (aref header 4))
| (defun mail-header-date (header) (aref header 3))
| (defun gnus-summary-article-subject (&optional number) (aref
| (gnus-data-header (assq (or number (gnus-summary-article-number))
| gnus-newsgroup-data)) 1))
|
| (defun bernt-org-todo ()
| (interactive)
| (org-narrow-to-subtree)
| (org-show-todo-tree nil)
| (widen))
|
| ;; Custom Key Bindings
| (global-set-key (kbd "<f5>") 'bernt-org-todo)
| (global-set-key (kbd "<f6>") 'org-toggle-archive-tag)
| (global-set-key (kbd "C-<f8>") (lambda () (interactive) (switch-to-buffer "todo.org")))
| (global-set-key (kbd "<f8>") 'org-cycle-agenda-files)
| (global-set-key (kbd "C-M-<f9>") 'org-narrow-to-subtree)
| (global-set-key (kbd "C-M-<f10>") 'widen)
| (global-set-key (kbd "<f12>") 'org-agenda)
| (global-set-key (kbd "C-M-r") 'remember)
|
| (require 'remember)
| ;
| (add-hook 'remember-mode-hook 'org-remember-apply-template)
| ;
| (custom-set-variables
| '(org-default-notes-file "~/org/notes.org")
| '(org-agenda-ndays 14)
| '(org-deadline-warning-days 14)
| '(org-agenda-show-all-dates t)
| '(org-agenda-skip-deadline-if-done t)
| '(org-agenda-skip-scheduled-if-done t)
| '(org-agenda-start-on-weekday nil)
| '(org-reverse-note-order t)
| '(org-fast-tag-selection-single-key t)
| '(org-remember-store-without-prompt t)
| '(org-remember-templates
| (quote ((116 "* TODO %?\n %u" "~/org/todo.org" "Tasks")
| (110 "* %u %?" "~/org/notes.org" "Notes"))))
| '(remember-annotation-functions (quote (org-remember-annotation)))
| '(remember-handler-functions (quote (org-remember-handler))))
|
| (setq org-todo-keyword-faces
| '(("TODO" . (:foreground "red" :weight bold))
| ("NEXT" . (:foreground "red" :weight bold))
| ("WAITING" . (:foreground "orange" :weight bold))
| ("APPT" . (:foreground "blue" :weight bold :underline t))
| ("DONE" . (:foreground "forest green" :weight bold))
| ("CLOSED" . (:foreground "forest green" :weight bold))
| ("PROJDONE" . (:foreground "forest green" :weight bold))
| ("CANCELLED" . (:foreground "forest green" :weight bold))))
|
| ;; Make appt aware of appointments from the agenda
| (defun bzg-org-agenda-to-appt ()
| "Activate appointments found in `org-agenda-files'."
| (interactive)
| (require 'org)
| (let* ((today (org-date-to-gregorian
| (time-to-days (current-time))))
| (files org-agenda-files) entries file)
| (while (setq file (pop files))
| (setq entries (append entries (org-agenda-get-day-entries
| file today :timestamp))))
| (setq entries (delq nil entries))
| (mapc (lambda(x)
| (let* ((event (org-trim (get-text-property 1 'txt x)))
| (time-of-day (get-text-property 1 'time-of-day x)) tod)
| (when time-of-day
| (setq tod (number-to-string time-of-day)
| tod (when (string-match
| "\\([0-9]\\{1,2\\}\\)\\([0-9]\\{2\\}\\)" tod)
| (concat (match-string 1 tod) ":"
| (match-string 2 tod))))
| (if tod (appt-add tod event))))) entries)))
|
| (org-agenda-list)
`----
[-- 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
reply other threads:[~2007-10-03 17:32 UTC|newest]
Thread overview: [no followups] expand[flat|nested] mbox.gz Atom feed
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
List information: https://www.orgmode.org/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=87bqbg14y5.fsf@gollum.intra.norang.ca \
--to=bernt@alumni.uwaterloo.ca \
--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 public inbox
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).