From fe7d69bdea7d41b98e1d00cbac6bfe91481b93b4 Mon Sep 17 00:00:00 2001 From: Thomas Morgan Date: Fri, 23 Mar 2012 14:06:45 +0100 Subject: [PATCH] org-habit.el: Fix alignment of consistency graph in filtered agenda view. * org-habit.el (org-habit-insert-consistency-graphs): Fix alignment of consistency graph in filtered agenda view. TINYCHANGE --- lisp/org-habit.el | 13 +++++++++++-- 1 file changed, 11 insertions(+), 2 deletions(-) diff --git a/lisp/org-habit.el b/lisp/org-habit.el index be0efff40..d019f3aea 100644 --- a/lisp/org-habit.el +++ b/lisp/org-habit.el @@ -334,7 +334,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)) @@ -350,7 +357,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." -- 2.11.4.GIT