emacs-orgmode@gnu.org archives
 help / color / mirror / code / Atom feed
* Bug: Consistency graph redisplay with links in filtered headings [7.8.03]
@ 2012-02-23 11:04 Thomas Morgan
  2012-03-23 13:42 ` Bastien
  0 siblings, 1 reply; 2+ messages in thread
From: Thomas Morgan @ 2012-02-23 11:04 UTC (permalink / raw)
  To: emacs-orgmode

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>
								 :STYLE:    habit
* TODO Another item
  SCHEDULED: <2012-02-16 Thu .+1d>
                                                                 :STYLE:    habit


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 <tlm@ziiuu.com>
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)))
       (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))
 	      (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."


Emacs  : GNU Emacs (i686-pc-linux-gnu, X toolkit, Xaw3d scroll bars)
 of 2012-02-09 on tyl
Package: Org-mode version 7.8.03

current state:
 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-hook '(org-remove-file-link-modifiers)
 org-blank-before-new-entry nil
 org-clock-out-hook '(org-clock-remove-empty-clock-drawer)
 org-export-first-hook '(org-beamer-initialize-open-trackers)
 org-mode-hook '(#[nil "\300\301\302\303\304$\207" [org-add-hook change-major-mode-hook org-show-block-all append local] 5]
 org-export-latex-final-hook '(org-beamer-amend-header org-beamer-fix-toc org-beamer-auto-fragile-frames
 org-export-latex-after-initial-vars-hook '(org-beamer-after-initial-vars)
 org-metadown-hook '(org-babel-pop-to-session-maybe)
 org-agenda-files '("./test-case.org")
 org-src-mode-hook '(org-src-babel-configure-edit-buffer org-src-mode-configure-edit-buffer)
 org-after-todo-state-change-hook '(org-clock-out-if-current)
 org-confirm-shell-link-function 'yes-or-no-p

^ permalink raw reply related	[flat|nested] 2+ messages in thread

end of thread, other threads:[~2012-03-23 13:41 UTC | newest]

Thread overview: 2+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2012-02-23 11:04 Bug: Consistency graph redisplay with links in filtered headings [7.8.03] Thomas Morgan
2012-03-23 13:42 ` Bastien

Code repositories for project(s) associated with this public inbox


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).