;;; 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