From 3d01ddd1365a5ed082a5a5d78b4e04c302acdf5f Mon Sep 17 00:00:00 2001 From: David Morgan Date: Fri, 20 Aug 2021 16:01:24 +0100 Subject: Add vertico-directory-home --- .emacs.d/lisp/init-completion.el | 7 +++++++ 1 file changed, 7 insertions(+) (limited to '.emacs.d/lisp/init-completion.el') diff --git a/.emacs.d/lisp/init-completion.el b/.emacs.d/lisp/init-completion.el index a1f0449..a3b8c71 100644 --- a/.emacs.d/lisp/init-completion.el +++ b/.emacs.d/lisp/init-completion.el @@ -165,10 +165,17 @@ (vertico-directory--completing-file-p)) (vertico-insert) (insert "/"))) + (defun vertico-directory-home () + (interactive) + (if (and (string-suffix-p "/" (vertico--candidate)) + (vertico-directory--completing-file-p)) + (insert "~/") + (insert "~"))) :load-path vertico-extensions-dir :bind (:map vertico-map ("RET" . vertico-directory-enter) ("/" . vertico-directory-slash) + ("~" . vertico-directory-home) ("DEL" . vertico-directory-delete-char) ("M-DEL" . vertico-directory-delete-word)) ;; Tidy shadowed file names -- cgit 1.4.1-2-gfad0