branch: externals/disk-usage
commit 0123f0627626780833ec7b730c98054eb33da006
Author: Pierre Neidhardt <[email protected]>
Commit: Pierre Neidhardt <[email protected]>
Display symlink targets
---
disk-usage.el | 13 ++++++++-----
1 file changed, 8 insertions(+), 5 deletions(-)
diff --git a/disk-usage.el b/disk-usage.el
index 34e8b63..ca4bcf6 100644
--- a/disk-usage.el
+++ b/disk-usage.el
@@ -87,19 +87,22 @@
(defun disk-usage--list (directory)
(setq directory (or directory default-directory))
- ;; TODO: 'full paths?
(let ((listing (directory-files-and-attributes directory 'full nil 'nosort)))
(or (cl-loop for l in listing
for attributes = (cl-rest l)
for path = (cl-first l)
+ ;; Files
if (null (file-attribute-type attributes))
collect (vector (file-attribute-size attributes) path)
+ ;; Symlinks
if (stringp (file-attribute-type attributes))
collect (vector (file-attribute-size attributes)
- (propertize path
- 'face (if (file-directory-p path)
-
'disk-usage-symlink-directory
- 'disk-usage-symlink)))
+ (concat (propertize path
+ 'face (if
(file-directory-p path)
+
'disk-usage-symlink-directory
+
'disk-usage-symlink))
+ " -> " (file-attribute-type
attributes)))
+ ;; Folders
else if (and (eq t (file-attribute-type attributes))
(not (string= "." (file-name-base path)))
(not (string= ".." (file-name-base path))))
