From 932cf7ca23dcaf8ad678ea3d474246c6d929b335 Mon Sep 17 00:00:00 2001 From: Chris Barrett Date: Wed, 24 Aug 2022 17:35:41 +1200 Subject: [PATCH] Define a hook for node extraction --- lisp/org-roam-rewrite.el | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) diff --git a/lisp/org-roam-rewrite.el b/lisp/org-roam-rewrite.el index be1d137..ce30047 100644 --- a/lisp/org-roam-rewrite.el +++ b/lisp/org-roam-rewrite.el @@ -55,6 +55,13 @@ :group 'org-roam-rewrite :type 'boolean) +(defcustom org-roam-rewrite-node-extracted-hook nil + "Hook run after a node has been extracted successfully to a new file. + +It is called with the new node as the current buffer." + :group 'org-roam-rewrite + :type 'hook) + (defun org-roam-rewrite--set-title-keyword (text) @@ -298,7 +305,8 @@ handles file titles, tags and transclusions better." org-roam-rewrite-extract-excluded-tags))) (org-roam-rewrite--set-file-tags tags) (org-roam-rewrite--apply-when-transclusions-enabled 'org-transclusion-add-all)) - (save-buffer))))))) + (save-buffer) + (run-hooks 'org-roam-rewrite-node-extracted-hook))))))) (provide 'org-roam-rewrite)