;;; init-package.el
;;; -*- lexical-binding: t -*-

;; 安装gcmh用于管理内存回收
(use-package gcmh
  :init
  (setq gcmh-idle-delay 5        ; 空闲 5 秒后 GC
        gcmh-high-cons-threshold (* 16 1024 1024))  ; 高阈值 16MB
  :config
  (gcmh-mode 1))

(use-package restart-emacs)

;; 安装multiple-cursors
(use-package multiple-cursors)

;; 安装crux，增强快捷键，快捷键配置在init-kbd.el中
(use-package crux)

;; 安装hungry-delete
(use-package hungry-delete)

;; 安装drag-stuff，拖动字符
(use-package drag-stuff)

;; 安装which-key，快捷键提示
(use-package which-key
  :defer 0
  :config
  (which-key-mode))

;; 安装ace-windows，快速切换窗口
(use-package ace-window)

;; 安装vertico
(use-package vertico
  :init (vertico-mode t))

;; 安装orderless，用于模糊搜索
(use-package orderless
  :custom (completion-styles '(orderless basic)))

;; 安装marginalia，用于命令注释
(use-package marginalia
  :init (marginalia-mode))

;; 安装consult，增强搜索和其他菜单
(use-package consult)

;; 安装embark，一个菜单，用用就明白了
(use-package embark
  :config (setq prefix-help-command 'embark-prefix-help-command))

;; 安装embark-consult和wgrep
(use-package embark-consult)
(use-package wgrep)

(with-eval-after-load
    'consult
  '(with-eval-after-load
       'embark
     '(progn
        (require 'embark-consult)
        (add-hook
         'embark-collect-mode-hook
         #'consult-preview-at-point-mode))))

(define-key minibuffer-local-map (kbd "C-c C-e") 'embark-export)

(progn
  (setq consult-locate-args (encode-coding-string "es.exe -i -p -r" 'gbk))
  (add-to-list 'process-coding-system-alist '("es" gbk . gbk)))

;; 启用savehist，保存命令顺序
(use-package savehist
  :hook (after-init . savehist-mode)
  :init (setq enable-recursive-minibuffers t
	      history-length 50
	      savehist-additional-variables '(mark-ring
					      global-mark-ring
					      search-ring
					      regexp-search-ring
					      extended-command-history)
	      savehist-autosave-interval 300)
  )

;; saveplace，保存光标位置
(use-package saveplace
  :hook (after-init . save-place-mode))

;; 安装ox-hugo
(use-package ox-hugo)

(provide 'init-package)