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

Don't ask for a node to rewrite to if we're deleting an orphan

Browse Source
This commit is contained in:
Chris Barrett
2022-09-22 23:21:09 +12:00
parent 29cbc44c48
commit 3a2e319e40
1 changed files with 12 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -215,14 +215,23 @@ TO is the node to change those references to point to.
LINK-DESC is the description to use for the updated links."
(interactive (let* ((suggested-title (-some->> (org-roam-node-at-point) (org-roam-node-title)))
(from (org-roam-node-read suggested-title nil nil t "Remove: "))
(to (org-roam-node-read nil (lambda (it) (not (equal from it))) nil t "Rewrite to: ")))
(list from to (read-string "Link description: " (org-roam-node-title to)))))
(org-save-all-org-buffers)
(backlinks (progn
(org-save-all-org-buffers)
(org-roam-backlinks-get from))))
(if (zerop (length backlinks))
(list from nil nil)
(let* ((to (org-roam-node-read nil (lambda (it) (not (equal from it))) nil t "Rewrite to: "))
(desc (read-string "Link description: " (org-roam-node-title to))))
(list from to desc)))))
(let ((backlinks (org-roam-backlinks-get from)))
(cond
((null backlinks)
(when (y-or-n-p "No links found. Delete node? ")
(org-roam-rewrite--delete-node-kill-buffer from)))
((or (null to) (null link-desc))
(user-error "Must provide a node to redirect existing links to"))
((y-or-n-p (format "Rewriting %s link%s from \"%s\" -> \"%s\". Continue? "
(length backlinks)
(if (= 1 (length backlinks)) "" "s")