;; Time-stamp: <2020-05-04 13:08:01 (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-dups kill-ring) nil t))))

(use-package selectrum
  :ensure t
  :bind (("C-x f" . selectrum-recentf)
         ("M-y" . selectrum-yank))
  :config
  (setq selectrum-num-candidates-displayed 7
        selectrum-count-style 'matches)
  ;; If i don't want `enable-recursive-minibuffers' this is the next best thing:
  ;; (setq-default completion-in-region-function selectrum--old-completion-in-region-function)
  (setq enable-recursive-minibuffers t)
  (selectrum-mode +1))

(use-package selectrum-prescient
  :ensure t
  :config
  (selectrum-prescient-mode +1)
  (prescient-persist-mode +1))

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