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

ENH change action network status to use child scheduled timestamps (kinda)

This commit is contained in:
Nathan Dwarshuis 2022-06-05 12:38:04 -04:00
parent 69237c720e
commit 4ae05ea339
1 changed files with 20 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1528,9 +1528,24 @@ deadline (eg via epoch time) or if it has a repeater."
(-some->> (org-x-dag-adjlist-id-hl-meta-prop adjlist :planning id) (-some->> (org-x-dag-adjlist-id-hl-meta-prop adjlist :planning id)
(org-ml-get-property which))) (org-ml-get-property which)))
(defun org-x-dag-adjlist-id-planning-datetime (adjlist which id) ;; (defun org-x-dag-adjlist-id-planning-datetime (adjlist which id)
(-some->> (org-x-dag-adjlist-id-planning adjlist which id) ;; (-some->> (org-x-dag-adjlist-id-planning adjlist which id)
(org-ml-timestamp-get-start-time))) ;; (org-ml-timestamp-get-start-time)))
(defun org-x-dag-adjlist-id-all-sched (adjlist id)
(-when-let (bs (-> (org-x-dag-adjlist-id-bs adjlist id)
(either-from-right nil)))
(pcase bs
(`(:sp-task :task-active ,d)
(-some-> (plist-get d :sched) (list)))
(`(:sp-subiter :si-task :task-active ,d)
(-some-> (plist-get d :sched) (list)))
(`(:sp-proj :proj-active ,d)
(plist-get d :child-scheds))
(`(:sp-subiter :si-proj :proj-active ,d)
(plist-get d :child-scheds))
(`(:sp-iter :iter-nonempty :nonempty-active ,d)
(plist-get d :child-scheds)))))
(defun org-x-dag-adjlist-id-todo (adjlist id) (defun org-x-dag-adjlist-id-todo (adjlist id)
(org-x-dag-adjlist-id-hl-meta-prop adjlist :todo id)) (org-x-dag-adjlist-id-hl-meta-prop adjlist :todo id))
@ -1744,8 +1759,8 @@ denoted by CUR-KEY with any errors that are found."
(put-scheduled-action-maybe (put-scheduled-action-maybe
(lambda (id committed-ids) (lambda (id committed-ids)
;; TODO what about repeaters? ;; TODO what about repeaters?
(-when-let (sched (org-x-dag-adjlist-id-planning-datetime ;; TODO check these to see if they are in the planning period
adjlist :scheduled id)) (-when-let (scheds (org-x-dag-adjlist-id-all-sched adjlist id))
(when (and (not (org-x-dag-adjlist-id-done-p adjlist id)) (when (and (not (org-x-dag-adjlist-id-done-p adjlist id))
committed-ids) committed-ids)
(->> q-committed (->> q-committed