;; Time-stamp: <2020-04-23 20:59:13 (tslil@bison)>

(use-package deadgrep
  :ensure t
  :bind (("C-c g" . deadgrep)))

(defun selectrum-recentf ()
  (interactive)
  (let ((selectrum-should-sort-p nil))
    (find-file (completing-read "Recent file: " recentf-list nil t))))

(defun selectrum-yank ()
  (interactive)
  (let ((selectrum-should-sort-p nil))
    (insert (selectrum-completing-read "Yank: " (delete-duplicates kill-ring :test #'equal) nil t))))

(use-package selectrum
  :bind (("C-x f" . selectrum-recentf)
         ("M-y" . selectrum-yank))
  :config
  (setq selectrum-num-candidates-displayed 7
        selectrum-count-style 'matches)
  (selectrum-mode +1))

(use-package prescient
  :ensure t)

(use-package selectrum-prescient
  :ensure t
  :config
  (selectrum-prescient-mode +1)
  (prescient-persist-mode +1)
  ;; I don't want enable-recursive-minibuffers so this is the next best thing:
  (setq-default completion-in-region-function selectrum--old-completion-in-region-function)
  )

;; (use-package ctrlf
;;   :ensure t
;;   :config (ctrlf-mode +1))