exot/.emacs.d
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Add some consistency checks for custom agenda views

Browse Source
This commit is contained in:
Daniel Borchmann 2022-12-10 11:34:19 +01:00
parent 2daf19249c
commit 3428a5fe55
No known key found for this signature in database
GPG Key ID: 784AA8DF0CCDF625
1 changed files with 24 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
init.el
View File

@ -1180,8 +1180,30 @@ respectively."
("C" "Checks" ("C" "Checks"
((tags "TODO=\"\"-HOLD-SOMEWHEN-DATE-PERIODIC-NOTE-NOP-TOPIC-TEMPLATE-GOAL" ((tags "TODO=\"\"-HOLD-SOMEWHEN-DATE-PERIODIC-NOTE-NOP-TOPIC-TEMPLATE-GOAL"
((org-agenda-overriding-header "Goals (i.e., complex tasks) not marked with GOAL"))) ((org-agenda-overriding-header "Goals (i.e., complex tasks) not marked with GOAL")))
;; TODO: add check that NOT_BEFORE is always before DEADLINE and before SCHEDULED
;; TODO: add check for items whose NOT_BEFORE is too far in the future ;; Note: checking whether any SCHEDULED is behind a
;; DEADLINE is not necessary, as items will appear on the
;; deadline view anyway.
;; Check whether any NOT_BEFORE entries are not actually timestaps
(org-ql-block '(and (property "NOT_BEFORE")
(not (string-match-p org-element--timestamp-regexp
(property "NOT_BEFORE"))))
((org-ql-block-header "Items whose NOT_BEFORE entry is not a timestamp")))
;; Check whether any NOT_BEFORE is behind a SCHEDULED
(org-ql-block '(and (property "NOT_BEFORE")
(scheduled)
(> (org-2ft (property "NOT_BEFORE"))
(org-2ft (scheduled))))
((org-ql-block-header "Items whose NOT_BEFORE value is after SCHEDULED")))
;; Check whether any NOT_BEFORE is beind their DEADLINE
(org-ql-block '(and (property "NOT_BEFORE") (deadline)
(> (org-2ft (property "NOT_BEFORE"))
(org-2ft (deadline))))
((org-ql-block-header "Items whose NOT_BEFORE value is after their DEADLINE")))
)) ))
("U" "Unsupervised (Waiting, Missed Appointments, Hold)" ("U" "Unsupervised (Waiting, Missed Appointments, Hold)"