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

(minor): make the org-roam-node-read prompt configurable (#1993)

Browse Source
This commit is contained in:
Dominick LoBraico
2021-12-14 03:05:08 -05:00
committed by GitHub
parent 2c5f429b24
commit b6d59e2238
1 changed files with 5 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
org-roam-node.el
View File

@ -489,14 +489,15 @@ window instead."
other-window))) other-window)))
;;;; Completing-read interface ;;;; Completing-read interface
(defun org-roam-node-read (&optional initial-input filter-fn sort-fn require-match) (defun org-roam-node-read (&optional initial-input filter-fn sort-fn require-match prompt)
"Read and return an `org-roam-node'. "Read and return an `org-roam-node'.
INITIAL-INPUT is the initial minibuffer prompt value. INITIAL-INPUT is the initial minibuffer prompt value.
FILTER-FN is a function to filter out nodes: it takes an `org-roam-node', FILTER-FN is a function to filter out nodes: it takes an `org-roam-node',
and when nil is returned the node will be filtered out. and when nil is returned the node will be filtered out.
SORT-FN is a function to sort nodes. See `org-roam-node-read-sort-by-file-mtime' SORT-FN is a function to sort nodes. See `org-roam-node-read-sort-by-file-mtime'
for an example sort function. for an example sort function.
If REQUIRE-MATCH, the minibuffer prompt will require a match." If REQUIRE-MATCH, the minibuffer prompt will require a match.
PROMPT is a string to show at the beginning of the mini-buffer, defaulting to \"Node: \""
(let* ((nodes (org-roam-node-read--completions)) (let* ((nodes (org-roam-node-read--completions))
(nodes (if filter-fn (nodes (if filter-fn
(cl-remove-if-not (cl-remove-if-not
@ -508,8 +509,9 @@ If REQUIRE-MATCH, the minibuffer prompt will require a match."
(intern (concat "org-roam-node-read-sort-by-" (intern (concat "org-roam-node-read-sort-by-"
(symbol-name org-roam-node-default-sort)))))) (symbol-name org-roam-node-default-sort))))))
(_ (when sort-fn (setq nodes (seq-sort sort-fn nodes)))) (_ (when sort-fn (setq nodes (seq-sort sort-fn nodes))))
(prompt (or prompt "Node: "))
(node (completing-read (node (completing-read
"Node: " prompt
(lambda (string pred action) (lambda (string pred action)
(if (eq action 'metadata) (if (eq action 'metadata)
`(metadata `(metadata