ENH parse plannig in buffer scanner
This commit is contained in:
parent
54be0a1d69
commit
9e54e87b8d
|
@ -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))
|
||||||
|
|
Loading…
Reference in New Issue