pestctrl/emacs-config
1
0
Fork 0
mirror of https://github.com/pestctrl/emacs-config.git synced 2026-02-16 16:24:18 +00:00
Code Issues Projects Releases Packages Wiki Activity

Further fixups to tramp

Browse source
This commit is contained in:
Benson Chu 2023-02-27 12:14:58 -06:00
parent 5150de07ff
commit 5991bf76ac
1 changed files with 7 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
config-min.org
View file

@ -133,10 +133,15 @@
;; Tidy shadowed file names
:hook (rfn-eshadow-update-overlay . vertico-directory-tidy)
:config
(defun my/should-backwards-tramp ()
(and (not (eq (char-before) ?:))
(not (eq (char-before) ?@))))
(defun my/vertico-directory-up (&optional n)
(interactive "p")
(when (and (> (point) (minibuffer-prompt-end))
(eq (char-before) ?/)
(or (eq (char-before) ?/)
(my/should-backwards-tramp))
(eq 'file (vertico--metadata-get 'category)))
(let ((path (buffer-substring (minibuffer-prompt-end) (point))) found)
(when (string-match-p "\\`~[^/]*/\\'" path)
@ -146,7 +151,7 @@
(save-excursion
(let ((end (point)))
(goto-char (1- end))
(when (re-search-backward (rx (or "/" ":")) (minibuffer-prompt-end) t)
(when (re-search-backward (rx (or "/" "@" ":")) (minibuffer-prompt-end) t)
(delete-region (1+ (point)) end)
(setq found t))))))))