From be2e163bca6df87b290128d0bd6623d7f4f03ad1 Mon Sep 17 00:00:00 2001 From: Chris Barrett Date: Mon, 26 Sep 2022 18:23:01 +1300 Subject: [PATCH] Run hook after renaming a node --- 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 615b9e1..68fabcc 100644 --- a/lisp/org-roam-rewrite.el +++ b/lisp/org-roam-rewrite.el @@ -72,6 +72,13 @@ from the original node: :title, :level, :file, :id" :group 'org-roam-rewrite :type 'hook) +(defcustom org-roam-rewrite-node-renamed-hook nil + "Hook executed after renaming a node. + +It is called with the renamed node as the current buffer." + :group 'org-roam-rewrite + :type 'hook) + (defun org-roam-rewrite--set-title-keyword (text) @@ -199,7 +206,8 @@ descriptions updated to this value." (org-roam-rewrite--edit-backlinks backlinks (org-roam-node-id node) new-title) (message "Rewrote %s links to node." (length backlinks))) (t - (message "Rename completed."))))))) + (message "Rename completed."))))) + (run-hooks 'org-roam-rewrite-node-renamed-hook))) ;;;###autoload (defun org-roam-rewrite-remove (from to link-desc)