;;; icejam-completing-read -- Functions related to completing-read -*- lexical-binding: t; -*-
;;; Commentary:
;;;
;;; completing-read is the way of completing things in minibuffer.  This module
;;; provides all of that functionality, everything related to minbuffer being
;;; helpful.
;;;
;;; Code:
(eval-when-compile
  (defvar icejam-keys-mode-map)
  (defvar crm-separator))

;; Preparations for using Vertico/Orderless
(setopt
 ;; Support opening new minibuffers from inside existing minibuffers.
 enable-recursive-minibuffers t
 ;; Hide commands in M-x which do not work in the current mode.  Vertico
 ;; commands are hidden in normal buffers. This setting is useful beyond
 ;; Vertico.
 read-extended-command-predicate #'command-completion-default-include-p
 ;; Do not allow the cursor in the minibuffer prompt
 minibuffer-prompt-properties
 '(read-only t cursor-intangible t face minibuffer-prompt))

(defun crm-indicator (args)
  "Work with ARGS in `completing-read-multiple`."
  (cons (format "[CRM%s] %s"
                (replace-regexp-in-string
                 "\\`\\[.*?]\\*\\|\\[.*?]\\*\\'" ""
                 crm-separator)
                (car args))
        (cdr args)))
(advice-add #'completing-read-multiple :filter-args #'crm-indicator)
(add-hook 'minibuffer-setup-hook #'cursor-intangible-mode)

;; Actual orderless
(use-package vertico :ensure (:host github :repo "minad/vertico" :ref "e4338c5bae2c725be2940726be170bc034af3b6c") :defer t
  :hook ((elpaca-after-init . vertico-mode))
  :config
  (setopt vertico-scroll-margin 1) ;; Scroll on N-1
  (setopt vertico-count 15)        ;; Show 5 more candidates
  (setopt vertico-resize t) ;; Grow and shrink the vertico minibufffer
  (setopt vertico-cycle t)  ;; Cycle completion

  ;; Use H-enter to submit current value instead of first matching candidate
  (keymap-set vertico-map "H-<return>" 'vertico-exit-input)

  ;; Add working page up /down
  (keymap-set vertico-map "<next>" 'vertico-scroll-up)
  (keymap-set vertico-map "<prior>" 'vertico-scroll-down))

(use-package orderless :ensure (:host github :repo "oantolin/orderless" :ref "3a2a32181f7a5bd7b633e40d89de771a5dd88cc7")
  :config
  ;; Fallback to basic if orderless does not work.
  (setopt completion-styles '(orderless basic))
  (setopt completion-category-defaults nil)
  (setopt completion-category-overrides '((file (styles partial-completion)))))

(use-package marginalia :ensure (:host github :repo "minad/marginalia" :ref "4a0628dfdf944a5d307d31d2a514825cc5386986") :defer t
  :hook ((elpaca-after-init . marginalia-mode)))

(use-package consult :ensure (:host github :repo "minad/consult" :ref "45fdad7b234141ea572267024c8f4b08dd2e1022")
  :config
  ;; Using ripgrep, show hidden files but ignore contents of .git
  (setopt consult-ripgrep-args
          "rg --null --line-buffered --color=never --max-columns=1000 \
--path-separator / --smart-case --no-heading --with-filename --line-number \
--search-zip --hidden --glob \"!.git/*\"")
  :bind (:map icejam-keys-mode-map
              ("C-c t" . find-file)
              ("M-g g" . consult-goto-line)
              ("C-c a" . consult-ripgrep)))

(use-package helpful :ensure t :defer t
  :bind (([remap describe-key] . helpful-key)
         ([remap describe-variable] . helpful-variable)
         ([remap describe-function] . helpful-callable)
         ([remap describe-command] . helpful-command)))

(provide 'icejam-completing-read)
;;; icejam-completing-read.el ends here