Config: streamline minimal terminal config

lisp/init-terminal-package.el

@@ -4,19 +4,6 @@
 
 ;;; Code:
 
-;; 安装gcmh用于管理内存回收
-(use-package gcmh
-  :demand t
-  :init
-  (setq gcmh-idle-delay 'auto
-	    gcmh-auto-idle-delay-factor 10
-        gcmh-high-cons-threshold #x4000000)
-  :config
-  (gcmh-mode 1))
-
-;; 安装multiple-cursors
-(use-package multiple-cursors)
-
 ;; 安装crux，增强快捷键，快捷键配置在init-kbd.el中
 (use-package crux)
 
@@ -26,16 +13,19 @@
 ;; 安装drag-stuff，拖动字符
 (use-package drag-stuff)
 
+;; expand region
+(use-package expand-region)
+
 ;; 启用savehist，保存命令顺序
 (use-package savehist
   :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)
+	      history-length 50
+	      savehist-additional-variables '(mark-ring
+					      global-mark-ring
+					      search-ring
+					      regexp-search-ring
+					      extended-command-history)
+	      savehist-autosave-interval 300)
   (savehist-mode))
 
 ;; saveplace，保存光标位置
@@ -45,14 +35,24 @@
 ;; undo增强
 (use-package undo-fu)
 
-;; vundop，撤回树
-(use-package vundo
-  :init (setq undo-limit 800000
-	          undo-strong-limit 1200000
-	          undo-outer-limit 12000000))
+;; vertico
+(use-package vertico
+  :init (vertico-mode t))
 
-;; expand-region，快速展开选中
-(use-package expand-region)
+;; 安装orderless，用于模糊搜索
+(use-package orderless
+  :custom (completion-styles '(orderless basic)))
+
+;; (use-package corfu-terminal
+;;   :init (corfu-terminal-mode))
+
+;; scheme
+(use-package geiser
+  :config
+  (with-eval-after-load 'geiser
+    (setq geiser-default-implementation 'guile)))
+
+(use-package geiser-guile)
 
 ;; general
 (use-package general)