Use find-dired

condy0919 · Aug 13, 2024 · 0c83c56 · 0c83c56
1 parent 3fe17f3
commit 0c83c56
Showing 1 changed file with 7 additions and 10 deletions.
diff --git a/lisp/init-shell.el b/lisp/init-shell.el
@@ -63,16 +63,13 @@
   (defun eshell/f (filename &optional dir)
     "Search for files matching FILENAME in either DIR or the
 current directory."
-    (let ((cmd (concat
-                (executable-find "find")
-                " " (or dir ".")
-                "      -not -path '*/.git*'"
-                " -and -not -path 'build'"    ;; the cmake build directory
-                " -and"
-                " -type f"
-                " -and"
-                " -iname '*" (format "%s" filename) "*'")))
-      (eshell-command-result cmd)))
+    (find-dired (or dir ".")
+                (concat " -not -path '*/.git*'"
+                        " -and -not -path 'build'" ;; the cmake build directory
+                        " -and"
+                        " -type f"
+                        " -and"
+                        " -iname " (format "'*%s*'" filename))))
 
   (defun eshell/z ()
     "cd to directory with completions."