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 situation where the buffer was renamed during selection and an
empty new buffer is created. empty new buffer is created.
This is done by, in contrast to functions like This is done by, in contrast to most buffer-switching functions,
`ivy-switch-buffer', retaining a list of the buffer objects and retaining a list of the buffer *objects* and their associated
their associated names." names, instead of only their names (which might change)."
(interactive) (interactive)
(let* ((buffers (seq-map (lambda (b) (cons (buffer-name b) b)) (let* ((buffers (seq-map (lambda (b) (cons (buffer-name b) b))
(seq-filter (lambda (b) (not (string-prefix-p " " (buffer-name b)))) (seq-filter (lambda (b) (not (string-prefix-p " " (buffer-name b))))
(buffer-list)))) (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))) (name (completing-read "Switch to buffer: " (seq-map #'car buffers)))
(selected (or (cdr (assoc name buffers)) (selected (or (cdr (assoc name buffers))
;; Allow users to manually select invisible buffers ... ;; Allow users to manually select invisible buffers ...