From 361d0f2b0a9f840c207d809f54dad87e52bc9c1f Mon Sep 17 00:00:00 2001 From: Daniel Mendler Date: Tue, 17 Dec 2024 15:21:54 +0100 Subject: Add more metadata properties --- cape.el | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/cape.el b/cape.el index c6b59bb..1a46df8 100644 --- a/cape.el +++ b/cape.el @@ -345,7 +345,8 @@ string as first argument to the completion table." (list :company-kind (lambda (_) 'text) :exclusive 'no :display-sort-function #'identity - :cycle-sort-function #'identity) + :cycle-sort-function #'identity + :category 'cape-history) "Completion extra properties for `cape-history'.") ;;;###autoload @@ -382,7 +383,8 @@ See also `consult-history' for a more flexible variant based on (defvar cape--file-properties (list :annotation-function (lambda (s) (if (string-suffix-p "/" s) " Dir" " File")) :company-kind (lambda (s) (if (string-suffix-p "/" s) 'folder 'file)) - :exclusive 'no) + :exclusive 'no + :category 'file) "Completion extra properties for `cape-file'.") ;;;###autoload @@ -706,7 +708,9 @@ If INTERACTIVE is nil the function acts like a Capf." (defvar cape--line-properties (list :display-sort-function #'identity - :cycle-sort-function #'identity) + :cycle-sort-function #'identity + :exclusive 'no + :category 'cape-line) "Completion extra properties for `cape-line'.") (defun cape--buffers-major-mode () -- cgit v1.0