awesome-emacs/nursery
1
0
Fork 0
mirror of https://github.com/chrisbarrett/nursery synced 2025-09-14 15:46:48 -05:00
Code Issues Packages Projects Releases Wiki Activity

Clear the org-capture context in case it is initialised during note extraction

Browse Source
This commit is contained in:
Chris Barrett
2022-08-18 11:33:04 +12:00
parent 68f34a9116
commit 49b936204b
1 changed files with 19 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/org-roam-rewrite.el
View File

@@ -248,7 +248,11 @@ handles file titles, tags and transclusions better."
(org-roam-db-update-file) (org-roam-db-update-file)
(let* ((template-info nil) (let* ((template-info nil)
(node (org-roam-node-at-point)) (node (org-roam-node-at-point))
(template (org-roam-format-template (template
(unwind-protect
(progn
(setq org-capture-plist nil)
(org-roam-format-template
(string-trim (org-capture-fill-template org-roam-extract-new-file-path)) (string-trim (org-capture-fill-template org-roam-extract-new-file-path))
(lambda (key default-val) (lambda (key default-val)
(let ((fn (intern key)) (let ((fn (intern key))
@@ -262,6 +266,7 @@ handles file titles, tags and transclusions better."
(t (let ((r (read-from-minibuffer (format "%s: " key) default-val))) (t (let ((r (read-from-minibuffer (format "%s: " key) default-val)))
(plist-put template-info ksym r) (plist-put template-info ksym r)
r))))))) r)))))))
(setq org-capture-plist nil)))
(relpath (file-name-as-directory org-roam-directory)) (relpath (file-name-as-directory org-roam-directory))
(file-path (expand-file-name (file-path (expand-file-name
(if org-roam-rewrite-confirm-extraction-path-p (if org-roam-rewrite-confirm-extraction-path-p