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

ENH inform user of their idiocy when assigning a repeate to an EPG

This commit is contained in:
Nathan Dwarshuis 2022-05-09 22:28:06 -04:00
parent 7b98e2099a
commit 4fe5fe5b5d
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1458,9 +1458,12 @@ deadline (eg via epoch time) or if it has a repeater."
`((:lifetime (lambda (id) (org-x-dag-ns-is-leaf-p ,adjlist id))) `((:lifetime (lambda (id) (org-x-dag-ns-is-leaf-p ,adjlist id)))
(:endpoint)) (:endpoint))
(lambda (id this-h res) (lambda (id this-h res)
(-let (((&alist :lifetime l) res) (-let* (((&alist :lifetime l) res)
(d (org-x-dag-adjlist-id-planning adjlist :deadline id))) (d (org-x-dag-adjlist-id-planning adjlist :deadline id))
(ht-set this-h id (either :right `(:committed ,l :deadline ,d))) (ns (if (org-ml-timestamp-get-repeater d)
(either :left "EPG has deadline with repeater")
(either :right `(:committed ,l :deadline ,d)))))
(ht-set this-h id ns)
(org-x-dag-ht-add-links id ht-l :fulfilled l)))))) (org-x-dag-ht-add-links id ht-l :fulfilled l))))))
(defun org-x-dag-ht-get-maybe (htbl id key) (defun org-x-dag-ht-get-maybe (htbl id key)