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

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
etc/conf.org
View File

@ -2536,7 +2536,7 @@ NOTE: Capitalized entries store a link to the capture along with writing to the
"#+END_QUOTE") "#+END_QUOTE")
:immediate-finish t) :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" ,(concat "* %^{Metablock Title}\n"
"%^t\n" "%^t\n"
"%^{Effort}p" "%^{Effort}p"

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

@ -248,10 +248,6 @@
org-x-iterator-active-future-offset org-x-iterator-active-future-offset
"Periodicals must have at least one heading this far in the future to be active.") "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') ;; files and directories (all relative to `org-directory')
(defvar org-x-action-files nil (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-timestamp-get-start-time)
(org-ml-time-to-unixtime) (org-ml-time-to-unixtime)
(< (float-time))))) (< (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 (null (org-ml-headline-get-subheadlines it)))
(-filter #'is-future) (-filter #'is-future)
(-map #'org-ml-remove-parents)))) (-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 ;; ASSUME there will be one paragraph at the end holding
;; the timestamp ;; the timestamp
(para (car (org-ml-match '(:last section paragraph) target)))) (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~update* nil
(org-ml-map-children* (-snoc it link) it) (org-ml-map-children* (-snoc it link) it)
para)) para))