You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
80 lines
2.7 KiB
80 lines
2.7 KiB
2 years ago
|
;;; dot-selection.el --- -*- lexical-binding: t; -*-
|
||
|
|
|
||
|
|
;;; Commentary:
|
||
|
|
|
||
|
|
;; Incremental narrowing in Emacs.
|
||
|
|
|
||
|
|
;;; Code:
|
||
|
|
|
||
|
|
(elpaca-setup prescient
|
||
|
|
(:require prescient)
|
||
|
|
(:when-loaded
|
||
|
|
(setq completion-styles '(prescient basic))
|
||
|
|
(setq prescient-completion-enable-sort nil)
|
||
|
|
(setq prescient-filter-method '(literal regexp fuzzy))
|
||
|
|
(setq prescient-save-file (expand-file-name "prescient-save.el" dot-cache-dir))
|
||
|
|
(prescient-persist-mode)))
|
||
|
|
|
||
|
|
(elpaca-setup (vertico :files (:defaults "extensions/*"))
|
||
|
|
(:load-after prescient)
|
||
|
|
(:when-loaded
|
||
|
|
(setq vertico-sort-function #'prescient-completion-sort)
|
||
|
|
(setq vertico-sort-override-function #'prescient-completion-sort)
|
||
|
|
|
||
|
|
(defun dot/vertico-prescient-remember ()
|
||
|
|
"Remember the chosen candidate with Prescient."
|
||
|
|
(when (>= vertico--index 0)
|
||
|
|
(prescient-remember
|
||
|
|
(substring-no-properties
|
||
|
|
(nth vertico--index vertico--candidates)))))
|
||
|
|
(advice-add #'vertico-insert :after #'dot/vertico-prescient-remember)
|
||
|
|
|
||
|
|
(setq vertico-previous-directory nil)
|
||
|
|
(defun dot/vertico-backspace ()
|
||
|
|
"In Vertico file completion, backward kill sexp, delete char otherwise."
|
||
|
|
(interactive)
|
||
|
|
(if (not (and (active-minibuffer-window)
|
||
|
|
minibuffer-completing-file-name))
|
||
|
|
(backward-delete-char 1)
|
||
|
|
(setq vertico-previous-directory
|
||
|
|
(concat (file-name-nondirectory (directory-file-name (minibuffer-contents)))
|
||
|
|
"/"))
|
||
|
|
(vertico-directory-delete-word 1)))
|
||
|
|
|
||
|
|
(vertico-mode))
|
||
|
|
|
||
|
|
(defun dot/vertico-dired-goto-last-visited (&rest _)
|
||
|
|
"Go to directory candidate that was last visited."
|
||
|
|
(when minibuffer-completing-file-name
|
||
|
|
(setq vertico--index (or (seq-position vertico--candidates vertico-previous-directory)
|
||
|
|
(when (string= vertico-previous-directory "~/")
|
||
|
|
(seq-position vertico--candidates (concat user-login-name "/")))
|
||
|
|
(if (= vertico--total 0) -1 0)))
|
||
|
|
(setq vertico-previous-directory nil)))
|
||
|
|
(advice-add 'vertico--update-candidates :after #'dot/vertico-dired-goto-last-visited))
|
||
|
|
|
||
|
|
(elpaca nil (setup vertico-mouse ; vertico-mouse.el is part of vertico
|
||
|
|
(:load-after vertico)
|
||
|
|
(:when-loaded (vertico-mouse-mode))))
|
||
|
|
|
||
|
|
(elpaca-setup marginalia
|
||
|
|
(:load-after vertico)
|
||
|
|
(:when-loaded
|
||
|
|
(setq marginalia-annotators '(marginalia-annotators-heavy marginalia-annotators-light))
|
||
|
|
(marginalia-mode)))
|
||
|
|
|
||
|
|
(elpaca-setup consult
|
||
|
|
(:load-after vertico)
|
||
|
|
(:when-loaded (setq consult-narrow-key (kbd "?"))))
|
||
|
|
|
||
|
|
(elpaca-setup consult-flycheck
|
||
|
|
(:load-after consult flycheck))
|
||
|
|
|
||
|
|
(elpaca-setup consult-project-extra
|
||
|
|
(:load-after consult project)
|
||
|
|
(:when-loaded (setq project-switch-commands 'consult-project-extra-find)))
|
||
|
|
|
||
|
|
(provide 'dot-selection)
|
||
|
|
|
||
|
|
;;; dot-selection.el ends here
|