branch: externals/consult-denote
commit 3911ea568b71590219f7cc9b3e6b2560bb569b2a
Author: Protesilaos Stavrou <[email protected]>
Commit: Protesilaos Stavrou <[email protected]>

    Use the updated style of completion metadata for file prompts
---
 consult-denote.el | 18 +++---------------
 1 file changed, 3 insertions(+), 15 deletions(-)

diff --git a/consult-denote.el b/consult-denote.el
index 16f53f5d3b..0f94c5c2f5 100644
--- a/consult-denote.el
+++ b/consult-denote.el
@@ -136,11 +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-get-completion-table
-                  relative-files
-                  '(category . file)
-                  '(group-function . denote-file-prompt-group)
-                  '(display-sort-function . denote-file-prompt-sort))
+                 (apply 'denote-get-completion-table relative-files 
denote-file-prompt-extra-metadata)
                  :state (consult--file-preview)
                  :require-match (unless no-require-match :require-match)
                  :history 'denote-file-history
@@ -175,11 +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-get-completion-table
-                     relative-files
-                     '(category . file)
-                     '(group-function . denote-file-prompt-group)
-                     '(display-sort-function . denote-file-prompt-sort))
+                    (apply 'denote-get-completion-table relative-files 
denote-file-prompt-extra-metadata)
                     :state (consult--file-preview)
                     :require-match nil
                     :history 'denote-sequence-file-history
@@ -197,11 +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-get-completion-table
-                  relative-files
-                  '(category . file)
-                  '(group-function . denote-file-prompt-group)
-                  '(display-sort-function . denote-file-prompt-sort))
+                 (apply 'denote-get-completion-table relative-files 
denote-file-prompt-extra-metadata)
                  :state (consult--file-preview)
                  :require-match t
                  :history 'denote-link-find-file-history

Reply via email to