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

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

@ -3681,9 +3681,9 @@ 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)))
(defun org-x-dag-headline-set-parent-links (ids headline) (defun org-x-dag-headline-set-parent-links (ids headline)
(org-ml-headline-map-contents* (org-x-logbook-config) (org-ml-headline-map-contents* (org-x-logbook-config)
@ -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))))

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) 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)