From a0b091cac64a3fc8066d87a2401172e6779622b9 Mon Sep 17 00:00:00 2001 From: Abdelhak Bougouffa Date: Tue, 26 Nov 2024 17:27:49 +0100 Subject: [PATCH 1/2] Don't colorize in `fd`'s output --- pet.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/pet.el b/pet.el index 5e269d3..bb2ee86 100644 --- a/pet.el +++ b/pet.el @@ -118,7 +118,7 @@ and nil otherwise." :type 'string :group 'pet) -(defcustom pet-fd-command-args '("-tf" "-H" "-a" "-g") +(defcustom pet-fd-command-args '("-tf" "-cnever" "-H" "-a" "-g") "The arguments to pass to the \"fd\" command." :type '(repeat string) :group 'pet) From 0da1d6a3074027f687bd95eeec099080666b8842 Mon Sep 17 00:00:00 2001 From: Abdelhak Bougouffa Date: Tue, 26 Nov 2024 18:14:47 +0100 Subject: [PATCH 2/2] Simplify the `process-lines` call --- pet.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/pet.el b/pet.el index bb2ee86..fcd0d08 100644 --- a/pet.el +++ b/pet.el @@ -205,7 +205,7 @@ Return absolute path to FILE if found, nil otherwise." (if (executable-find pet-fd-command) (car (cl-remove-if #'string-empty-p - (apply #'process-lines (append (list pet-fd-command) pet-fd-command-args (list file root))))) + (apply #'process-lines `(,pet-fd-command ,@pet-fd-command-args ,file ,root)))) (when-let ((fileset (cond ((functionp 'projectile-dir-files) (mapcar (apply-partially #'concat root)