first commit

2026-03-15 12:56:10 +08:00
commit 8c1c211e4b
12 changed files with 676 additions and 0 deletions
--- a/lisp/init-package.el
+++ b/lisp/init-package.el
@@ -0,0 +1,91 @@
+;;; 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 1000
+	      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))
+
+(provide 'init-package)