FIX more stuff
This commit is contained in:
parent
06be547a0b
commit
6d7f92dbbe
|
@ -3681,7 +3681,7 @@ FUTURE-LIMIT in a list."
|
||||||
(if ids (cons (org-x-dag-build-parent-link-drawer ids) children) children)))
|
(if ids (cons (org-x-dag-build-parent-link-drawer ids) children) children)))
|
||||||
|
|
||||||
(defun org-x-dag-headline-get-parent-links (headline)
|
(defun org-x-dag-headline-get-parent-links (headline)
|
||||||
(->> headline
|
(-some->> headline
|
||||||
(org-ml-headline-get-contents (org-x-logbook-config))
|
(org-ml-headline-get-contents (org-x-logbook-config))
|
||||||
(org-x-dag-section-get-parent-links)))
|
(org-x-dag-section-get-parent-links)))
|
||||||
|
|
||||||
|
@ -3868,7 +3868,7 @@ FUTURE-LIMIT in a list."
|
||||||
(org-x-dag-build-planning-id-headline title 4 paragraph ids))
|
(org-x-dag-build-planning-id-headline title 4 paragraph ids))
|
||||||
|
|
||||||
(defun org-x-dag-build-dlp-headline (title paragraph ids datetime)
|
(defun org-x-dag-build-dlp-headline (title paragraph ids datetime)
|
||||||
(let ((pl (org-ml-build-planning! :scheduled datetime)))
|
(let ((pl (list :scheduled datetime)))
|
||||||
(->> (org-x-dag-build-planning-id-headline title 4 paragraph ids)
|
(->> (org-x-dag-build-planning-id-headline title 4 paragraph ids)
|
||||||
(org-ml-headline-set-planning pl))))
|
(org-ml-headline-set-planning pl))))
|
||||||
|
|
||||||
|
|
|
@ -1763,11 +1763,14 @@ timestamp in the contents of the headline will be shifted."
|
||||||
subtree)
|
subtree)
|
||||||
(t
|
(t
|
||||||
(org-ml-headline-map-planning*
|
(org-ml-headline-map-planning*
|
||||||
(-some->> it
|
(-let (((&plist :scheduled s :deadline d) it))
|
||||||
(org-ml-map-property* :scheduled
|
(when s
|
||||||
(when it (org-ml-timestamp-shift offset unit it)))
|
(->> (org-ml-timelist-shift offset unit s)
|
||||||
(org-ml-map-property* :deadline
|
(plist-put it :scheduled)))
|
||||||
(when it (org-ml-timestamp-shift offset unit it))))
|
(when d
|
||||||
|
(->> (org-ml-timelist-shift offset unit d)
|
||||||
|
(plist-put it :deadline)))
|
||||||
|
it)
|
||||||
subtree)))))
|
subtree)))))
|
||||||
(shift
|
(shift
|
||||||
(offset unit subtree)
|
(offset unit subtree)
|
||||||
|
|
Loading…
Reference in New Issue