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

ADD daily plan status function

This commit is contained in:
Nathan Dwarshuis 2022-03-13 11:47:10 -04:00
parent d337423455
commit 3349190dd3
1 changed files with 29 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2083,7 +2083,7 @@ return another status."
(org-x-dag-qtp-status id :active nil)))))) (org-x-dag-qtp-status id :active nil))))))
(defun org-x-dag-wkp-status (id code) (defun org-x-dag-wkp-status (id code)
(org-x-dag-status-valid id (list :code))) (org-x-dag-status-valid id (list :code code)))
(defun org-x-dag-id->wkp-status (id) (defun org-x-dag-id->wkp-status (id)
(let ((kw (org-x-dag-id->todo id)) (let ((kw (org-x-dag-id->todo id))
@ -2102,6 +2102,34 @@ return another status."
(org-x-dag-qtp-status id :complete) (org-x-dag-qtp-status id :complete)
(org-x-dag-qtp-status id :active))))) (org-x-dag-qtp-status id :active)))))
(defun org-x-dag-wkp-status (id code scheduled)
(org-x-dag-status-valid id (list :code code :scheduled scheduled)))
(defun org-x-dag-id->dlp-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))
"Daily plans cannot have children")
(when (org-x-dag-id->planning-timestamp :deadline id)
"Daily plans cannot be deadlined")))
(org-x-dag-status-error id general-error)
(if (member kw org-x-done-keywords)
(org-x-dag-wlp-status id :complete nil)
(let ((scheduled (org-x-dag-id->planning-datetime :scheduled id)))
(if (not (and scheduled (org-ml-time-is-long scheduled)))
(->> "Daily plans must have long scheduled timestamp"
(org-x-dag-status-error id))
;; ASSUME this won't fail (likewise for quarterly plans)
(let ((ddate (->> (org-x-dag-id->tags nil id)
(org-x-dag-daily-tags-to-date))))
(if (org-x-dag-datetime= ddate (-take 3 scheduled))
(org-x-dag-wkp-status id :active scheduled)
(->> "Daily plan scheduled timestamp at wrong date"
(org-x-dag-status-error id))))))))))
(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.