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

Prompt user just for backlink desc change when renaming

Browse Source
This commit is contained in:
Chris Barrett
2022-09-02 22:09:23 +12:00
parent a79be8dd20
commit f5e76b8f1f
1 changed files with 9 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -150,14 +150,16 @@ descriptions updated to this value."
(cond (cond
((null backlinks) ((null backlinks)
(org-roam-rewrite--update-node-title node new-title) (org-roam-rewrite--update-node-title node new-title)
(message "No backlinks found.")) (message "Renamed. No backlinks to update."))
((y-or-n-p (format "Rewriting %s link(s) from \"%s\" -> \"%s\". Continue? " (t
(length backlinks) (org-roam-node-title node) new-title))
(org-roam-rewrite--update-node-title node new-title) (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) (org-roam-rewrite--edit-backlinks backlinks (org-roam-node-id node) new-title)
(message "Rewrote %s links to note." (length backlinks))) (message "Rewrote %s links to note." (length backlinks)))
(t (t
(user-error "Rewrite aborted"))))) (message "Rename completed.")))))))
;;;###autoload ;;;###autoload
(defun org-roam-rewrite-remove (from to link-desc) (defun org-roam-rewrite-remove (from to link-desc)