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

ENH update project/goal view

This commit is contained in:
Nathan Dwarshuis 2022-04-03 17:22:09 -04:00
parent 95faffb28d
commit 5b7bf448f2
1 changed files with 15 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
local/lib/org-x/org-x-dag.el
View File

@ -3184,17 +3184,6 @@ except it ignores inactive timestamps."
(--map (org-add-props (copy-seq item) nil 'x-goal-id it) ids)
(list (org-add-props item nil 'x-goal-id nil))))
(defun org-x-dag-scan-projects-with-goals ()
(cl-flet
((split-parent-goals
(s)
(let ((id (get-text-property 1 'x-id s)))
(-if-let (goal-ids (org-x-dag-id->linked-parents id))
(org-x-dag--item-add-goal-ids s goal-ids)))))
(->> (org-x-dag-scan-projects)
(--filter (org-x-dag-id->is-toplevel-p (get-text-property 1 'x-id it)))
(-mapcat #'split-parent-goals))))
(defun org-x-dag-scan-iterators ()
(org-x-dag-with-action-ids
(either-from-right (org-x-dag-id->bs it) nil
@ -3262,6 +3251,21 @@ except it ignores inactive timestamps."
'x-status :active)
(org-x-dag--item-add-goal-ids goal-ids)))))))))
(defun org-x-dag-scan-projects-with-goals ()
(org-x-dag-with-action-ids
(either-from-right* (org-x-dag-id->bs it) nil
(lambda (bs)
(pcase bs
(`(:sp-proj . ,s)
(unless (eq (car s) :proj-complete)
(let ((goal-ids (-when-let (ns (org-x-dag-id->ns it))
(either-from-right ns nil
(unless (plist-get it :survivalp)
(plist-get it :committed)))))
(tags (org-x-dag-id->tags nil it)))
(-> (org-x-dag-format-tag-node tags it)
(org-x-dag--item-add-goal-ids goal-ids))))))))))
(defun org-x-dag-scan-survival-tasks ()
(cl-flet
((format-key