Add vertico-directory-home

2021-08-20 16:01:24 +01:00 · 2021-08-20 16:01:24 +01:00 · 3d01ddd136
parent 19d5d5b888
commit 3d01ddd136
1 changed files with 7 additions and 0 deletions
--- 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