ndwarshuis
/
emacs-config
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

ADD a bunch of id-> functions

This commit is contained in:
Nathan Dwarshuis 2022-02-26 13:18:25 -05:00
parent 6dee558ef9
commit 0a635f65e1
1 changed files with 146 additions and 73 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

219
local/lib/org-x/org-x-dag.el
View File

@ -230,6 +230,8 @@ that file as it currently sits on disk.")
;; all functions with `org-x-dag->' or `org-x-dag-id->' depend on the value of ;; all functions with `org-x-dag->' or `org-x-dag-id->' depend on the value of
;; `org-x-dag' ;; `org-x-dag'
;; global state slot lookup
(defun org-x-dag->metatable () (defun org-x-dag->metatable ()
(plist-get org-x-dag :id->meta)) (plist-get org-x-dag :id->meta))
@ -239,6 +241,8 @@ that file as it currently sits on disk.")
(defun org-x-dag->adjacency-list () (defun org-x-dag->adjacency-list ()
(dag-get-adjacency-list (org-x-dag->dag))) (dag-get-adjacency-list (org-x-dag->dag)))
;; id properties
(defun org-x-dag-id->metaprop (id prop) (defun org-x-dag-id->metaprop (id prop)
(-> (org-x-dag->metatable) (-> (org-x-dag->metatable)
(ht-get id) (ht-get id)
@ -264,21 +268,15 @@ that file as it currently sits on disk.")
"Return local tags for ID." "Return local tags for ID."
(org-x-dag-id->metaprop id :tags)) (org-x-dag-id->metaprop id :tags))
(defun org-x-dag-id->is-done-p (id) (defun org-x-dag-id->tags (parent-tags id)
"Return t if ID has done keywords." "Return all tags for ID.
(member (org-x-dag-id->todo id) org-x-done-keywords))
(defun org-x-dag-id->is-floating-p (id) If PARENT-TAGS is nil, return all inherited tags based on the
(-> (plist-get org-x-dag :dag) parents of ID. If PARENT-TAGS is a list of strings, these are
(dag-get-floating-nodes) used as the parent tags instead of looking them up.
(ht-get id)))
(defun org-x-dag-id->is-toplevel-p (id) Returned tags will be ordered from left to right as lowest to
(or (not (org-x-dag-id->metaprop id :buffer-parent)) highest in the tree."
;; TODO pretty sure this will never be used
(org-x-dag-id->is-floating-p id)))
(defun org-x-dag-id->tags (inherit? init id)
(cl-labels (cl-labels
((ascend ((ascend
(id tags) (id tags)
@ -290,63 +288,136 @@ that file as it currently sits on disk.")
(append tags) (append tags)
(ascend parent)) (ascend parent))
tags))) tags)))
;; likewise, init tags have the lowest precedence (the likely use case for (let ((local-tags (org-x-dag-id->local-tags id)))
;; this argument is for file tags) `(,@local-tags ,@(or parent-tags (ascend id nil))))))
(let ((local-tags (org-x-dag-id->local-tags id))
(parent-tags (and inherit? (ascend id nil))))
(append local-tags parent-tags init))))
(defun org-x-dag-id->bucket (inherit? id) (defun org-x-dag-id->bucket (parent-tags id)
(-some->> (org-x-dag-id->tags inherit? nil id) (-some->> (org-x-dag-id->tags parent-tags id)
(--find (= (elt it 0) org-x-tag-category-prefix)) (--find (= (elt it 0) org-x-tag-category-prefix))
(s-chop-prefix "_") (s-chop-prefix "_")
(intern))) (intern)))
(defun org-x-dag-id->link (id) (defun org-x-dag-id->link (id)
"Return the link node for ID."
(org-x-dag-with-id-in-file id (org-x-dag-with-id-in-file id
(let ((desc (org-x-dag-id->title id))) (let ((desc (org-x-dag-id->title id)))
(->> (org-ml-build-secondary-string! desc) (->> (org-ml-build-secondary-string! desc)
(apply #'org-ml-build-link id :type "id"))))) (apply #'org-ml-build-link id :type "id")))))
(defun org-x-dag-id->link-item (id) (defun org-x-dag-id->link-item (id)
"Return the link node of ID wrapped in an item node."
(->> (org-x-dag-id->link id) (->> (org-x-dag-id->link id)
(org-ml-build-paragraph) (org-ml-build-paragraph)
(org-ml-build-item))) (org-ml-build-item)))
;; id relationships
(defun org-x-dag-id->parents (id) (defun org-x-dag-id->parents (id)
"Return parent nodes of ID."
(->> (plist-get org-x-dag :dag) (->> (plist-get org-x-dag :dag)
(dag-get-parents id))) (dag-get-parents id)))
(defun org-x-dag-id->split-parents (id)
(let ((ps (org-x-dag-id->parents id)))
(if (org-x-dag-id->is-toplevel-p id)
`(nil ,ps)
(let ((f (org-x-dag-id->file id)))
;; ASSUME there will only be one headline parent (not sure how that
;; wouldn't be true, but this algorithm doesn't care or know)
(-if-let (i (--find-index (equal f (org-x-dag-id->file it)) ps))
`(,(nth i ps) ,(-remove-at i ps))
`(nil ,ps))))))
(defun org-x-dag-id->headline-parent (id)
(car (org-x-dag-id->split-parents id)))
(defun org-x-dag-id->foreign-parents (id)
(cadr (org-x-dag-id->split-parents id)))
(defun org-x-dag-id->children (id) (defun org-x-dag-id->children (id)
"Return child nodes of ID."
(->> (plist-get org-x-dag :dag) (->> (plist-get org-x-dag :dag)
(dag-get-children id))) (dag-get-children id)))
(defun org-x-dag-id->headline-children (id) (defun org-x-dag-id->buffer-parent (id)
(->> (org-x-dag-id->children id) "Return the buffer parent id (if any) of ID."
(--filter (equal (org-x-dag-id->metaprop it :buffer-parent) id)))) (org-x-dag-id->metaprop id :buffer-parent))
(defun org-x-dag-id->all-headline-children (id) (defun org-x-dag-id->split-parents (id)
(->> (org-x-dag-id->headline-children id) "Return the buffer and non-buffer parents of ID.
(-mapcat #'org-x-dag-id->all-headline-children)
Return value is a list like (BUFFER NON-BUFFER)."
(let ((parents (org-x-dag-id->parents id)))
(-if-let (buffer-parent (org-x-dag-id->buffer-parent id))
`(,buffer-parent ,@(-remove-item buffer-parent parents))
`(nil ,@parents))))
(defun org-x-dag-id->foreign-parents (id)
"Return non-buffer (foreign) parents of ID."
(cadr (org-x-dag-id->split-parents id)))
(defun org-x-dag-id->split-children (id)
"Return buffer and non-buffer children of ID.
Return value is a list like (BUFFER NON-BUFFER)."
(->> (org-x-dag-id->children id)
(--separate (equal (org-x-dag-id->buffer-parent it) id))))
(defun org-x-dag-id->buffer-children (id)
"Return children of ID that are in the same buffer."
(car (org-x-dag-id->split-children id)))
(defun org-x-dag-id->foreign-children (id)
"Return children of ID that are not in the same buffer."
(cadr (org-x-dag-id->split-children id)))
(defmacro org-x-dag-id->with-split-parents (id &rest body)
(declare (indent 1))
`(let ((it-buffer it-foreign) (org-x-dag-id->split-parents ,id))
,@body))
(defmacro org-x-dag-id->with-split-children (id &rest body)
(declare (indent 1))
`(let ((it-buffer it-foreign) (org-x-dag-id->split-children ,id))
,@body))
(defun org-x-dag-id->group-parent-links-by-file-p (id)
"Return parent links for ID grouped by file."
(org-x-dag-id->with-split-parents id
(-group-by #'org-x-dag-id->file it-foreign)))
(defun org-x-dag-id->group-child-links-by-file-p (id)
"Return child links for ID grouped by file."
(org-x-dag-id->with-split-children id
(-group-by #'org-x-dag-id->file it-foreign)))
(defun org-x-dag-id->all-buffer-children (id)
"Return nested children of ID that are in the same buffer."
(->> (org-x-dag-id->buffer-children id)
(-mapcat #'org-x-dag-id->all-buffer-children)
(cons id))) (cons id)))
;; id predicates/identities
(defun org-x-dag-id->is-done-p (id)
"Return t if ID has done keywords."
(member (org-x-dag-id->todo id) org-x-done-keywords))
(defun org-x-dag-id->is-floating-p (id)
"Return t if ID is floating."
(-> (plist-get org-x-dag :dag)
(dag-get-floating-nodes)
(ht-get id)))
(defun org-x-dag-id->is-toplevel-p (id)
"Return t if ID is at the top of its buffer."
(not (org-x-dag-id->buffer-parent id)))
(defun org-x-dag-id->parent-link-in-file-p (file id)
"Return t if ID has a parent link in FILE."
(org-x-dag-id->with-split-parents id
(--any-p (equal file (org-x-dag-id->file it)) it-foreign)))
(defun org-x-dag-id->child-link-in-file-p (file id)
"Return t if ID has a child link in FILE."
(org-x-dag-id->with-split-children id
(--any-p (equal file (org-x-dag-id->file it)) it-foreign)))
(defun org-x-dag-id->parent-link-in-files-p (files id)
"Return t if ID has a parent link in any of FILES."
(org-x-dag-id->with-split-parents id
(--any-p (member (org-x-dag-id->file it) files) it-foreign)))
(defun org-x-dag-id->child-link-in-files-p (files id)
"Return t if ID has a child link in any of FILES."
(org-x-dag-id->with-split-children id
(--any-p (member (org-x-dag-id->file it) files) it-foreign)))
;; files to ids
(defun org-x-dag-files->ids (files) (defun org-x-dag-files->ids (files)
(let ((filemap (plist-get org-x-dag :file->ids))) (let ((filemap (plist-get org-x-dag :file->ids)))
(--mapcat (ht-get filemap it) files))) (--mapcat (ht-get filemap it) files)))
@ -360,6 +431,9 @@ that file as it currently sits on disk.")
(defun org-x-dag->ltg-ids () (defun org-x-dag->ltg-ids ()
(org-x-dag-file->ids (org-x-get-lifetime-goal-file))) (org-x-dag-file->ids (org-x-get-lifetime-goal-file)))
(defun org-x-dag->svg-ids ()
(org-x-dag-file->ids (org-x-get-survival-goal-file)))
(defun org-x-dag->current-date () (defun org-x-dag->current-date ()
(plist-get org-x-dag :current-date)) (plist-get org-x-dag :current-date))
@ -370,7 +444,7 @@ that file as it currently sits on disk.")
;; (org-x-dag-file->ids (org-x-get-weekly-plan-file))) ;; (org-x-dag-file->ids (org-x-get-weekly-plan-file)))
(defun org-x-dag-filter-ids-tags (tags ids) (defun org-x-dag-filter-ids-tags (tags ids)
(--filter (-intersection (org-x-dag-id->tags t nil it) tags) ids)) (--filter (-intersection (org-x-dag-id->tags nil it) tags) ids))
(defun org-x-dag-date-to-quarter-tags (date) (defun org-x-dag-date-to-quarter-tags (date)
(-let (((y q) (org-x-dag-date-to-quarter date))) (-let (((y q) (org-x-dag-date-to-quarter date)))
@ -481,19 +555,19 @@ that file as it currently sits on disk.")
;; (--filter (-intersection (org-x-dag-id->children it) dlp-ids))))) ;; (--filter (-intersection (org-x-dag-id->children it) dlp-ids)))))
(defun org-x-dag->leaf-epg-ids () (defun org-x-dag->leaf-epg-ids ()
(-remove #'org-x-dag-id->headline-children (org-x-dag->epg-ids))) (-remove #'org-x-dag-id->buffer-children (org-x-dag->epg-ids)))
(defun org-x-dag->leaf-ltg-ids () (defun org-x-dag->leaf-ltg-ids ()
(let ((epg-file (org-x-get-endpoint-goal-file))) (let ((epg-file (org-x-get-endpoint-goal-file)))
(->> (org-x-dag->ltg-ids) (->> (org-x-dag->ltg-ids)
(-remove #'org-x-dag-id->headline-children) (-remove #'org-x-dag-id->buffer-children)
(--remove (equal (org-x-dag-id->file it) epg-file))))) (--remove (equal (org-x-dag-id->file it) epg-file)))))
(defun org-x-dag-goal-count-tasks (id) (defun org-x-dag-goal-count-tasks (id)
(->> (org-x-dag-id->children id) (->> (org-x-dag-id->children id)
(-mapcat #'org-x-dag-id->all-headline-children) (-mapcat #'org-x-dag-id->all-buffer-children)
;; TODO this isn't very efficient, looking up children twice ;; TODO this isn't very efficient, looking up children twice
(-remove #'org-x-dag-id->headline-children) (-remove #'org-x-dag-id->buffer-children)
(length))) (length)))
(defun org-x-dag-rank-leaf-goals (quarter ids) (defun org-x-dag-rank-leaf-goals (quarter ids)
@ -1544,8 +1618,8 @@ FUTURE-LIMIT in a list."
`(cl-flet `(cl-flet
((get-project-or-task-status ((get-project-or-task-status
(key) (key)
(-if-let (children (org-x-dag-id->headline-children key)) (-if-let (children (org-x-dag-id->buffer-children key))
(let* ((tags (org-x-dag-id->tags nil ,parent-tags key)) (let* ((tags (org-x-dag-id->tags ,parent-tags key))
(child-results (funcall ,callback key tags children)) (child-results (funcall ,callback key tags children))
;; ASSUME the car of the results will be the toplevel ;; ASSUME the car of the results will be the toplevel
;; key/status pair for this (sub)project ;; key/status pair for this (sub)project
@ -1664,12 +1738,12 @@ FUTURE-LIMIT in a list."
(cl-flet (cl-flet
((get-status ((get-status
(key) (key)
(-if-let (children (org-x-dag-id->headline-children key)) (-if-let (children (org-x-dag-id->buffer-children key))
(->> children (->> children
(org-x-dag-headline-get-iterator-project-status key) (org-x-dag-headline-get-iterator-project-status key)
(car)) (car))
(org-x-dag-headline-get-iterator-task-status key)))) (org-x-dag-headline-get-iterator-task-status key))))
(->> (org-x-dag-id->headline-children key) (->> (org-x-dag-id->buffer-children key)
(-map #'get-status) (-map #'get-status)
(org-x-dag-get-max-index org-x--iter-statuscodes)))) (org-x-dag-get-max-index org-x--iter-statuscodes))))
@ -1711,12 +1785,12 @@ FUTURE-LIMIT in a list."
'x-priority priority)))))) 'x-priority priority))))))
(format-key (format-key
(cat key) (cat key)
(let ((tags (org-x-dag-id->tags t nil key))) (let ((tags (org-x-dag-id->tags nil key)))
;; TODO don't hardcode these things ;; TODO don't hardcode these things
(org-x-dag-with-id key (org-x-dag-with-id key
(unless (or (member org-x-tag-incubated tags) (unless (or (member org-x-tag-incubated tags)
(org-x-dag-headline-is-iterator-p)) (org-x-dag-headline-is-iterator-p))
(-some->> (org-x-dag-id->headline-children key) (-some->> (org-x-dag-id->buffer-children key)
(org-x-dag-headline-get-project-status key tags) (org-x-dag-headline-get-project-status key tags)
(--map (format-result cat it)))))))) (--map (format-result cat it))))))))
(org-x-dag-with-files (org-x-get-action-files) (org-x-dag-with-files (org-x-get-action-files)
@ -1747,7 +1821,7 @@ FUTURE-LIMIT in a list."
'x-status status)))))) 'x-status status))))))
(org-x-dag-with-files (org-x-get-action-files) (org-x-dag-with-files (org-x-get-action-files)
(org-x-dag-id->is-toplevel-p it) (org-x-dag-id->is-toplevel-p it)
(let ((tags (org-x-dag-id->tags t nil it))) (let ((tags (org-x-dag-id->tags nil it)))
(unless (member org-x-tag-incubated tags) (unless (member org-x-tag-incubated tags)
(org-x-dag-with-id it (org-x-dag-with-id it
(when (org-x-dag-headline-is-iterator-p) (when (org-x-dag-headline-is-iterator-p)
@ -1762,10 +1836,10 @@ FUTURE-LIMIT in a list."
(->> (--remove (member (org-x-dag-id->todo it) (->> (--remove (member (org-x-dag-id->todo it)
(list org-x-kw-canc org-x-kw-hold)) (list org-x-kw-canc org-x-kw-hold))
children) children)
(--mapcat (-if-let (cs (org-x-dag-id->headline-children it)) (--mapcat (-if-let (cs (org-x-dag-id->buffer-children it))
(descend cs) (descend cs)
(list it)))))) (list it))))))
(-some-> (org-x-dag-id->headline-children id) (-some-> (org-x-dag-id->buffer-children id)
(descend)))) (descend))))
;; TODO this includes tasks underneath cancelled headlines ;; TODO this includes tasks underneath cancelled headlines
@ -1773,7 +1847,7 @@ FUTURE-LIMIT in a list."
(cl-flet (cl-flet
((format-key ((format-key
(category is-standalone key) (category is-standalone key)
(let ((tags (org-x-dag-id->tags t nil key))) (let ((tags (org-x-dag-id->tags nil key)))
;; filter out incubators ;; filter out incubators
(org-x-dag-with-id key (org-x-dag-with-id key
(unless (or (member org-x-tag-incubated tags) (unless (or (member org-x-tag-incubated tags)
@ -1797,7 +1871,7 @@ FUTURE-LIMIT in a list."
(cl-flet (cl-flet
((format-key ((format-key
(category is-standalone key) (category is-standalone key)
(let ((tags (org-x-dag-id->tags t nil key))) (let ((tags (org-x-dag-id->tags nil key)))
;; filter out incubators ;; filter out incubators
(org-x-dag-with-id key (org-x-dag-with-id key
(unless (member org-x-tag-incubated tags) (unless (member org-x-tag-incubated tags)
@ -1835,12 +1909,12 @@ FUTURE-LIMIT in a list."
(cl-flet (cl-flet
((format-key ((format-key
(category key) (category key)
(let ((tags (org-x-dag-id->tags t nil key))) (let ((tags (org-x-dag-id->tags nil key)))
(when (member org-x-tag-incubated tags) (when (member org-x-tag-incubated tags)
(org-x-dag-with-id key (org-x-dag-with-id key
(let* ((sch (org-x-dag-headline-is-scheduled-p t)) (let* ((sch (org-x-dag-headline-is-scheduled-p t))
(dead (org-x-dag-headline-is-deadlined-p t)) (dead (org-x-dag-headline-is-deadlined-p t))
(is-project (org-x-dag-id->headline-children key))) (is-project (org-x-dag-id->buffer-children key)))
(-> (org-x-dag-format-tag-node category tags key) (-> (org-x-dag-format-tag-node category tags key)
(org-add-props nil (org-add-props nil
'x-project-p is-project 'x-project-p is-project
@ -1855,11 +1929,11 @@ FUTURE-LIMIT in a list."
(cl-flet (cl-flet
((format-key ((format-key
(category key) (category key)
(let ((tags (org-x-dag-id->tags t nil key))) (let ((tags (org-x-dag-id->tags nil key)))
(unless (member org-x-tag-incubated tags) (unless (member org-x-tag-incubated tags)
(org-x-dag-with-id key (org-x-dag-with-id key
(-let (((is-archivable is-project) (-let (((is-archivable is-project)
(-if-let (children (org-x-dag-id->headline-children key)) (-if-let (children (org-x-dag-id->buffer-children key))
(-> (org-x-dag-headline-get-project-status key tags children) (-> (org-x-dag-headline-get-project-status key tags children)
(alist-get org-x-project-status-priorities) (alist-get org-x-project-status-priorities)
(eq :archivable) (eq :archivable)
@ -1876,7 +1950,7 @@ FUTURE-LIMIT in a list."
(org-x-dag-id->is-toplevel-p it) (org-x-dag-id->is-toplevel-p it)
(org-x-dag-with-id it (org-x-dag-with-id it
(if (org-x-dag-headline-is-iterator-p) (if (org-x-dag-headline-is-iterator-p)
(->> (org-x-dag-id->headline-children it) (->> (org-x-dag-id->buffer-children it)
(--map (format-key it-category it))) (--map (format-key it-category it)))
(list (format-key it-category it))))))) (list (format-key it-category it)))))))
@ -1891,7 +1965,7 @@ FUTURE-LIMIT in a list."
(has-children (->> (org-x-dag-id->children id) (has-children (->> (org-x-dag-id->children id)
(--any-p (member (org-x-dag-id->file it) (--any-p (member (org-x-dag-id->file it)
child-files)))) child-files))))
(tags (org-x-dag-id->tags t nil id))) (tags (org-x-dag-id->tags nil id)))
(-> (org-x-dag-format-tag-node category tags id) (-> (org-x-dag-format-tag-node category tags id)
(org-add-props nil (org-add-props nil
'x-goal-status (list :type 'ltg 'x-goal-status (list :type 'ltg
@ -1918,7 +1992,7 @@ FUTURE-LIMIT in a list."
(has-parents (->> (org-x-dag-id->parents id) (has-parents (->> (org-x-dag-id->parents id)
(--any-p (member (org-x-dag-id->file it) (--any-p (member (org-x-dag-id->file it)
parent-files)))) parent-files))))
(tags (org-x-dag-id->tags t nil id))) (tags (org-x-dag-id->tags nil id)))
(-> (org-x-dag-format-tag-node category tags id) (-> (org-x-dag-format-tag-node category tags id)
(org-add-props nil (org-add-props nil
'x-goal-status (list :type 'epg 'x-goal-status (list :type 'epg
@ -1959,7 +2033,7 @@ FUTURE-LIMIT in a list."
((format-timestamps ((format-timestamps
(todayp sel-date cat id pts get-datetimes-fun format-datetime-fun) (todayp sel-date cat id pts get-datetimes-fun format-datetime-fun)
(-when-let (datetimes (funcall get-datetimes-fun sel-date pts)) (-when-let (datetimes (funcall get-datetimes-fun sel-date pts))
(let ((tags (org-x-dag-id->tags t nil id))) (let ((tags (org-x-dag-id->tags nil id)))
(unless (member org-x-tag-incubated tags) (unless (member org-x-tag-incubated tags)
(-let (((&plist :pos) pts) (-let (((&plist :pos) pts)
(donep (org-x-dag-id->is-done-p id))) (donep (org-x-dag-id->is-done-p id)))
@ -1997,9 +2071,8 @@ FUTURE-LIMIT in a list."
(let ((alloc (-some->> (org-x-dag-get-local-property org-x-prop-allocate) (let ((alloc (-some->> (org-x-dag-get-local-property org-x-prop-allocate)
(org-x-dag-allocation-fraction current-quarter))) (org-x-dag-allocation-fraction current-quarter)))
(assignedp (org-x-dag-id->has-child-in-files-p id week-file)) (assignedp (org-x-dag-id->has-child-in-files-p id week-file))
(tags (->> (org-x-dag-id->tags nil nil id) (bucket (org-x-dag-id->bucket nil id)))
(--filter (= (elt it 0) org-x-tag-category-prefix))))) (-> (org-x-dag-format-tag-node "goal" (list bucket) id)
(-> (org-x-dag-format-tag-node "goal" tags id)
(org-add-props nil (org-add-props nil
'x-assignedp assignedp 'x-assignedp assignedp
;; override face ;; override face
@ -2017,7 +2090,7 @@ FUTURE-LIMIT in a list."
;; TODO this assigned thing needs to be limited in scope to the ;; TODO this assigned thing needs to be limited in scope to the
; the current ids of the time period in question ; the current ids of the time period in question
(let* ((assignedp (org-x-dag-id->has-child-in-files-p id daily-file)) (let* ((assignedp (org-x-dag-id->has-child-in-files-p id daily-file))
(day (-some->> (org-x-dag-id->tags t nil id) (day (-some->> (org-x-dag-id->tags nil id)
;; TODO I guess this works...could be more precise ;; TODO I guess this works...could be more precise
(--filter (s-matches-p "[A-Z]\\{3\\}" it)) (--filter (s-matches-p "[A-Z]\\{3\\}" it))
(car))) (car)))
@ -2273,7 +2346,7 @@ FUTURE-LIMIT in a list."
(if (not (member (buffer-file-name) legal-files)) (message "Not in %s" msg) (if (not (member (buffer-file-name) legal-files)) (message "Not in %s" msg)
(if (org-before-first-heading-p) (if (org-before-first-heading-p)
(if (not toplevel-allowed?) (message "Cannot set toplevel drawer.") (if (not toplevel-allowed?) (message "Cannot set toplevel drawer.")
(org-ml-update-this-section* (org-ml~update-this-section* nil
;; TODO org-ml shouldn't require this, just map the children ;; TODO org-ml shouldn't require this, just map the children
;; directly ;; directly
(org-ml-map-children* (org-ml-map-children*
@ -2282,7 +2355,7 @@ FUTURE-LIMIT in a list."
#'org-x-dag-section-add-parent-link #'org-x-dag-section-add-parent-link
ids it) ids it)
it))) it)))
(org-ml-update-this-headline* (org-ml~update-this-headline* nil
(update-nodes #'org-x-dag-headline-get-parent-links (update-nodes #'org-x-dag-headline-get-parent-links
#'org-x-dag-headline-remove-parent-link #'org-x-dag-headline-remove-parent-link
#'org-x-dag-headline-add-parent-link #'org-x-dag-headline-add-parent-link