From 1e9abb121d5c4dfa8ad3b967e6f2f696de450738 Mon Sep 17 00:00:00 2001 From: ndwarshuis Date: Sun, 26 Sep 2021 21:46:08 -0400 Subject: [PATCH] FIX filter old meetings --- etc/conf.org | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) diff --git a/etc/conf.org b/etc/conf.org index e9e46cb..73bcba8 100644 --- a/etc/conf.org +++ b/etc/conf.org @@ -3133,14 +3133,15 @@ original function being advised and ARGS are the arguments." - org-x-tag-refile + org-x-tag-meeting) ((org-agenda-overriding-header "Meetings") + ;; seems like this should be in the agenda groups, but works fine here + (org-agenda-skip-function + (lambda () + (-when-let (ts (org-x--headline-get-property-epoch-time "SCHEDULED")) + (when (< ts (- (float-time) 10368000)) + (org-x-skip-heading))))) (org-agenda-sorting-strategy '(time-up scheduled-down)) (org-super-agenda-groups - `((:discard - (:pred (lambda (_) - (-if-let (ts (org-x--headline-get-property-epoch-time "SCHEDULED")) - (< ts (- (float-time) 10368000)) - nil)))) - ,(nd/org-def-super-agenda-pred "Open: Unscheduled Meetings" + `(,(nd/org-def-super-agenda-pred "Open: Unscheduled Meetings" (org-x-headline-is-open-unscheduled-meeting-p)) ,(nd/org-def-super-agenda-pred "Open: Invalid States" (org-x-headline-is-open-meeting-with-invalid-keyword-p))