scip/dot-emacs
1
0
Fork 0
mirror of https://codeberg.org/scip/dot-emacs.git synced 2025-12-17 04:20:57 +01:00
Code Issues Packages Projects Releases Wiki Activity

added : minibuffer command like I had it with ido

Browse Source
This commit is contained in:
Thomas von Dein
2023-05-29 14:06:23 +02:00
parent fa27182840
commit a2c7364355
1 changed files with 16 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
lisp/init-smarter-than-emacs.el
View File

@@ -37,8 +37,19 @@ via [[http://whattheemacsd.com/setup-ido.el-02.html][whattheemacs.d]]"
(insert "~/")) (insert "~/"))
(call-interactively 'self-insert-command))) (call-interactively 'self-insert-command)))
(defun tvd-vertico-jump-ssh()
"replaces current minibuffer input with /ssh: so that I can edit
a remote file anytime and from everywhere I am by just entering :"
(interactive)
(if (looking-back "/")
(progn
(backward-kill-sentence)
(insert "/ssh:"))
(call-interactively 'self-insert-command)))
:bind (:map vertico-map :bind (:map vertico-map
("~" . tvd-vertico-jump-home) ("~" . tvd-vertico-jump-home)
(":" . tvd-vertico-jump-ssh)
("RET" . #'vertico-directory-enter) ("RET" . #'vertico-directory-enter)
;; experimental, pressing tab on a match doesn't ;; experimental, pressing tab on a match doesn't
;; complete it but show the next match, that way I avoid ;; complete it but show the next match, that way I avoid
@@ -64,10 +75,14 @@ via [[http://whattheemacsd.com/setup-ido.el-02.html][whattheemacs.d]]"
;; separator) just like what smex did as well. And only after that ;; separator) just like what smex did as well. And only after that
;; comes orderless. Maybe I'll change this in the future or throw ;; comes orderless. Maybe I'll change this in the future or throw
;; orderless completely away... ;; orderless completely away...
;; PS: the file category override now starts with 'basic so that
;; tramp hostname completion works properly, see
;; https://github.com/minad/vertico#tramp-hostname-and-username-completion
(setq completion-styles '(basic initials flex orderless) (setq completion-styles '(basic initials flex orderless)
orderless-matching-styles '(orderless-prefixes) orderless-matching-styles '(orderless-prefixes)
completion-category-defaults nil completion-category-defaults nil
completion-category-overrides '((file (styles partial-completion))))) completion-category-overrides '((file (styles basic partial-completion)))))