[elpa] externals/marginalia 35a42dc 142/241: improve buffer directory annotation

[Stefan Monnier]

branch: externals/marginalia
commit 35a42dc8e31a24008c783c93b23dab3fa5249a35
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@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))))