Emacs之改造最快的文件搜索工具fd-dired(基于fd命令)(一百二十一)

Android系统攻城狮2023-07-31 23:45

简介： CSDN博客专家，专注Android/Linux系统，分享多mic语音方案、音视频、编解码等技术，与大家一起成长！

优质专栏：Audio工程师进阶系列【原创干货持续更新中......】🚀

人生格言： 人生从来没有捷径，只有行动才是治疗恐惧和懒惰的唯一良药.
更多原创,欢迎关注：Android系统攻城狮

1.前言

本篇目的：fd命令搜索文件特别块，可以使用fd替代find命令，Emacs基于fd命令的fd-dired插件，改造它为我所用。

2.应用实例

fd-dired.el

<1>.修改位置

lisp 复制代码

;;第一处修改
(defun fd-dired (dir args)

- (interactive (list (read-directory-name "Run fd in directory: " nil "" t)
-                      (read-string "Run fd (with args and search): " fd-dired-input-fd-args
-                                 '(fd-dired-args-history . 1))))


+ (interactive (list nil
+                     (read-string "Run fd (with args and search): " fd-dired-input-fd-args
+                                  '(fd-dired-args-history . 1))))
+)


;;第二处修改
-(setq dir (file-name-as-directory (expand-file-name (or dir default-directory))))
+(setq dir (file-name-as-directory "/home/test"))