mdebray/tvl-depot
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

feat(tazjin/emacs): annotate remote files in reliably-switch-buffer

Browse source 
Change-Id: I0fa460f2d455114ca9387ad23d5a72bcb5a5d9ea
Reviewed-on: https://cl.tvl.fyi/c/depot/+/9156
Reviewed-by: tazjin <tazjin@tvl.su>
Tested-by: BuildkiteCI
This commit is contained in:
Vincent Ambo 2023-08-27 01:45:11 +03:00 committed by tazjin
parent e78b79c6cd
commit 184020a6f2
1 changed files with 15 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
users/tazjin/emacs/config/functions.el
View file

@ -306,14 +306,26 @@ by looking for a `Cargo.toml' file."
situation where the buffer was renamed during selection and an
empty new buffer is created.
This is done by, in contrast to functions like
`ivy-switch-buffer', retaining a list of the buffer objects and
their associated names."
This is done by, in contrast to most buffer-switching functions,
retaining a list of the buffer *objects* and their associated
names, instead of only their names (which might change)."
(interactive)
(let* ((buffers (seq-map (lambda (b) (cons (buffer-name b) b))
(seq-filter (lambda (b) (not (string-prefix-p " " (buffer-name b))))
(buffer-list))))
;; Annotate buffers that display remote files. I frequently
;; want to see it, because I might have identically named
;; files open locally and remotely at the same time, and it
;; helps with differentiating them.
(completion-extra-properties
'(:annotation-function
(lambda (name)
(if-let* ((file (buffer-file-name (cdr (assoc name buffers))))
(remote (file-remote-p file)))
(format " [%s]" remote)))))
(name (completing-read "Switch to buffer: " (seq-map #'car buffers)))
(selected (or (cdr (assoc name buffers))
;; Allow users to manually select invisible buffers ...