(use-package corfu
  :straight (corfu :type git
                   :host github
                   :repo "minad/corfu"
                   :branch "async"
                   :files (:defaults "extensions/*"))
  :custom ((corfu-auto t)
           (corfu-auto-prefix 1)
           (corfu-auto-delay 0)
           (corfu-cycle t)
           (tab-always-indent 'complete))
  :bind (nil
         :map corfu-map
         ("RET" . nil)
         ("<return>" . nil)
         ("TAB" . corfu-insert)
         ("<tab>" . corfu-insert))
  :init
  (global-corfu-mode +1)

  :config
  ;; java-mode などの一部のモードではタブに `c-indent-line-or-region` が割り当てられているので、
  ;; 補完が出るように `indent-for-tab-command` に置き換える
  (defun my/corfu-remap-tab-command ()
    (global-set-key [remap c-indent-line-or-region] #'indent-for-tab-command))
  (add-hook 'java-mode-hook #'my/corfu-remap-tab-command)

  ;; ミニバッファー上でverticoによる補完が行われない場合、corfuの補完が出るようにします。
  (defun corfu-enable-always-in-minibuffer ()
    "Enable Corfu in the minibuffer if Vertico/Mct are not active."
    (unless (or (bound-and-true-p mct--active)
                (bound-and-true-p vertico--input))
      ;; (setq-local corfu-auto nil) ;; Enable/disable auto completion
      (setq-local corfu-echo-delay nil ;; Disable automatic echo and popup
                  corfu-popupinfo-delay nil)
      (corfu-mode 1)))
  (add-hook 'minibuffer-setup-hook #'corfu-enable-always-in-minibuffer 1))

(use-package company-tabnine
  :straight (company-tabnine :type git :host github :repo "karta0807913/company-tabnine"))

(use-package cape
  :straight t
  :hook ((prog-mode . my/set-basic-capf)
         (text-mode . my/set-basic-capf)
         (meghanada-mode . my/set-meghanada-capf)
         (lsp-completion-mode . my/set-lsp-capf))
  :config
  (defun my/convert-super-capf (arg-capf)
    (list (cape-capf-case-fold
           (cape-super-capf arg-capf
                            (cape-company-to-capf #'company-yasnippet)
                            (cape-company-to-capf #'company-tabnine)))
          #'cape-file
          #'cape-dabbrev))

  (defun my/set-basic-capf ()
    (setq-local completion-at-point-functions (my/convert-super-capf (car completion-at-point-functions))))

  (defun my/set-meghanada-capf ()
    (setq-local completion-at-point-functions (my/convert-super-capf (cape-company-to-capf #'company-meghanada))))

  (defun my/set-lsp-capf ()
    (setq-local completion-at-point-functions (my/convert-super-capf #'lsp-completion-at-point)))

  (add-to-list 'completion-at-point-functions (cape-company-to-capf #'company-tabnine) t)
  (add-to-list 'completion-at-point-functions #'cape-file t)
  (add-to-list 'completion-at-point-functions #'cape-tex t)
  (add-to-list 'completion-at-point-functions #'cape-dabbrev t)
  (add-to-list 'completion-at-point-functions #'cape-keyword t))

(use-package orderless
  :straight t
  :custom ((completion-styles '(orderless))
           (completion-category-defaults nil)
           (completion-category-overrides nil))
  :hook (corfu-mode . (lambda () (setq-local orderless-matching-styles '(orderless-flex)))))

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

(use-package corfu-prescient
  :straight t
  :after corfu
  :init
  (with-eval-after-load 'orderless
    ;; prescientではなく、補完スタイルを使用して絞り込む
    (setq corfu-prescient-enable-filtering nil
          corfu-prescient-override-sorting t))
  (corfu-prescient-mode +1))

(use-package kind-icon
  :straight t
  :after corfu
  :custom (kind-icon-default-face 'corfu-default) ; to compute blended backgrounds correctly
  :config
  (add-to-list 'corfu-margin-formatters #'kind-icon-margin-formatter))

(use-package corfu
  :straight (corfu :type git
                   :host github
                   :repo "minad/corfu"
                   :branch "async"
                   :files (:defaults "extensions/*"))
...（略）...
)

(use-package corfu-popupinfo
  :after corfu
  :config
  (corfu-popupinfo-mode +1))

(use-package yasnippet
  :straight t
  :bind (nil
         :map yas-keymap
         ("<tab>" . nil)
         ("TAB" . nil)
         ("<backtab>" . nil)
         ("S-TAB" . nil)
         ("C-o" . yas-next-field-or-maybe-expand))
  :init
  (yas-global-mode +1))

(use-package lsp-mode
  :straight t
  :custom ((lsp-keymap-prefix "M-l")
           (lsp-signature-auto-activate '(:on-trigger-char :after-completion :on-server-request))
           (lsp-idle-delay 1.0)
           (lsp-semantic-tokens-enable t)
           (lsp-completion-provider :none) ;; ★補完にcorfuを使用する
           )
  :hook ((lsp-mode . lsp-enable-which-key-integration)
         (html-mode . lsp)
         (css-mode . lsp)
         (rust-mode . lsp)
         (nxml-mode . lsp)
         (java-mode . lsp)
         (js-mode . lsp)))