branch: externals/marginalia
commit 35a42dc8e31a24008c783c93b23dab3fa5249a35
Author: Daniel Mendler <m...@daniel-mendler.de>
Commit: Daniel Mendler <m...@daniel-mendler.de>
improve buffer directory annotation
---
marginalia.el | 11 +++++++----
1 file changed, 7 insertions(+), 4 deletions(-)
diff --git a/marginalia.el b/marginalia.el
index af9da14..8eef69b 100644
--- a/marginalia.el
+++ b/marginalia.el
@@ -529,13 +529,16 @@ Similar to `marginalia-annotate-symbol', but does not
show symbol class."
((when-let (file (buffer-file-name buffer))
(abbreviate-file-name file)))
((when-let (proc (get-buffer-process buffer))
- (format "(%s %s)" proc (process-status proc))))
+ (format "(%s %s) %s"
+ proc (process-status proc)
+ (abbreviate-file-name (buffer-local-value 'default-directory
buffer)))))
((local-variable-p 'list-buffers-directory buffer)
- (buffer-local-value 'list-buffers-directory buffer))
+ (buffer-local-value 'list-buffers-directory buffer))
((when-let (dir (and (local-variable-p 'dired-directory buffer)
(buffer-local-value 'dired-directory buffer)))
- (expand-file-name (if (stringp dir) dir (car dir))
- (buffer-local-value 'default-directory buffer)))))
+ (abbreviate-file-name
+ (expand-file-name (if (stringp dir) dir (car dir))
+ (buffer-local-value 'default-directory
buffer))))))
:truncate (/ marginalia-truncate-width 2)
:face 'marginalia-file-name))))
