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

ADD toplevel goal status function

This commit is contained in:
Nathan Dwarshuis 2022-03-13 11:02:07 -04:00
parent 2c9143c413
commit 2d7d83aff5
1 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2041,6 +2041,19 @@ return another status."
((or :complete :archivable) 2))))
(org-x-dag-endpoint-status id deadline :active))))))))))
(defun org-x-dag-toplevel-goal-status (id)
(org-x-dag-status-valid id :toplevel-goal))
(defun org-x-dag-id->toplevel-goal-status (id)
(-if-let (err (or (org-x-dag-id->illegal-link-error id)
(org-x-dag-id->created-error id)
(when (org-x-dag-id->metaprop :planning id)
"Toplevel goals cannot have planning elements.")
(unless (equal org-x-kw-todo (org-x-dag-id->todo id))
"Toplevel goals can only be TODO")))
(org-x-dag-status-error id general-error)
(org-x-dag-toplevel-goal-status id)))
(defun org-x-dag-id->file-level-status (id)
"Return file-level status of ID and its children.