From 3c49062623eab04da95bfb4f51cea4c61c8bcf94 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Omar=20Antol=C3=ADn?= Date: Mon, 30 Mar 2026 13:03:12 -0600 Subject: Add support for consult-fd; fix #801 --- embark-consult.el | 14 ++++++-------- 1 file changed, 6 insertions(+), 8 deletions(-) diff --git a/embark-consult.el b/embark-consult.el index b5ad6c9..40ee940 100644 --- a/embark-consult.el +++ b/embark-consult.el @@ -329,15 +329,12 @@ category `consult-grep'." (setf (alist-get 'consult-xref embark-default-action-overrides) #'embark-consult-xref) -;;; Support for consult-find and consult-locate +;;; Support for consult-find, consult-locate and consult-fd -(setf (alist-get '(file . consult-find) embark-default-action-overrides - nil nil #'equal) - #'find-file) - -(setf (alist-get '(file . consult-locate) embark-default-action-overrides - nil nil #'equal) - #'find-file) +(dolist (cmd '(consult-find consult-locate consult-fd)) + (setf (alist-get `(file . ,cmd) embark-default-action-overrides + nil nil #'equal) + #'find-file)) ;;; Support for consult-isearch-history @@ -389,6 +386,7 @@ category `consult-grep'." "r" #'consult-ripgrep "G" #'consult-git-grep "f" #'consult-find + "d" #'consult-fd "F" #'consult-locate) (defvar embark-consult-search-map -- cgit v1.0