ENH parse plannig in buffer scanner

This commit is contained in:
Nathan Dwarshuis 2022-03-02 17:47:10 -05:00
parent 54be0a1d69
commit 9e54e87b8d
1 changed files with 7 additions and 1 deletions

View File

@ -242,13 +242,14 @@ that file as it currently sits on disk.")
;; functions to construct nodes within state ;; functions to construct nodes within state
(defun org-x-dag-build-meta (file point level todo title tags parent) (defun org-x-dag-build-meta (file point level todo title tags planning parent)
(list :file file (list :file file
:point point :point point
:level level :level level
:todo todo :todo todo
:title title :title title
:tags tags :tags tags
:planning planning
:buffer-parent parent)) :buffer-parent parent))
;; state lookup functions ;; state lookup functions
@ -1180,6 +1181,10 @@ valid keyword or none of its parents have valid keywords."
(--mapcat (nth 2 it)) (--mapcat (nth 2 it))
(append this-tags org-file-tags)) (append this-tags org-file-tags))
this-tags) this-tags)
this-planning (save-excursion
(forward-line 1)
(when (looking-at org-planning-line-re)
(org-element-planning-parser nil)))
this-links (or (org-x-dag-get-parent-links) this-links (or (org-x-dag-get-parent-links)
(if this-parent-key (if this-parent-key
(-some->> (--first (nth 3 it) cur-path) (-some->> (--first (nth 3 it) cur-path)
@ -1191,6 +1196,7 @@ valid keyword or none of its parents have valid keywords."
this-todo this-todo
this-title this-title
all-tags all-tags
this-planning
this-parent-key)) this-parent-key))
(!cons (cons this-key this-meta) acc-meta) (!cons (cons this-key this-meta) acc-meta)
(!cons (cons this-key `(,(nth 1 this-parent) ,@this-links)) acc)) (!cons (cons this-key `(,(nth 1 this-parent) ,@this-links)) acc))