Habit lines containing links get mangled on redisplay when they are
filtered out of the agenda view.
Here's how to reproduce it:
1. Run `emacs -Q -l setup.el'.
2. Type `M-x org-agenda', then `a' for weekly agenda.
3. Type `C-u \ TAB random' to filter out items tagged `random'.
4. Move point to `Another item'.
5. Press `I' to clock in (which calls `org-habit-insert-consistency-graphs').
6. Type `/ /' to remove the filter.
Now there is a misaligned consistency graph on the first TODO item,
partly obscuring the link and the original consistency graph.
Here is `test-case.org':
* TODO [[file:setup.el][A link]]
:random:
SCHEDULED: <2012-02-16 Thu .+1d>
:PROPERTIES:
:STYLE:
habit
:END:
* TODO Another item
SCHEDULED: <2012-02-16 Thu .+1d>
:PROPERTIES:
:STYLE:
habit
:END:
And here is `setup.el':
(add-to-list 'load-path "/src/org-mode/lisp")
(require 'org)
(setq org-modules (cons 'org-habit org-modules))
(setq org-agenda-files '("./test-case.org"))
I'm not sure if this is the best way to go about it but this patch
solves the problem:
>From c7d5abcd886c17c25f2dab1a658e0c0accc9f211 Mon Sep 17 00:00:00 2001
From: Thomas Morgan
Date: Wed, 22 Feb 2012 10:12:19 +0100
Subject: [PATCH] * org-habit.el (org-habit-insert-consistency-graphs):
Disable filters temporarily; this helps with alignment if
there are links.
---
lisp/org-habit.el | 13 +++--
1 files changed, 11 insertions(+), 2 deletions(-)
diff --git a/lisp/org-habit.el b/lisp/org-habit.el
index 4274aae..6b47766 100644
--- a/lisp/org-habit.el
+++ b/lisp/org-habit.el
@@ -336,7 +336,14 @@ current time."
(let ((inhibit-read-only t) l c
(buffer-invisibility-spec '(org-link))
(moment (time-subtract (current-time)
- (list 0 (* 3600 org-extend-today-until) 0
+ (list 0 (* 3600 org-extend-today-until) 0)))
+ disabled-overlays)
+;; Disable filters; this helps with alignment if there are links.
+(mapc (lambda (ol)
+ (when (overlay-get ol 'invisible)
+ (overlay-put ol 'invisible nil)
+ (setq disabled-overlays (cons ol disabled-overlays
+ (overlays-in (point-min) (point-max)))
(save-excursion
(goto-char (if line (point-at-bol) (point-min)))
(while (not (eobp))
@@ -352,7 +359,9 @@ current time."
(time-subtract moment (days-to-time org-habit-preceding-days))
moment
(time-add moment (days-to-time org-habit-following-days))
- (forward-line)
+ (forward-line)))
+(mapc (lambda (ol) (overlay-put ol 'invisible t))
+ disabled-overlays)))
(defun org-habit-toggle-habits ()
"Toggle display of habits in an agenda buffer."
--
1.7.5.4
Emacs : GNU Emacs 24.0.93.1 (i686-pc-linux-gnu, X toolkit, Xaw3d scroll bars)
of 2012-02-09 on tyl
Package: Org-mode version 7.8.03
current state:
==
(setq
org-export-blocks '((src org-babel-exp-src-block nil) (comment
org-export-blocks-format-comment t) (ditaa org-export-blocks-format-ditaa nil)
(dot org-export-blocks-format-dot nil))
org-ctrl-c-ctrl-c-hook '(org-babel-hash-at-point
org-babel-execute-safely-maybe)
org-export-preprocess-before-selecting-backend-code-hook
'(org-beamer-select-beamer-code)
org-tab-first-hook '(org-hide-block-toggle-maybe
org-src-native-tab-command-maybe)
org-cycle-hook '(org-cycle-hide-archived-subtrees org-cycle-hide-drawers
org-cycle-show-empty-lines org-optimize-window-after-visibility-change)
org-agenda-before-write-hook '(org-agenda-add-entry-text)
org-speed-command-hook '(org-speed-command-default-hook
org-babel-speed-command-hook)
org-babel-pre-tangle-hook '(save-buffer)
org-occur-hook '(org-first-headline-recenter)
org-export-interblocks '((lob org-babel-exp-lob-one-liners) (src
org-babel-exp-inline-src-blocks))
org-metaup-hook '(org-babel-load-in-session-maybe)
org-confirm-elisp-link-function 'yes-or-no-p
org-export-latex-format-toc-function 'org-export-latex-format-toc-default
org-export-preprocess-before-normalizing-links-h