;; 核心包
(use-package vertico
  :init
  (vertico-mode 1)
  :config
  (setq vertico-count 15
        vertico-resize t
        vertico-cycle t))

;; 持久化（重启后保留历史）
(use-package savehist
  :init
  (savehist-mode 1))

(use-package marginalia
  :init
  (marginalia-mode 1)
  :config
  (setq marginalia-align 'right
        marginalia-align-offset 1))

(use-package orderless
  :config
  (setq completion-styles '(orderless basic)
        completion-category-defaults nil
        completion-category-overrides '((file (styles partial-completion)))))

(use-package consult
  :bind (;; 缓冲区
         ("C-x b" . consult-buffer)
         ("C-x 4 b" . consult-buffer-other-window)
         ("C-x 5 b" . consult-buffer-other-frame)
         ;; 搜索
         ("C-s" . consult-line)
         ("M-s g" . consult-grep)
         ("M-s r" . consult-ripgrep)
         ("M-s l" . consult-line-multi)
         ;; 跳转
         ("M-g g" . consult-goto-line)
         ("M-g i" . consult-imenu)
         ("M-g I" . consult-imenu-multi)
         ;; 其他
         ("M-y" . consult-yank-pop)
         ("C-x C-r" . consult-recent-file))
  :config
  (setq consult-narrow-key "<"
        consult-line-numbers-widen t))

(use-package embark
  :bind (("C-." . embark-act)
         ("C-;" . embark-dwim)
         ("C-h B" . embark-bindings))
  :config
  (setq embark-prompter 'embark-completing-read-prompter))

(use-package embark-consult
  :after (embark consult)
  :hook (embark-collect-mode . consult-preview-at-point-mode))

(use-package corfu
  :init
  (global-corfu-mode 1)
  :config
  (setq corfu-auto t
        corfu-auto-delay 0.2
        corfu-auto-prefix 2
        corfu-count 10
        corfu-cycle t
        corfu-quit-at-boundary 'separator
        corfu-quit-no-match 'separator))

;; 可选：弹窗显示
(use-package corfu-popupinfo
  :after corfu
  :hook (corfu-mode . corfu-popupinfo-mode)
  :config
  (setq corfu-popupinfo-delay 0.5))

(use-package cape
  :init
  ;; 添加补全后端
  (add-to-list 'completion-at-point-functions #'cape-file)
  (add-to-list 'completion-at-point-functions #'cape-dabbrev)
  :config
  ;; 文件补全的额外配置
  (setq cape-dabbrev-min-length 3))

(use-package ivy
  :diminish ivy-mode
  :init
  (ivy-mode 1)
  :config
  (setq ivy-use-virtual-buffers t
        ivy-count-format "(%d/%d) "
        ivy-wrap t
        ivy-initial-inputs-alist nil))

(use-package counsel
  :after ivy
  :bind (("M-x" . counsel-M-x)
         ("C-x C-f" . counsel-find-file)
         ("C-x b" . counsel-switch-buffer)
         ("M-y" . counsel-yank-pop)
         ("C-c f" . counsel-recentf)
         ("C-c g" . counsel-git-grep))
  :config
  (counsel-mode 1))

(use-package swiper
  :after ivy
  :bind ("C-s" . swiper))

(use-package ivy-rich
  :after ivy
  :init
  (ivy-rich-mode 1))

;;; 完整的现代补全配置

;; 1. Vertico - Minibuffer 补全 UI
(use-package vertico
  :init (vertico-mode 1)
  :config
  (setq vertico-count 15
        vertico-resize t
        vertico-cycle t))

;; 2. Orderless - 匹配样式
(use-package orderless
  :config
  (setq completion-styles '(orderless basic)
        completion-category-overrides '((file (styles partial-completion)))))

;; 3. Marginalia - 注解
(use-package marginalia
  :init (marginalia-mode 1))

;; 4. Consult - 搜索命令
(use-package consult
  :bind (("C-x b" . consult-buffer)
         ("C-s" . consult-line)
         ("M-s g" . consult-grep)
         ("M-s r" . consult-ripgrep)
         ("M-g g" . consult-goto-line)
         ("M-g i" . consult-imenu)
         ("M-y" . consult-yank-pop)))

;; 5. Embark - 上下文操作
(use-package embark
  :bind ("C-." . embark-act))

(use-package embark-consult
  :after (embark consult))

;; 6. Corfu - 代码补全
(use-package corfu
  :init (global-corfu-mode 1)
  :config
  (setq corfu-auto t
        corfu-auto-delay 0.2))

;; 7. Cape - 补全后端
(use-package cape
  :init
  (add-to-list 'completion-at-point-functions #'cape-file)
  (add-to-list 'completion-at-point-functions #'cape-dabbrev))