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

Teach org-roam-rewrite-rename to default to the node at point

Browse Source
This commit is contained in:
Chris Barrett
2022-08-28 11:40:57 +12:00
parent 108360fa6f
commit b07e1cb14d
1 changed files with 1 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -140,8 +140,7 @@ NODE is the node to update.
NEW-TITLE is the new title to use. All backlinks will have their NEW-TITLE is the new title to use. All backlinks will have their
descriptions updated to this value." descriptions updated to this value."
(interactive (let* ((suggested-title (-some->> (org-roam-node-at-point) (org-roam-node-title))) (interactive (let ((node (or (org-roam-node-at-point) (org-roam-node-read))))
(node (org-roam-node-read suggested-title nil nil t "Rename: ")))
(list node (read-string "New title: " (org-roam-node-title node))))) (list node (read-string "New title: " (org-roam-node-title node)))))
(org-roam-node-visit node) (org-roam-node-visit node)
(org-save-all-org-buffers) (org-save-all-org-buffers)