From b07e1cb14ddc235123f5e7a3502305bee6d70efa Mon Sep 17 00:00:00 2001 From: Chris Barrett Date: Sun, 28 Aug 2022 11:40:57 +1200 Subject: [PATCH] Teach org-roam-rewrite-rename to default to the node at point --- lisp/org-roam-rewrite.el | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/lisp/org-roam-rewrite.el b/lisp/org-roam-rewrite.el index f37c43a..09522cd 100644 --- a/lisp/org-roam-rewrite.el +++ b/lisp/org-roam-rewrite.el @@ -140,8 +140,7 @@ NODE is the node to update. NEW-TITLE is the new title to use. All backlinks will have their descriptions updated to this value." - (interactive (let* ((suggested-title (-some->> (org-roam-node-at-point) (org-roam-node-title))) - (node (org-roam-node-read suggested-title nil nil t "Rename: "))) + (interactive (let ((node (or (org-roam-node-at-point) (org-roam-node-read)))) (list node (read-string "New title: " (org-roam-node-title node))))) (org-roam-node-visit node) (org-save-all-org-buffers)