ADD error scanner

This commit is contained in:
Nathan Dwarshuis 2022-01-24 19:24:27 -05:00
parent 912d4278aa
commit 684b7c9fa2
1 changed files with 34 additions and 7 deletions

View File

@ -419,6 +419,11 @@ encountered will be returned."
;; The following are predicates that require the point to be above the ;; The following are predicates that require the point to be above the
;; headline in question ;; headline in question
(defun org-x-headline-has-timestamp (re want-time)
(let ((end (save-excursion (outline-next-heading))))
(-when-let (p (save-excursion (re-search-forward re end t)))
(if want-time (org-2ft (match-string 1)) p))))
(defun org-x-dag-headline-is-deadlined-p (want-time) (defun org-x-dag-headline-is-deadlined-p (want-time)
(org-x-headline-has-timestamp org-deadline-time-regexp want-time)) (org-x-headline-has-timestamp org-deadline-time-regexp want-time))
@ -428,14 +433,15 @@ encountered will be returned."
(defun org-x-dag-headline-is-closed-p (want-time) (defun org-x-dag-headline-is-closed-p (want-time)
(org-x-headline-has-timestamp org-closed-time-regexp want-time)) (org-x-headline-has-timestamp org-closed-time-regexp want-time))
(defun org-x-dag-headline-is-iterator-p () (defun org-x-dag-is-created-p (want-time)
(->> (org-x-dag-get-local-property org-x-prop-parent-type) (save-excursion
(equal org-x-prop-parent-type-iterator))) (-when-let (ts (org-x-dag-get-local-property org-x-prop-created))
(if want-time (org-2ft ts) t))))
(defun org-x-headline-has-timestamp (re want-time) (defun org-x-dag-headline-is-iterator-p ()
(let ((end (save-excursion (outline-next-heading)))) (save-excursion
(-when-let (p (save-excursion (re-search-forward re end t))) (->> (org-x-dag-get-local-property org-x-prop-parent-type)
(if want-time (org-2ft (match-string 1)) p)))) (equal org-x-prop-parent-type-iterator))))
(defconst org-x-headline-task-status-priorities (defconst org-x-headline-task-status-priorities
'((:archivable . -1) '((:archivable . -1)
@ -830,6 +836,27 @@ encountered will be returned."
(defun org-x-dag-scan-goals () (defun org-x-dag-scan-goals ()
(append (org-x-dag-scan-ltgs) (org-x-dag-scan-epgs))) (append (org-x-dag-scan-ltgs) (org-x-dag-scan-epgs)))
(defun org-x-dag-scan-errors ()
(cl-flet
((format-id
(category id)
(org-x-dag-with-key id
(-when-let (error-type
(if (org-x-dag-headline-is-iterator-p)
(unless (org-x-dag-get-local-property "ARCHIVE")
:missing-archive)
(-if-let (created (org-x-dag-is-created-p t))
(when (<= (float-time) created)
:future-created)
:missing-created)))
(-> (org-x-dag-format-tag-node category nil id)
(org-add-props nil
'x-error error-type))))))
(org-x-dag-with-files (org-x-dag-get-files)
(not (org-x-dag-id->is-done-p it))
(org-x-dag-with-key it
(list (format-id it-category it))))))
;;; AGENDA VIEWS ;;; AGENDA VIEWS
;; (defun org-x-dag-show-tasks (_match) ;; (defun org-x-dag-show-tasks (_match)