;;; priime-completion.el --- Completion configuration
;;; Commentary:
;; Provides configuration for completion-related packages.
;;; Code:

(use-package corfu :straight t
  :custom
  (completion-styles '(orderless basic))
  (completion-category-overrides '((file (styles partial-completion))))
  (corfu-auto t)
  (corfu-popupinfo-delay 1)
  :bind (:map corfu-map
              ("C-n"   . corfu-next)
              ("C-p"   . corfu-previous)
              ("<tab>" . corfu-insert)
              ("RET"   . nil))
  :init
  (global-corfu-mode)
  (corfu-popupinfo-mode))
(use-package cape :straight t
  :bind ("M-p" . cape-prefix-map)
  :init
  (add-hook 'completion-at-point-functions #'cape-dabbrev)
  (add-hook 'completion-at-point-functions #'cape-file)
  (add-hook 'completion-at-point-functions #'cape-elisp-block)
  (add-hook 'completion-at-point-functions #'cape-keyword))
(use-package vertico :straight t
  :init
  (add-hook 'after-init-hook 'vertico-mode))
(use-package vertico-posframe :straight t
  :init
  (vertico-posframe-mode 1))
(use-package marginalia :straight t
  :init
  (add-hook 'after-init-hook 'marginalia-mode))
(use-package orderless :straight t
  :custom
  (orderless-matching-styles '(orderless-literal-prefix orderless-literal orderless-regexp)))
(use-package yasnippet :straight t
  :hook ((prog-mode . yas-minor-mode)))
(use-package yasnippet-snippets :straight t)

(use-package consult :straight t
  :bind (("C-c r r" . consult-ripgrep)
         ("C-c r g" . consult-grep)
         ("C-c r f" . consult-ripgrep-file)))

(defun consult-ripgrep-file (&optional initial)
  "Search with `rg' in the current file with INITIAL input."
  (interactive)
  (cond
   ((buffer-file-name)
    (let* ((file (buffer-file-name))
           (builder (consult--ripgrep-make-builder (list file))))
      (consult--read
       (consult--process-collection builder
         :transform (consult--grep-format builder)
         :file-handler t)
       :prompt "Ripgrep (current file): "
       :lookup #'consult--lookup-member
       :state (consult--grep-state)
       :initial initial
       :add-history (thing-at-point 'symbol)
       :require-match t
       :category 'consult-grep
       :group #'consult--prefix-group
       :history '(:input consult--grep-history)
       :sort nil)))
   (t (user-error "Buffer not visiting a file"))))

(provide 'priime-completion)

;;; priime-completion.el ends here