djm
/
dotfiles
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Ensure vertico directory commands are loaded

This commit is contained in:
David Morgan 2021-10-12 06:38:27 +01:00
parent 963a322166
commit 57b36ca772
1 changed files with 14 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
.emacs.d/lisp/init-minibuffer.el
View File

@ -85,6 +85,19 @@ DEFS is a plist associating completion categories to commands."
(if switching-project
(vertico-exit)
(vertico-directory-enter)))
(defun vertico-directory-slash ()
(interactive)
(if (and (>= vertico--index 0)
(string-suffix-p "/" (vertico--candidate))
(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 "~")))
(defun read-project (orig &rest args)
(let ((switching-project t))
(apply orig args)))
@ -105,21 +118,8 @@ DEFS is a plist associating completion categories to commands."
'file #'vertico-directory-delete-word
'project-file #'vertico-directory-delete-word)
:config
(defun vertico-directory-slash ()
(interactive)
(if (and (>= vertico--index 0)
(string-suffix-p "/" (vertico--candidate))
(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
:commands vertico-directory-enter
:commands (vertico-directory-enter vertico-directory-delete-word vertico-directory-delete-char)
;; Tidy shadowed file names
:hook (rfn-eshadow-update-overlay . vertico-directory-tidy))