dired:如何获得真正人类可读的输出(find-ls-option)

Question

我正在为M-x find-dired/M-x find-gred-dired寻找人类可读的输出。我尝试使用以下代码：

(setq find-ls-option '("-print0 | xargs -0 ls -alhd" . "-alhd"))

但是，由于-h的原因，找到的输出不再正确对齐，因此人类无法真正阅读(请参阅下面的dired+屏幕截图)。有没有(不太具侵入性的)解决方案？

​

​

正如artscan指出的那样，-i是一种选择。然后我发现了这个“反例”：

​

​

Answer 1

我玩了一下。缩进突然变得很好，除了文件大小以字节为单位的文件(所以没有单位)。然后我想知道find-ls-option中的“第二”选项集是关于什么的。尽管C-h v find-ls-option没有清楚地解释它(IMHO)，但我发现只需将第二组选项留空即可提供正确的缩进：

(setq find-ls-option '("-print0 | xargs -0 ls -alhd" . ""))

Answer 2

编辑:正则表达式中有问题。您必须修补函数find-dired-filter

diff -u -L /usr/share/emacs/24.2/lisp/find-dired.el.gz -L \#\<buffer\ find-dired.el.gz\> /tmp/jka-com8644f_j /tmp/buffer-content-86445Tw
--- /usr/share/emacs/24.2/lisp/find-dired.el.gz
+++ #<buffer find-dired.el.gz>
@@ -289,7 +289,7 @@
            (l-opt (and (consp find-ls-option)
                (string-match "l" (cdr find-ls-option))))
            (ls-regexp (concat "^ +[^ \t\r\n]+\\( +[^ \t\r\n]+\\) +"
-                      "[^ \t\r\n]+ +[^ \t\r\n]+\\( +[0-9]+\\)")))
+                      "[^ \t\r\n]+ +[^ \t\r\n]+\\( +[0-9,.]+\\)")))
        (goto-char beg)
        (insert string)
        (goto-char beg)