added error for future created timestamps

This commit is contained in:
ndwarshuis 2019-04-14 11:36:33 -04:00
parent d3b17e6079
commit 6908154d8f
1 changed files with 12 additions and 5 deletions

View File

@ -2468,11 +2468,18 @@ original org entry before executing BODY."
(:name "Missing Creation Timestamp" :pred (:name "Missing Creation Timestamp" :pred
,(nd/org-x-mk-super-agenda-pred ,(nd/org-x-mk-super-agenda-pred
;; TODO extend this to non-todoitems ;; TODO extend this to non-todoitems
(let ((keyword (org-x-is-todoitem-p))) (-when-let (kw (org-x-is-task-p))
(and keyword (and
(org-x-is-task-p) (not (member kw org-done-keywords))
(not (member keyword org-done-keywords)) (not (org-x-is-created-heading-p))))))
(not (org-x-is-created-heading-p)))))) (:name "Future Creation Timestamp" :pred
,(nd/org-x-mk-super-agenda-pred
;; TODO extend this to non-todoitems
(-when-let (kw (org-x-is-task-p))
(and
(not (member kw org-done-keywords))
(org-x-heading-compare-timestamp
#'org-x-is-created-heading-p 0 t)))))
(:discard (:anything t)))))))) (:discard (:anything t))))))))
("A" ("A"