awesome-emacs/nursery
1
0
Fork 0
mirror of https://github.com/chrisbarrett/nursery synced 2025-08-29 14:33:30 -05:00
Code Issues Packages Projects Releases Wiki Activity

Inhibit save hooks while saving WIP extracted buffer

Browse Source
This commit is contained in:
Chris Barrett
2023-03-02 21:01:49 +13:00
parent f6ea0a494f
commit ac76a48ee0
1 changed files with 9 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -408,8 +408,16 @@ but it handles file titles, tags and transclusions better."
(with-current-buffer dest-buf (with-current-buffer dest-buf
(org-paste-subtree) (org-paste-subtree)
(while (> (org-current-level) 1) (org-promote-subtree)) (while (> (org-current-level) 1) (org-promote-subtree))
(save-buffer)
;; `org-roam-promote-entire-buffer' expects an indexed node to
;; exist, and the file must exist on-disk for indexing to succeed.
(let ((before-save-hook)
(after-save-hook
(lambda ()
(org-id-add-location (org-roam-node-id node) dest))))
(save-buffer))
(org-roam-promote-entire-buffer) (org-roam-promote-entire-buffer)
(let ((tags (-difference (-union (org-roam-rewrite--file-tags) tags) (let ((tags (-difference (-union (org-roam-rewrite--file-tags) tags)
org-roam-rewrite-extract-excluded-tags))) org-roam-rewrite-extract-excluded-tags)))
(org-roam-rewrite--set-file-tags tags) (org-roam-rewrite--set-file-tags tags)