awesome-emacs/org-roam
1
0
Fork 0
mirror of https://github.com/org-roam/org-roam synced 2025-08-03 12:27:23 -05:00
Code Issues Packages Projects Releases Wiki Activity

Take node as argument to #'org-roam-refile (#2388)

Browse Source
This commit is contained in:
Benson Chu
2024-10-07 12:04:46 -05:00
committed by GitHub
parent 9fd7c87b5b
commit 2a630476b3
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
org-roam-node.el
View File

@ -886,14 +886,14 @@ node."
(org-roam-db-update-file)))) (org-roam-db-update-file))))
;;;###autoload ;;;###autoload
(defun org-roam-refile () (defun org-roam-refile (node)
"Refile node at point to an Org-roam node. "Refile node at point to an Org-roam node.
If region is active, then use it instead of the node at point." If region is active, then use it instead of the node at point."
(interactive) (interactive
(list (org-roam-node-read nil nil nil 'require-match)))
(let* ((regionp (org-region-active-p)) (let* ((regionp (org-region-active-p))
(region-start (and regionp (region-beginning))) (region-start (and regionp (region-beginning)))
(region-end (and regionp (region-end))) (region-end (and regionp (region-end)))
(node (org-roam-node-read nil nil nil 'require-match))
(file (org-roam-node-file node)) (file (org-roam-node-file node))
(nbuf (or (find-buffer-visiting file) (nbuf (or (find-buffer-visiting file)
(find-file-noselect file))) (find-file-noselect file)))