blocks|key|1927670|text|要获取以千字节为单位的文件大小，可以自定义变量dired-listing-switches以使用-k选项：|type|unstyled|depth|inlineStyleRanges|offset|length|style|CODE|entityRanges|data|1927671|(setq+dired-listing-switches+"-alk")|code-block|syntax|javascript|1927672|您必须做更多的工作才能获得以MB为单位的总/可用数量。这在我的Linux系统上工作，但可用部分在我的Windows机器上无法工作：|1927673|(setq+directory-free-space-args+"-Pm")
(defadvice+insert-directory+(after+insert-directory-adjust-total-by-1024+activate)
++"modify+the+total+number+by+dividing+it+by+1024"
++(save-excursion
(save-match-data
++(goto-char+(point-min))
++(when+(re-search-forward+"%5E+*total+used+in+directory+\$[0-9]%2B\$+")
++++(replace-match+(number-to-string+(/+(string-to-number+(match-string+1))+1024))+nil+nil+nil+1)))))|1927674|entityMap^0|N|M|1C|2|0|0|0|0^^$0|@$1|2|3|4|5|6|7|Q|8|@$9|R|A|S|B|C]|$9|T|A|U|B|C]]|D|@]|E|$]]|$1|F|3|G|5|H|7|V|8|@]|D|@]|E|$I|J]]|$1|K|3|L|5|6|7|W|8|@]|D|@]|E|$]]|$1|M|3|N|5|H|7|X|8|@]|D|@]|E|$I|J]]|$1|O|3|-4|5|6|7|Y|8|@]|D|@]|E|$]]]|P|$]]

To get the file sizes in kbytes, you can customize the variable <code>dired-listing-switches</code> to use the <code>-k</code> option:

<pre><code>(setq dired-listing-switches "-alk")
</code></pre>

You have to do a little more work to get the total/available numbers in MB. This worked on my Linux system, but the available portion failed to work on my Windows box:

<pre><code>(setq directory-free-space-args "-Pm")
(defadvice insert-directory (after insert-directory-adjust-total-by-1024 activate)
 "modify the total number by dividing it by 1024"
 (save-excursion
(save-match-data
 (goto-char (point-min))
 (when (re-search-forward "^ *total used in directory \$[0-9]+\$ ")
 (replace-match (number-to-string (/ (string-to-number (match-string 1)) 1024)) nil nil nil 1)))))
</code></pre>

blocks|key|483171|text|我也遇到了同样的问题，并且找到了如何快速切换开关的方法。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|483172|所以当在dired缓冲区中时|483173|C-u+s|offset|length|style|CODE|483174|现在，您可以更改ls使用的开关。添加h确实会得到一个人类可读的文件大小|483175|您还可以添加其他开关，例如，我将其更改为-alsh，现在它将按文件大小排序|483176|entityMap^0|0|0|0|5|0|I|1|0|K|5|0^^$0|@$1|2|3|4|5|6|7|P|8|@]|9|@]|A|$]]|$1|B|3|C|5|6|7|Q|8|@]|9|@]|A|$]]|$1|D|3|E|5|6|7|R|8|@$F|S|G|T|H|I]]|9|@]|A|$]]|$1|J|3|K|5|6|7|U|8|@$F|V|G|W|H|I]]|9|@]|A|$]]|$1|L|3|M|5|6|7|X|8|@$F|Y|G|Z|H|I]]|9|@]|A|$]]|$1|N|3|-4|5|6|7|10|8|@]|9|@]|A|$]]]|O|$]]

I came up with the same problem and found how to change swithes on the fly.

So while in a dired buffer

<code>C-u s</code>

you can now change switches used by ls. Add <code>h</code> do get a human readable file sizes

You can add other switches too, for example I changed it to <code>-alsh</code> and it now sorts by file size

blocks|key|483147|text|实际上，该屏幕截图几乎肯定是Emacs的，尽管附带的文本给人的印象是它来自vanilla+Emacs+(XEmacs?)，并且该屏幕截图的归属是"Emacs开发团队“。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|483148|所以答案是肯定的，通过使用Dired%2B和简单地定制默认的faces：M-x+customize-group+Dired-Plus，你可以很容易地获得这个外观。|offset|length|style|BOLD|CODE|483149|entityMap^0|0|D|6|Y|U|0^^$0|@$1|2|3|4|5|6|7|K|8|@]|9|@]|A|$]]|$1|B|3|C|5|6|7|L|8|@$D|M|E|N|F|G]|$D|O|E|P|F|H]]|9|@]|A|$]]|$1|I|3|-4|5|6|7|Q|8|@]|9|@]|A|$]]]|J|$]]

Actually, that screenshot is almost certainly of <a href="http://www.emacswiki.org/emacs/DiredPlus" rel="noreferrer">Dired+</a>, though the accompanying text gives the impression that it is from vanilla Emacs (XEmacs?), and the attribution for the screenshot is "Emacs development team".

So yes, the answer is that you can easily get that appearance, by using Dired+ and simply customizing the default faces: <code>M-x customize-group Dired-Plus</code>.

blocks|key|3335567|text|你没问，但我想我应该加上...|type|unstyled|depth|inlineStyleRanges|entityRanges|data|3335568|我希望能够轻松地按大小和扩展名以及名称和时间对dired输出进行排序。我知道我可以用M-x+universal-argument+dired-sort-toggle-or-edit做到这一点，但我希望在s闪存盘上可以使用它，以使它更快。|offset|length|style|CODE|3335569|;;+Redefine+the+sorting+in+dired+to+flip+between+sorting+on+name,+size,
;;+time,+and+extension,++rather+than+simply+on+name+and+time.

(defun+dired-sort-toggle+()
++;;+Toggle+between+sort+by+date/name.++Reverts+the+buffer.
++(setq+dired-actual-switches
++++++++(let+(case-fold-search)

++++++++++(cond

+++++++++++((string-match+"+"+dired-actual-switches)+;;+contains+a+space
++++++++++++;;+New+toggle+scheme:+add/remove+a+trailing+"+-t"+"+-S",
++++++++++++;;+or+"+-U"

++++++++++++(cond

+++++++++++++((string-match+"+-t\\'"+dired-actual-switches)
++++++++++++++(concat
+++++++++++++++(substring+dired-actual-switches+0+(match-beginning+0))
+++++++++++++++"+-X"))

+++++++++++++((string-match+"+-X\\'"+dired-actual-switches)
++++++++++++++(concat
+++++++++++++++(substring+dired-actual-switches+0+(match-beginning+0))
+++++++++++++++"+-S"))

+++++++++++++((string-match+"+-S\\'"+dired-actual-switches)
++++++++++++++(substring+dired-actual-switches+0+(match-beginning+0)))

+++++++++++++(t
++++++++++++++(concat+dired-actual-switches+"+-t"))))

+++++++++++(t
++++++++++++;;+old+toggle+scheme:+look+for+a+sorting+switch,+one+of+[tUXS]
++++++++++++;;+and+switch+between+them.+Assume+there+is+only+ONE+present.
++++++++++++(let*+((old-sorting-switch
++++++++++++++++++++(if+(string-match+(concat+"[t"+dired-ls-sorting-switches+"]")
++++++++++++++++++++++++++++++++++++++dired-actual-switches)
++++++++++++++++++++++++(substring+dired-actual-switches+(match-beginning+0)
+++++++++++++++++++++++++++++++++++(match-end+0))
++++++++++++++++++++++""))

+++++++++++++++++++++++(new-sorting-switch
++++++++++++++++++++++++(cond
+++++++++++++++++++++++++((string=+old-sorting-switch+"t")
++++++++++++++++++++++++++"X")
+++++++++++++++++++++++++((string=+old-sorting-switch+"X")
++++++++++++++++++++++++++"S")
+++++++++++++++++++++++++((string=+old-sorting-switch+"S")
++++++++++++++++++++++++++"")
+++++++++++++++++++++++++(t
++++++++++++++++++++++++++"t"))))
++++++++++++++++++(concat
+++++++++++++++++++"-l"
+++++++++++++++++++;;+strip+-l+and+any+sorting+switches
+++++++++++++++++++(dired-replace-in-string+(concat+"[-lt"
++++++++++++++++++++++++++++++++++++++++++++++++++++dired-ls-sorting-switches+"]")
++++++++++++++++++++++++++++++++++++++++++++""
++++++++++++++++++++++++++++++++++++++++++++dired-actual-switches)
+++++++++++++++++++new-sorting-switch))))))

++(dired-sort-set-modeline)
++(revert-buffer))|code-block|syntax|javascript|3335570|entityMap^0|0|16|1C|2T|1|0|0^^$0|@$1|2|3|4|5|6|7|O|8|@]|9|@]|A|$]]|$1|B|3|C|5|6|7|P|8|@$D|Q|E|R|F|G]|$D|S|E|T|F|G]]|9|@]|A|$]]|$1|H|3|I|5|J|7|U|8|@]|9|@]|A|$K|L]]|$1|M|3|-4|5|6|7|V|8|@]|9|@]|A|$]]]|N|$]]

You didn't ask, but I thought I'd add....

I wanted to be able to easily sort the dired output by size and extension, as well as name and time. I know I can do this with <code>M-x universal-argument dired-sort-toggle-or-edit</code>, but I wanted it available on the <code>s</code> key to make it quick. 

<pre><code>;; Redefine the sorting in dired to flip between sorting on name, size,
;; time, and extension, rather than simply on name and time.

(defun dired-sort-toggle ()
 ;; Toggle between sort by date/name. Reverts the buffer.
 (setq dired-actual-switches
 (let (case-fold-search)

 (cond

 ((string-match " " dired-actual-switches) ;; contains a space
 ;; New toggle scheme: add/remove a trailing " -t" " -S",
 ;; or " -U"

 (cond

 ((string-match " -t\\'" dired-actual-switches)
 (concat
 (substring dired-actual-switches 0 (match-beginning 0))
 " -X"))

 ((string-match " -X\\'" dired-actual-switches)
 (concat
 (substring dired-actual-switches 0 (match-beginning 0))
 " -S"))

 ((string-match " -S\\'" dired-actual-switches)
 (substring dired-actual-switches 0 (match-beginning 0)))

 (t
 (concat dired-actual-switches " -t"))))

 (t
 ;; old toggle scheme: look for a sorting switch, one of [tUXS]
 ;; and switch between them. Assume there is only ONE present.
 (let* ((old-sorting-switch
 (if (string-match (concat "[t" dired-ls-sorting-switches "]")
 dired-actual-switches)
 (substring dired-actual-switches (match-beginning 0)
 (match-end 0))
 ""))

 (new-sorting-switch
 (cond
 ((string= old-sorting-switch "t")
 "X")
 ((string= old-sorting-switch "X")
 "S")
 ((string= old-sorting-switch "S")
 "")
 (t
 "t"))))
 (concat
 "-l"
 ;; strip -l and any sorting switches
 (dired-replace-in-string (concat "[-lt"
 dired-ls-sorting-switches "]")
 ""
 dired-actual-switches)
 new-sorting-switch))))))

 (dired-sort-set-modeline)
 (revert-buffer))
</code></pre>

blocks|key|1927740|text|此外，dired中的显示只允许9个空格，因此对于非常大的文件，dired中的显示将会混乱。这又一次需要重新定义fn。在本例中，是ls-lisp.el中的一个：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1927741|;;+redefine+this+function,+to+fix+the+formatting+of+file+sizes+in+dired+mode
(defun+ls-lisp-format-file-size+(file-size+human-readable)
++(if+(or+(not+human-readable)
++++++++++(<+file-size+1024))
++++++(format+(if+(floatp+file-size)+"+%2511.0f"+"+%2511d")+file-size)
++++(do+((file-size+(/+file-size+1024.0)+(/+file-size+1024.0))
+++++++++;;+kilo,+mega,+giga,+tera,+peta,+exa
+++++++++(post-fixes+(list+"k"+"M"+"G"+"T"+"P"+"E")+(cdr+post-fixes)))
++++++++((<+file-size+1024)+(format+"+%2510.0f%25s"++file-size+(car+post-fixes))))))|code-block|syntax|javascript|1927742|(它只是将格式字符串中的9.0替换为11.0，并将8.0替换为10.0+)|1927743|entityMap^0|0|0|0^^$0|@$1|2|3|4|5|6|7|K|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|L|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|M|8|@]|9|@]|A|$]]|$1|I|3|-4|5|6|7|N|8|@]|9|@]|A|$]]]|J|$]]

Also, the display in dired allows only 9 spaces, so for very large files, the display in dired will get messed up. Once again that required redefining a fn. In this case, one from ls-lisp.el :

<pre><code>;; redefine this function, to fix the formatting of file sizes in dired mode
(defun ls-lisp-format-file-size (file-size human-readable)
 (if (or (not human-readable)
 (&lt; file-size 1024))
 (format (if (floatp file-size) " %11.0f" " %11d") file-size)
 (do ((file-size (/ file-size 1024.0) (/ file-size 1024.0))
 ;; kilo, mega, giga, tera, peta, exa
 (post-fixes (list "k" "M" "G" "T" "P" "E") (cdr post-fixes)))
 ((&lt; file-size 1024) (format " %10.0f%s" file-size (car post-fixes))))))
</code></pre>

(it just replaces the 9.0 with an 11.0, and the 8.0 with a 10.0, in the format strings)

I just came across this <a href="https://en.wikipedia.org/wiki/File:Emacs_Dired_buffers.png" rel="nofollow noreferrer">dired mode screen</a> at Wikipedia. I am looking into those customizations. 

Regarding colors, I guess just specifying the correct faces will do, but how do I get dired to show file sized in kbytes by default? And the available space in MBs (top line)?

Customizing dired

翻译质量差，导致语言生硬或混乱。

没有提供实际的解决方法或示例。

解答不清晰，无法理解或解决问题。

页面排版不美观，阅读体验差。

文章

问答

视频

教程

学习中心

腾讯云实验室

直播

竞赛

腾讯云代码分析专区

腾讯iOA零信任安全管理系统专区

腾讯云架构师技术同盟交流圈

腾讯云数据库专区

腾讯云智能顾问专区

腾讯云原生专区

腾讯混元专区

腾讯云TCE专区

腾讯云Lighthouse专区

腾讯云HAI专区

腾讯云Edgeone专区

腾讯云存储专区

腾讯云智能专区

腾讯轻联专区 

腾讯云开发专区

TAPD专区

腾讯轻量云游戏服专区

腾讯云最具价值专家

腾讯云架构师技术同盟

腾讯云创作之星

腾讯云开发者先锋

腾讯云AI代码助手

云原生构建

TAPD 敏捷项目管理

Cloud Studio

SDK中心

API中心

命令行工具

功能1上新10个字符

功能2描述100个字符功能2描述100个字符功能2描述100个字符功能2描述100个字符功能2描述100个字符功能2描述100个字符功能2描述100个字符功能2描述100个字符功能2描述100个字符。

功能2上新100个字符功能2上新100个字符功能2上新100个字符功能2上新100个字符功能2上新100个字符功能2上新100个字符功能2上新100个字符功能2上新100个字符功能2上新100个字符。

功能5描述100个字符功能5描述100个字符功能5描述100个字符功能5描述100个字符功能5描述100个字符功能5描述100个字符

功能5上新100个字符功能5上新100个字符功能5上新100个字符功能5上新100个字符功能5上新100个字符功能5上新100个字符功能5上新100个字符功能5上新100个字符功能5上新100个字符功能5上新100个字符

功能4上新

文章&问答评论现已支持表情

全新交互，全新视觉，新增快捷键、悬浮工具栏、高亮块等功能并同时优化现有功能，全面提升创作效率和体验

社区富文本编辑器全新改版！诚邀体验～ 

精选全网热门MCP server，让你的AI更好用 🚀

💥开发者 MCP广场重磅上线！

涵盖代码开发、场景应用、自动测试全流程，助你从零构建专属AI助手

一站式MCP教程库，解锁AI应用新玩法

聚焦“写作效率、视觉美观与运行性能”三方面进行全面升级，为您提供更高效、稳定的创作环境

社区富文本&Markdown编辑器全新改版上线，欢迎大家体验!

诚挚邀请您参与本次调研，分享您的真实使用感受与建议。您的反馈至关重要，感谢您的支持与参与！

社区新版编辑器体验调研

我在维基百科上偶然发现了这个。我正在研究这些定制。关于颜色，我想只需要指定正确的表面就可以了，但是如何才能默认显示以in为单位的文件大小？以及可用的空间(MB)(顶线)？

问自定义dired
EN

回答 5

Stack Overflow用户

Stack Overflow用户

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问自定义diredEN

回答 5

Stack Overflow用户

Stack Overflow用户

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问自定义dired
EN