added error for future created timestamps
This commit is contained in:
parent
d3b17e6079
commit
6908154d8f
15
conf.org
15
conf.org
|
@ -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"
|
||||||
|
|
Loading…
Reference in New Issue