emacs-orgmode
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: [O] Filters lost after reviving buried, sticky agenda


From: Nick Dokos
Subject: Re: [O] Filters lost after reviving buried, sticky agenda
Date: Mon, 22 Jun 2015 09:27:24 -0400
User-agent: Gnus/5.130012 (Ma Gnus v0.12) Emacs/25.0.50 (gnu/linux)

Daimrod <address@hidden> writes:

> It doesn't work at startup when agenda hasn't been built yet. The
> following patch does seem to fix that. If it's ok, I can push it.
>
> From d2e8fef81585c249f33fa37260f6228709a67017 Mon Sep 17 00:00:00 2001
> From: =?UTF-8?q?Gr=C3=A9goire=20Jadi?= <address@hidden>
> Date: Fri, 12 Jun 2015 17:35:30 +0200
> Subject: [PATCH] lisp/org-agenda.el : Fix non-persistent filters when
>  refreshing sticky agenda
>
> * lisp/org-agenda.el (org-agenda-prepare): Fix non-persistent filters when 
> refreshing sticky agenda
>
> When a sticky agenda is buried, then reviving and refreshing, existing
> filters are ignored even when org-agenda-persistent-filter is `t'.
>
> Reported and fixed by Daniel Borchmann
> ---
>  lisp/org-agenda.el | 9 +++++----
>  1 file changed, 5 insertions(+), 4 deletions(-)
>
> diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el
> index f5d1022..3a1f5bc 100644
> --- a/lisp/org-agenda.el
> +++ b/lisp/org-agenda.el
> @@ -3642,10 +3642,11 @@ FILTER-ALIST is an alist of filters we need to apply 
> when
>  
>  (defun org-agenda-prepare (&optional name)
>    (let ((filter-alist (if org-agenda-persistent-filter
> -                       (list `(tag . ,org-agenda-tag-filter)
> -                             `(re . ,org-agenda-regexp-filter)
> -                             `(effort . ,org-agenda-effort-filter)
> -                             `(car . ,org-agenda-category-filter)))))
> +                       (with-current-buffer
> +                           (get-buffer-create org-agenda-buffer-name)
> +                         (list `(tag . ,org-agenda-tag-filter)
> +                               `(re . ,org-agenda-regexp-filter)
> +                               `(car . ,org-agenda-category-filter))))))
>      (if (org-agenda-use-sticky-p)
>       (progn
>         (put 'org-agenda-tag-filter :preset-filter nil)

What happened to the effort filter?

-- 
Nick




reply via email to

[Prev in Thread] Current Thread [Next in Thread]