ndwarshuis
/
emacs-config
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

FIX filter old meetings

This commit is contained in:
Nathan Dwarshuis 2021-09-26 21:46:08 -04:00
parent 6caa5a25f8
commit 1e9abb121d
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
etc/conf.org
View File

@ -3133,14 +3133,15 @@ original function being advised and ARGS are the arguments."
- org-x-tag-refile - org-x-tag-refile
+ org-x-tag-meeting) + org-x-tag-meeting)
((org-agenda-overriding-header "Meetings") ((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-agenda-sorting-strategy '(time-up scheduled-down))
(org-super-agenda-groups (org-super-agenda-groups
`((:discard `(,(nd/org-def-super-agenda-pred "Open: Unscheduled Meetings"
(: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"
(org-x-headline-is-open-unscheduled-meeting-p)) (org-x-headline-is-open-unscheduled-meeting-p))
,(nd/org-def-super-agenda-pred "Open: Invalid States" ,(nd/org-def-super-agenda-pred "Open: Invalid States"
(org-x-headline-is-open-meeting-with-invalid-keyword-p)) (org-x-headline-is-open-meeting-with-invalid-keyword-p))