[elpa] externals/disk-usage 0123f06 06/48: Display symlink targets

[Stefan Monnier]

branch: externals/disk-usage
commit 0123f0627626780833ec7b730c98054eb33da006
Author: Pierre Neidhardt <address@hidden>
Commit: Pierre Neidhardt <address@hidden>

    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))))