From f5e76b8f1f53bcabb4820e89c6cafe1ca483ee46 Mon Sep 17 00:00:00 2001 From: Chris Barrett Date: Fri, 2 Sep 2022 22:09:23 +1200 Subject: [PATCH] Prompt user just for backlink desc change when renaming --- lisp/org-roam-rewrite.el | 16 +++++++++------- 1 file changed, 9 insertions(+), 7 deletions(-) diff --git a/lisp/org-roam-rewrite.el b/lisp/org-roam-rewrite.el index f9e696b..728c8c2 100644 --- a/lisp/org-roam-rewrite.el +++ b/lisp/org-roam-rewrite.el @@ -150,14 +150,16 @@ descriptions updated to this value." (cond ((null backlinks) (org-roam-rewrite--update-node-title node new-title) - (message "No backlinks found.")) - ((y-or-n-p (format "Rewriting %s link(s) from \"%s\" -> \"%s\". Continue? " - (length backlinks) (org-roam-node-title node) new-title)) - (org-roam-rewrite--update-node-title node new-title) - (org-roam-rewrite--edit-backlinks backlinks (org-roam-node-id node) new-title) - (message "Rewrote %s links to note." (length backlinks))) + (message "Renamed. No backlinks to update.")) (t - (user-error "Rewrite aborted"))))) + (org-roam-rewrite--update-node-title node new-title) + (cond ((y-or-n-p (format "Modify %s backlink description%s? " + (length backlinks) + (if (= 1 (length backlinks)) "" "s"))) + (org-roam-rewrite--edit-backlinks backlinks (org-roam-node-id node) new-title) + (message "Rewrote %s links to note." (length backlinks))) + (t + (message "Rename completed."))))))) ;;;###autoload (defun org-roam-rewrite-remove (from to link-desc)