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

Add customisable function for prompting when adding refs (#2317)

Browse Source 
* (node): new custom `org-roam-ref-prompt-function'

Function for prompting when adding a ref.

* (node): use `org-roam-ref-prompt' in `org-roam-ref-add'

Prompt properly for ref.
This commit is contained in:
Hugo-Heagren
2023-02-23 06:45:37 +00:00
committed by GitHub
parent 1981dc3617
commit e73807efe1
1 changed files with 9 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
org-roam-node.el
View File

@ -112,6 +112,12 @@ It takes a single argument REF, which is a propertized string."
:group 'org-roam :group 'org-roam
:type '(function)) :type '(function))
(defcustom org-roam-ref-prompt-function nil
"Function to prompt for ref strings in `org-roam-ref-add'.
Should take no arguments, prompt the user, and return a string."
:group 'org-roam
:type 'function)
;;;; Completion-at-point ;;;; Completion-at-point
(defcustom org-roam-completion-everywhere nil (defcustom org-roam-completion-everywhere nil
"When non-nil, provide link completion matching outside of Org links." "When non-nil, provide link completion matching outside of Org links."
@ -1038,7 +1044,9 @@ and when nil is returned the node will be filtered out."
;;;; Editing ;;;; Editing
(defun org-roam-ref-add (ref) (defun org-roam-ref-add (ref)
"Add REF to the node at point." "Add REF to the node at point."
(interactive "sRef: ") (interactive `(,(if org-roam-ref-prompt-function
(funcall org-roam-ref-prompt-function)
(read-string "Ref: "))))
(let ((node (org-roam-node-at-point 'assert))) (let ((node (org-roam-node-at-point 'assert)))
(save-excursion (save-excursion
(goto-char (org-roam-node-point node)) (goto-char (org-roam-node-point node))