[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/marginalia 5a644d8 143/241: abbreviate list-buffers-dir
From: |
Stefan Monnier |
Subject: |
[elpa] externals/marginalia 5a644d8 143/241: abbreviate list-buffers-directory |
Date: |
Fri, 28 May 2021 20:49:15 -0400 (EDT) |
branch: externals/marginalia
commit 5a644d85640a5104758d0105b9d8e02a9551f502
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>
abbreviate list-buffers-directory
---
marginalia.el | 26 +++++++++++++-------------
1 file changed, 13 insertions(+), 13 deletions(-)
diff --git a/marginalia.el b/marginalia.el
index 8eef69b..46700da 100644
--- a/marginalia.el
+++ b/marginalia.el
@@ -524,21 +524,21 @@ Similar to `marginalia-annotate-symbol', but does not
show symbol class."
marginalia--separator
(16 (:propertize mode-name face marginalia-mode)))
nil nil buffer))
- ((cond
- ;; see ibuffer-buffer-file-name
- ((when-let (file (buffer-file-name buffer))
- (abbreviate-file-name file)))
- ((when-let (proc (get-buffer-process buffer))
+ ((if-let (proc (get-buffer-process buffer))
(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))
- ((when-let (dir (and (local-variable-p 'dired-directory buffer)
- (buffer-local-value 'dired-directory buffer)))
- (abbreviate-file-name
- (expand-file-name (if (stringp dir) dir (car dir))
- (buffer-local-value 'default-directory
buffer))))))
+ (abbreviate-file-name (buffer-local-value 'default-directory
buffer)))
+ (abbreviate-file-name
+ (or (cond
+ ;; see ibuffer-buffer-file-name
+ ((buffer-file-name 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))))
+ ((local-variable-p 'list-buffers-directory buffer)
+ (buffer-local-value 'list-buffers-directory buffer)))
+ "")))
:truncate (/ marginalia-truncate-width 2)
:face 'marginalia-file-name))))
- [elpa] externals/marginalia 783cb49 067/241: improve marginalia-minor-mode, (continued)
- [elpa] externals/marginalia 783cb49 067/241: improve marginalia-minor-mode, Stefan Monnier, 2021/05/28
- [elpa] externals/marginalia 659a550 081/241: show annotations even if no documentation is present, Stefan Monnier, 2021/05/28
- [elpa] externals/marginalia 56ad689 094/241: modify marginalia-annotate-imenu regexp such that it works with consult narrowing, Stefan Monnier, 2021/05/28
- [elpa] externals/marginalia ac53a00 097/241: optimize marginalia--truncate, Stefan Monnier, 2021/05/28
- [elpa] externals/marginalia 7743fd7 109/241: add marginalia-annotate-char, Stefan Monnier, 2021/05/28
- [elpa] externals/marginalia 78f676e 122/241: marginalia-annotate-package: use package-desc-status, Stefan Monnier, 2021/05/28
- [elpa] externals/marginalia 0c5521a 126/241: fix window context for Embark Occur, Stefan Monnier, 2021/05/28
- [elpa] externals/marginalia b75f43e 128/241: fix #34, Stefan Monnier, 2021/05/28
- [elpa] externals/marginalia e132638 134/241: marginalia-annotate-buffer: show remote indicator, Stefan Monnier, 2021/05/28
- [elpa] externals/marginalia 4d4f639 140/241: fix project file/buffer annotations for consult-buffer, Stefan Monnier, 2021/05/28
- [elpa] externals/marginalia 5a644d8 143/241: abbreviate list-buffers-directory,
Stefan Monnier <=
- [elpa] externals/marginalia 2a9df61 145/241: readme fixes, Stefan Monnier, 2021/05/28
- [elpa] externals/marginalia 51b6dbf 147/241: readme fixes, Stefan Monnier, 2021/05/28
- [elpa] externals/marginalia 7d4f07f 146/241: add marginalia.texi, Stefan Monnier, 2021/05/28
- [elpa] externals/marginalia a2f9242 154/241: fix marginalia-annotate-bookmark for front context with newlines, Stefan Monnier, 2021/05/28
- [elpa] externals/marginalia d0c0005 166/241: update readme, Stefan Monnier, 2021/05/28
- [elpa] externals/marginalia fcf41c5 167/241: Version 0.2, Stefan Monnier, 2021/05/28
- [elpa] externals/marginalia 5a00dcb 170/241: marginalia-annotate-consult-buffer: remove width, Stefan Monnier, 2021/05/28
- [elpa] externals/marginalia e15b8b2 174/241: readme: update marginalia keybinding, Stefan Monnier, 2021/05/28
- [elpa] externals/marginalia 55bfd5f 176/241: do not unnecessarily use defsubst, Stefan Monnier, 2021/05/28
- [elpa] externals/marginalia dcdcd5d 179/241: consistently use \` and \' for regexps, Stefan Monnier, 2021/05/28