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

ADD qtp status function

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

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

@ -1990,6 +1990,8 @@ return another status."
(unless (org-x-dag-id->created-in-past-p id) (unless (org-x-dag-id->created-in-past-p id)
"Node must have creation timestamp in the past")) "Node must have creation timestamp in the past"))
;; TODO it might make more sense to make a 'status' independent of time, such
;; that as time changes, we don't need to constantly recalculate this
(defun org-x-dag-id->endpoint-status (id) (defun org-x-dag-id->endpoint-status (id)
(cl-flet* (cl-flet*
((to-valid-closed ((to-valid-closed
@ -2054,6 +2056,33 @@ return another status."
(org-x-dag-status-error id general-error) (org-x-dag-status-error id general-error)
(org-x-dag-toplevel-goal-status id))) (org-x-dag-toplevel-goal-status id)))
(defun org-x-dag-qtp-status (id code deadline)
(org-x-dag-status-valid id (list :code code :deadline)))
(defun org-x-dag-id->qtp-status (id)
(let ((kw (org-x-dag-id->todo id))
(closed (org-x-dag-id->planning-timestamp :closed id)))
(-if-let (err (or (org-x-dag-id->illegal-link-error id)
(org-x-dag-id->created-error id)
(org-x-dag-done-closed-error kw closed)
(unless (eq 4 (org-x-dag-id->level id))
"Quarterly plans cannot have children")
(when (org-x-dag-id->planning-timestamp :scheduled id)
"Quarterly plans cannot be scheduled")))
(org-x-dag-status-error id general-error)
(if (member kw org-x-done-keywords)
(org-x-dag-qtp-status id :complete)
(-if-let (deadline (org-x-dag-id->planning-datetime :deadline id))
(if (org-ml-time-is-long)
(org-x-dag-status-error id "Quarterly plan deadlines must be short")
(let ((qdate (->> (org-x-dag-id->tags nil id)
(org-x-dag-quarter-tags-to-date))))
(if (org-x-dag-datetime< deadline qdate)
(->> "Quarterly plan deadlines must start within/after quarter"
(org-x-dag-status-error id))
(org-x-dag-qtp-status id :active deadline))))
(org-x-dag-qtp-status id :active nil))))))
(defun org-x-dag-id->file-level-status (id) (defun org-x-dag-id->file-level-status (id)
"Return file-level status of ID and its children. "Return file-level status of ID and its children.