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

FIX more stuff

This commit is contained in:
Nathan Dwarshuis 2024-08-25 21:47:16 -04:00
parent 06be547a0b
commit 6d7f92dbbe
2 changed files with 12 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -3681,7 +3681,7 @@ FUTURE-LIMIT in a list."
(if ids (cons (org-x-dag-build-parent-link-drawer ids) children) children)))
(defun org-x-dag-headline-get-parent-links (headline)
(->> headline
(-some->> headline
(org-ml-headline-get-contents (org-x-logbook-config))
(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))
(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-ml-headline-set-planning pl))))

13
local/lib/org-x/org-x.el
View File

@ -1763,11 +1763,14 @@ timestamp in the contents of the headline will be shifted."
subtree)
(t
(org-ml-headline-map-planning*
(-some->> it
(org-ml-map-property* :scheduled
(when it (org-ml-timestamp-shift offset unit it)))
(org-ml-map-property* :deadline
(when it (org-ml-timestamp-shift offset unit it))))
(-let (((&plist :scheduled s :deadline d) it))
(when s
(->> (org-ml-timelist-shift offset unit s)
(plist-put it :scheduled)))
(when d
(->> (org-ml-timelist-shift offset unit d)
(plist-put it :deadline)))
it)
subtree)))))
(shift
(offset unit subtree)