ENH include all tags in agenda

This commit is contained in:
Nathan Dwarshuis 2022-04-26 22:59:41 -04:00
parent 7d7225cb00
commit 95250494c8
1 changed files with 1 additions and 3 deletions

View File

@ -2935,9 +2935,7 @@ FUTURE-LIMIT in a list."
(-when-let (pts (-some->> (org-x-dag-id->planning-timestamp which id) (-when-let (pts (-some->> (org-x-dag-id->planning-timestamp which id)
(org-x-dag-partition-timestamp))) (org-x-dag-partition-timestamp)))
(-when-let (ds (get-datetimes donep dt-fun pts)) (-when-let (ds (get-datetimes donep dt-fun pts))
(-let ((tags (if (eq (org-x-dag-id->group id) :daily) (-let ((tags (org-x-dag-id->tags id))
(org-x-dag-id->local-tags id)
(org-x-dag-id->tags id)))
((&plist :pos) pts)) ((&plist :pos) pts))
(--map (list :pos pos :datetime it :tags tags :id id) ds))))) (--map (list :pos pos :datetime it :tags tags :id id) ds)))))
(scheduled-datetimes (scheduled-datetimes