Commit 321292e0e514

Vincent Demeester <vincent@sbr.pm>
2017-01-16 09:03:29
Try to filter better custom agenda
Signed-off-by: Vincent Demeester <vincent@sbr.pm>
main
1 parent 7abdc52
Changed files (2)
.emacs.d
emacs.el
emacs.org
.emacs.d/emacs.el
@@ -1020,7 +1020,10 @@ With prefix argument, also display headlines without a TODO keyword."
                  (org-agenda-overriding-header "High-priority unfinished tasks:")))
           (agenda "" ((org-agenda-ndays 1)))
           (alltodo ""
-                   ((org-agenda-skip-function '(or (vde/org-skip-subtree-if-habit)
+                   ((org-agenda-skip-function '(or (org-agenda-skip-entry-if 'todo 'progress)
+                                                   (org-agenda-skip-entry-if 'todo 'review)
+                                                   (org-agenda-skip-entry-if 'todo 'done)
+                                                   (vde/org-skip-subtree-if-habit)
                                                    (vde/org-skip-subtree-if-priority ?A)
                                                    (org-agenda-skip-if nil '(scheduled deadline))))
                     (org-agenda-overriding-header "ALL normal priority tasks:"))))
.emacs.d/emacs.org
@@ -1982,7 +1982,10 @@
                       (org-agenda-overriding-header "High-priority unfinished tasks:")))
                (agenda "" ((org-agenda-ndays 1)))
                (alltodo ""
-                        ((org-agenda-skip-function '(or (vde/org-skip-subtree-if-habit)
+                        ((org-agenda-skip-function '(or (org-agenda-skip-entry-if 'todo 'progress)
+                                                        (org-agenda-skip-entry-if 'todo 'review)
+                                                        (org-agenda-skip-entry-if 'todo 'done)
+                                                        (vde/org-skip-subtree-if-habit)
                                                         (vde/org-skip-subtree-if-priority ?A)
                                                         (org-agenda-skip-if nil '(scheduled deadline))))
                          (org-agenda-overriding-header "ALL normal priority tasks:"))))