Add vertico-directory-slash

This commit is contained in:
David Morgan 2021-08-19 14:16:58 +01:00
parent a8809652e5
commit 37c7bb3563
1 changed files with 9 additions and 1 deletions

View File

@ -157,10 +157,18 @@
;; See init-packages.el for fetching of Vertico Extenions
;; Required extensions must be in the vertico-extensions var
(use-package vertico-directory
:config
(defun vertico-directory-slash ()
(interactive)
(if (and (>= vertico--index 0)
(string-suffix-p "/" (vertico--candidate))
(vertico-directory--completing-file-p))
(vertico-insert)
(insert "/")))
:load-path vertico-extensions-dir
:bind (:map vertico-map
("RET" . vertico-directory-enter)
;("/" . vertico-directory-enter)
("/" . vertico-directory-slash)
("DEL" . vertico-directory-delete-char)
("M-DEL" . vertico-directory-delete-word))
;; Tidy shadowed file names