FIX actually propagate the ancestry of epgs

2022-04-26 22:41:04 -04:00 · 2022-04-26 22:41:04 -04:00 · 81fbf08561
parent ed3581ccb6
commit 81fbf08561
1 changed files with 4 additions and 1 deletions
--- a/local/lib/org-x/org-x-dag.el
+++ b/local/lib/org-x/org-x-dag.el
@ -1078,7 +1078,10 @@ used for optimization."
  (org-x-dag-bs-with-children-1
   tree
   ancestry
-   (lambda (_ a) a)
+   (lambda (node-meta parent-ancestry)
+     (-let (((&plist :canceled-parent-p c) parent-ancestry)
+            ((&plist :todo) node-meta))
+       (list :canceled-parent-p (or c (equal todo org-x-kw-canc)))))
   #'org-x-dag-bs-epg-outer
   #'org-x-dag-bs-epg-inner))