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.
83 lines
2.7 KiB
83 lines
2.7 KiB
;;; 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-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-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 vertico-prescient |
|
(:load-after vertico prescient) |
|
(:when-loaded |
|
(vertico-prescient-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 "?")) |
|
|
|
(defun dot/consult-line-no-fuzzy () |
|
"Call consult-line without fuzzy matching." |
|
(interactive) |
|
(let ((prescient-filter-method (delete 'fuzzy (copy-tree prescient-filter-method)))) |
|
(consult-line))) |
|
|
|
(consult-customize |
|
dot/consult-line-no-fuzzy :prompt "Search: " |
|
consult-line-multi :prompt "Search: " :initial nil))) |
|
|
|
(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
|
|
|