branch: externals/disk-usage
commit 349719b4370e0361e3ae480d07e1012a68a43f6d
Author: Pierre Neidhardt <[email protected]>
Commit: Pierre Neidhardt <[email protected]>
Display symlink targets
---
disk-usage.el | 14 ++++++++------
1 file changed, 8 insertions(+), 6 deletions(-)
diff --git a/disk-usage.el b/disk-usage.el
index d80fda6..b035aeb 100644
--- a/disk-usage.el
+++ b/disk-usage.el
@@ -53,8 +53,6 @@
(require 'tabulated-list)
(eval-when-compile (require 'cl-lib))
-;; TODO: Retest symlinks arrows.
-
;; TODO: Filter out files by date. Make generic filter function? Could factor
;; disk-usage-files into this.
@@ -314,15 +312,19 @@ FILE-ENTRY may be a string or a button."
file-entry))
(formatted-filename
(cond
+ ;; Symlinks
((stringp (file-attribute-type (file-attributes filename)))
- (propertize (funcall disk-usage--format-files filename)
- 'face (if (file-directory-p filename)
- 'disk-usage-symlink-directory
- 'disk-usage-symlink)))
+ (concat (propertize (funcall disk-usage--format-files filename)
+ 'face (if (file-directory-p filename)
+ 'disk-usage-symlink-directory
+ 'disk-usage-symlink))
+ " -> " (file-attribute-type (file-attributes filename))))
+ ;; Directories
((and (not (null (file-attribute-type (file-attributes filename))))
(not (file-accessible-directory-p filename)))
(propertize (funcall disk-usage--format-files filename)
'face 'disk-usage-inaccessible))
+ ;; Regular files
(t (funcall disk-usage--format-files filename)))))
(if (listp file-entry)
(let ((copy (cl-copy-list file-entry)))
