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

Rename function

Browse Source
This commit is contained in:
Chris Barrett
2022-09-06 11:20:11 +12:00
parent 0a2b1cbcc8
commit b34b615bcc
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -129,7 +129,7 @@ It is called with the new node as the current buffer."
(replace-match new-title t t nil 4))) (replace-match new-title t t nil 4)))
(save-buffer)) (save-buffer))
(defun org-roam-rewrite--delete-node-and-buffer (node) (defun org-roam-rewrite--delete-node-kill-buffer (node)
(when-let* ((buf (find-buffer-visiting (org-roam-node-file node)))) (when-let* ((buf (find-buffer-visiting (org-roam-node-file node))))
(kill-buffer buf)) (kill-buffer buf))
(delete-file (org-roam-node-file node))) (delete-file (org-roam-node-file node)))
@@ -182,7 +182,7 @@ LINK-DESC is the description to use for the updated links."
(cond (cond
((null backlinks) ((null backlinks)
(when (y-or-n-p "No links found. Delete node? ") (when (y-or-n-p "No links found. Delete node? ")
(org-roam-rewrite--delete-node-and-buffer from))) (org-roam-rewrite--delete-node-kill-buffer from)))
((y-or-n-p (format "Rewriting %s link%s from \"%s\" -> \"%s\". Continue? " ((y-or-n-p (format "Rewriting %s link%s from \"%s\" -> \"%s\". Continue? "
(length backlinks) (length backlinks)
(if (= 1 (length backlinks)) "" "s") (if (= 1 (length backlinks)) "" "s")
@@ -190,7 +190,7 @@ LINK-DESC is the description to use for the updated links."
link-desc)) link-desc))
(org-roam-rewrite--edit-backlinks backlinks (org-roam-node-id to) link-desc) (org-roam-rewrite--edit-backlinks backlinks (org-roam-node-id to) link-desc)
(when (y-or-n-p "Rewrite completed. Delete node? ") (when (y-or-n-p "Rewrite completed. Delete node? ")
(org-roam-rewrite--delete-node-and-buffer from))) (org-roam-rewrite--delete-node-kill-buffer from)))
(t (t
(user-error "Rewrite aborted"))))) (user-error "Rewrite aborted")))))