;;; mm-completion.el --- Configuration for Emacs completion  -*- lexical-binding: t; -*-


;;; Vertical Completions

(use-package vertico
  :ensure t
  :hook after-init
  :custom
  (vertico-cycle t)
  :config
  (require 'hl-line)
  ;; When working with ‘file-name-shadow-mode’ enabled, if I shadow old
  ;; input (i.e.) by typing ‘~/’ after ‘foo/bar’ Vertico will clear the
  ;; old path to keep only the current input (the old path is hidden by
  ;; ‘rfn-shadow’ anyways).
  (with-eval-after-load 'rfn-shadow
    (add-hook 'rfn-shadow-update-overlay-hook #'vertico-directory-tidy)))


;;; Annotate Completions

;; TODO: Show git branch descriptions!
(use-package marginalia
  :ensure t
  :hook after-init
  :custom
  (marginalia-field-width 50)
  (marginalia-max-relative-age 0))


;;; Minibuffer Completion Styles

(use-package minibuffer
  :bind ( :map minibuffer-local-completion-map
          ("SPC" . nil)
          ("?"   . nil))
  :custom
  (completion-styles '(basic substring orderless))
  (completion-category-defaults nil)    ; Avoid needing to override things
  (completion-category-overrides
   '((file             (styles . (basic partial-completion orderless)))
     (bookmark         (styles . (basic substring)))
     (library          (styles . (basic substring)))
     (imenu            (styles . (basic substring orderless)))
     (consult-location (styles . (basic substring orderless)))
     (kill-ring        (styles . (basic substring orderless)))))
  (completion-ignore-case t)
  (read-buffer-completion-ignore-case t)
  (read-file-name-completion-ignore-case t))

(use-package orderless
  :ensure t
  :after minibuffer
  :custom
  (orderless-matching-styles '(orderless-prefixes orderless-regexp)))


;;; Disable Minibuffer Recursion Level

(use-package mb-depth
  :hook (after-init . minibuffer-depth-indicate-mode)
  :custom
  (enable-recursive-minibuffers t))


;;; Don’t Show Defaults After Typing

;; Usually if a minibuffer prompt has a default value you can access by
;; hitting RET, the prompt will remain even if you begin typing (meaning
;; the default will no longer take effect on RET).  Enabling this mode
;; disables that behaviour.

(use-package minibuf-eldef
  :hook (after-init . minibuffer-electric-default-mode)
  :custom
  (minibuffer-default-prompt-format " [%s]"))


;;; Hide Shadowed Filepaths

(use-package rfn-eshadow
  :hook (after-init . file-name-shadow-mode)
  :custom
  (file-name-shadow-properties '(invisible t intangilble t)))


;;; Completion Popups

(use-package corfu
  :ensure t
  :hook prog-mode
  :bind ( :map corfu-map
          ("C-<return>" . newline))
  :custom
  (corfu-auto t)
  (corfu-cycle t)
  (corfu-auto-prefix 1)
  (corfu-auto-delay .1)
  (corfu-min-width 20)
  :config
  ;; I complete with RET and this interferes with ‘tempel-next’
  (keymap-unset corfu-map "TAB" :remove)
  (with-eval-after-load 'savehist
    (corfu-history-mode)
    (add-to-list 'savehist-additional-variables 'corfu-history)))


;;; Save Minibuffer History

(use-package savehist-mode
  :hook (after-init . savehist-mode)
  :custom
  (history-length 200)
  (history-delete-duplicates t)
  :config
  (add-to-list 'savehist-additional-variables 'kill-ring))


;;; Enhanced Replacements for Builtins

;; TODO: Investigate other commands
(use-package consult
  :ensure t
  :hook (completion-list-mode . consult-preview-at-point-mode)
  :bind ( ([remap switch-to-buffer] . consult-buffer)
          ([remap imenu]            . consult-imenu)
          ([remap goto-line]        . consult-goto-line)
          ("M-F"                    . consult-focus-lines)
          :map project-prefix-map
          ("b" . consult-project-buffer)
          :map consult-narrow-map
          ("?" . consult-narrow-help))
  :custom
  (consult-find-args
   (string-join
    '("find . -not ("
      "        -path '*/.git*'    -prune"
      "    -or -path '*/vendor/*' -prune"
      ")")
    " "))
  :config
  (with-eval-after-load 'pulsar
    (setopt consult-after-jump-hook nil)
    (dolist (command #'(pulsar-recenter-top pulsar-reveal-entry))
      (add-hook 'consult-after-jump-hook command))))


;;; Dynamic Abbreviations

(use-package dabbrev
  :commands (dabbrev-completion dabbrev-expand)
  :custom
  (dabbrev-upcase-means-case-search t))


;;; Finding Things

(use-package find-func
  :custom
  (find-library-include-other-files nil))

(provide 'mm-completion)