branch: externals/consult-denote
commit bbf90d62b40122e109e3acdf803e7469fdf8c6be
Author: Protesilaos Stavrou <[email protected]>
Commit: Protesilaos Stavrou <[email protected]>
Use new denote-get-completion-table per denote.git commit 4fe3cf1
---
consult-denote.el | 10 +++++-----
1 file changed, 5 insertions(+), 5 deletions(-)
diff --git a/consult-denote.el b/consult-denote.el
index ae3f42cffa..3b0a6665d8 100644
--- a/consult-denote.el
+++ b/consult-denote.el
@@ -136,7 +136,7 @@ Return the absolute path to the matching file."
(or prompt-text "Select FILE")
(propertize default-directory 'face
'denote-faces-prompt-current-name))))
(input (consult--read
- (denote--completion-table 'file relative-files)
+ (denote-get-completion-table relative-files '(category .
file))
:state (consult--file-preview)
:require-match (unless no-require-match :require-match)
:history 'denote-file-history
@@ -171,7 +171,7 @@ completion candidates. Else use
`denote-sequence-get-all-files'."
files))
(prompt (format-prompt (or prompt-text "Select FILE with
sequence") nil))
(input (consult--read
- (denote--completion-table 'file relative-files)
+ (denote-get-completion-table relative-files '(category .
file))
:state (consult--file-preview)
:require-match nil
:history 'denote-sequence-file-history
@@ -189,7 +189,7 @@ completion candidates. Else use
`denote-sequence-get-all-files'."
files))
(prompt (format-prompt (or prompt-text "Find linked file") nil))
(input (consult--read
- (denote--completion-table 'file file-names)
+ (denote-get-completion-table file-names '(category . file))
:state (consult--file-preview)
:require-match t
:history 'denote-link-find-file-history
@@ -205,7 +205,7 @@ completion candidates. Else use
`denote-sequence-get-all-files'."
"Like the `denote-silo-extras-directory-prompt' with Consult preview."
(let ((default (car denote-silo-extras-directory-history)))
(consult--read
- (denote--completion-table 'file denote-silo-extras-directories)
+ (denote-get-completion-table denote-silo-extras-directories '(category .
file))
:state (consult--file-preview)
:require-match t
:prompt (format-prompt "Select a silo" default)
@@ -222,7 +222,7 @@ completion candidates. Else use
`denote-sequence-get-all-files'."
FILE has the same meaning as in `denote-org-extras-outline-prompt'."
(let ((current-file (or file buffer-file-name)))
(consult--read
- (denote--completion-table-no-sort 'imenu (denote-org--get-outline
current-file))
+ (denote-get-completion-table (denote-org--get-outline current-file)
'(category . imenu))
:state (lambda (_action candidate)
(with-current-buffer (current-buffer)
(when-let* ((_ candidate)
