FIX paths to daily planner

This commit is contained in:
Nathan Dwarshuis 2021-12-29 00:22:12 -05:00
parent 88ac66f471
commit 025901509f
2 changed files with 3 additions and 7 deletions

View File

@ -2536,7 +2536,7 @@ NOTE: Capitalized entries store a link to the capture along with writing to the
"#+END_QUOTE")
:immediate-finish t)
("M" "metablock" entry (file+olp+datetree ,org-x-metablox-file)
("M" "metablock" entry (file+olp+datetree ,org-x-daily-plan-file)
,(concat "* %^{Metablock Title}\n"
"%^t\n"
"%^{Effort}p"

View File

@ -248,10 +248,6 @@
org-x-iterator-active-future-offset
"Periodicals must have at least one heading this far in the future to be active.")
(defconst org-x-metablox-file
(f-join org-directory "metablox.org")
"The file to which metablocks will be written.")
;; files and directories (all relative to `org-directory')
(defvar org-x-action-files nil
@ -1568,7 +1564,7 @@ ARG and INTERACTIVE are passed to `org-store-link'."
(org-ml-timestamp-get-start-time)
(org-ml-time-to-unixtime)
(< (float-time)))))
(->> (org-x-parse-file-headlines org-x-metablox-file 'all)
(->> (org-x-parse-file-headlines org-x-daily-plan-file 'all)
(--filter (null (org-ml-headline-get-subheadlines it)))
(-filter #'is-future)
(-map #'org-ml-remove-parents))))
@ -1598,7 +1594,7 @@ ARG and INTERACTIVE are passed to `org-store-link'."
;; ASSUME there will be one paragraph at the end holding
;; the timestamp
(para (car (org-ml-match '(:last section paragraph) target))))
(org-x-with-file org-x-metablox-file
(org-x-with-file org-x-daily-plan-file
(org-ml~update* nil
(org-ml-map-children* (-snoc it link) it)
para))