From 3f27f0e839cc87e6230886d888a88d5e0888cbe9 Mon Sep 17 00:00:00 2001 From: ndwarshuis Date: Tue, 22 Feb 2022 18:40:46 -0500 Subject: [PATCH] ENH don't use parent tags for quarter --- local/lib/org-x/org-x-dag.el | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/local/lib/org-x/org-x-dag.el b/local/lib/org-x/org-x-dag.el index 35d3b42..62ae443 100644 --- a/local/lib/org-x/org-x-dag.el +++ b/local/lib/org-x/org-x-dag.el @@ -1983,8 +1983,7 @@ FUTURE-LIMIT in a list." (let ((alloc (-some->> (org-x-dag-get-local-property org-x-prop-allocate) (org-x-dag-allocation-fraction current-quarter))) (assignedp (org-x-dag-id->has-child-in-files-p id week-file)) - (tags (->> (org-x-dag-id->parents id) - (--mapcat (org-x-dag-id->tags id nil it)) + (tags (->> (org-x-dag-id->tags nil nil id) (--filter (= (elt it 0) org-x-tag-category-prefix))))) (-> (org-x-dag-format-tag-node "goal" tags id) (org-add-props nil