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

added vertico subcommands / <del>

Browse Source
This commit is contained in:
Thomas von Dein
2023-05-29 15:28:25 +02:00
parent 3b7cb925b0
commit 77786642d0
1 changed files with 25 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -37,6 +37,15 @@ 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-root()
"quickly go to root dir with / in minibuffer find-file, if we are in a local fs"
(interactive)
(if (file-directory-p (file-name-directory (minibuffer-contents-no-properties)))
(progn
(backward-kill-sentence)
(insert "/"))
(call-interactively 'self-insert-command)))
(defun tvd-vertico-jump-ssh() (defun tvd-vertico-jump-ssh()
"replaces current minibuffer input with /ssh: so that I can edit "replaces current minibuffer input with /ssh: so that I can edit
a remote file anytime and from everywhere I am by just entering :" a remote file anytime and from everywhere I am by just entering :"
@@ -47,9 +56,25 @@ a remote file anytime and from everywhere I am by just entering :"
(insert "/ssh:")) (insert "/ssh:"))
(call-interactively 'self-insert-command))) (call-interactively 'self-insert-command)))
(defun tvd-vertico-del-dir()
"delete directory name in current minibuffer, if it is a directory."
(interactive)
(if (file-directory-p (minibuffer-contents-no-properties))
(progn
(if (looking-back "/")
(delete-char -1))
(if (search-backward "/" nil t)
(let ((beg (+ (point) 1)))
(end-of-buffer)
(delete-region beg (point)))
(delete-char -1)))
(delete-char -1)))
:bind (:map vertico-map :bind (:map vertico-map
("~" . tvd-vertico-jump-home) ("~" . tvd-vertico-jump-home)
(":" . tvd-vertico-jump-ssh) (":" . tvd-vertico-jump-ssh)
("/" . tvd-vertico-jump-root) ;; experimental, not sure wether to keep this
("<backspace>" . tvd-vertico-del-dir)
("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