From 1808941dcb877a93cef7c291b4804c98b8a4489d Mon Sep 17 00:00:00 2001
From: User <user@example.com>
Date: Fri, 8 May 2026 13:53:08 +0800
Subject: [PATCH] Config: change some colors of geriser repl, enable
 display-time, install rg.

---
 lisp/init-package.el          | 49 ++++++++++++++++-------------------
 lisp/init-ui.el               |  4 +++
 lisp/my-base16-dark-theme.el  |  4 +++
 lisp/my-base16-light-theme.el |  4 +++
 4 files changed, 35 insertions(+), 26 deletions(-)

diff --git a/lisp/init-package.el b/lisp/init-package.el
index be75575..c6d844e 100644
--- a/lisp/init-package.el
+++ b/lisp/init-package.el
@@ -11,7 +11,7 @@
   :demand t
   :init
   (setq gcmh-idle-delay 'auto
-	    gcmh-auto-idle-delay-factor 10
+	gcmh-auto-idle-delay-factor 10
         gcmh-high-cons-threshold #x4000000)
   :config
   (gcmh-mode 1))
@@ -38,6 +38,9 @@
   :config
   (which-key-mode))
 
+;; ripgrep
+(use-package rg)
+
 ;; 安装vertico
 (use-package vertico
   :init (vertico-mode))
@@ -63,7 +66,7 @@
 
   ;; everything
   (when *is-windows*
-	(setq consult-locate-args (encode-coding-string "es.exe -i -p -r" 'gbk))
+    (setq consult-locate-args (encode-coding-string "es.exe -i -p -r" 'gbk))
     (setq consult-ripgrep-args (encode-coding-string
                                 "rg --null --line-buffered --color=never --max-columns=1000 --path-separator / --smart-case --no-heading --line-number"
                                 'gbk))
@@ -139,15 +142,9 @@ targets."
 ;; embark-consult
 (use-package embark-consult
   :config
-  (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)))))
+  (add-hook
+   'embark-collect-mode-hook
+   #'consult-preview-at-point-mode))
 
 ;; wgrep
 (use-package wgrep)
@@ -155,13 +152,13 @@ targets."
 ;; 启用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，保存光标位置
@@ -177,8 +174,8 @@ targets."
 ;; vundo，撤回树
 (use-package vundo
   :init (setq undo-limit 800000
-	          undo-strong-limit 1200000
-	          undo-outer-limit 12000000))
+	      undo-strong-limit 1200000
+	      undo-outer-limit 12000000))
 
 ;; expand-region，快速展开选中
 (use-package expand-region)
@@ -193,10 +190,10 @@ targets."
 
 (use-package ibuffer-projectile
   :init (add-hook 'ibuffer-hook
-		            (lambda ()
-		              (ibuffer-projectile-set-filter-groups)
-		              (unless (eq ibuffer-sorting-mode 'alphabetic)
-		                (ibuffer-do-sort-by-alphabetic)))))
+		  (lambda ()
+		    (ibuffer-projectile-set-filter-groups)
+		    (unless (eq ibuffer-sorting-mode 'alphabetic)
+		      (ibuffer-do-sort-by-alphabetic)))))
 
 ;; avy中文支持
 (use-package ace-pinyin
@@ -220,9 +217,9 @@ targets."
                        (#x3000 . #x303F)
                        (#xFF00 . #xFFEF)
                        (#x20000 . #x2A6DF)))
-	    (let ((start (car range))
+	(let ((start (car range))
               (end (cdr range)))
-	      (dotimes (i (- end start))
+	  (dotimes (i (- end start))
             (modify-syntax-entry (+ start i) "_" jinx--syntax-table)))))
     (require 'init-jinx)))
 
diff --git a/lisp/init-ui.el b/lisp/init-ui.el
index ca4fa19..726c159 100644
--- a/lisp/init-ui.el
+++ b/lisp/init-ui.el
@@ -100,6 +100,10 @@
 ;; 显示行号列号
 (column-number-mode t)
 
+;; 显示时间
+(setq display-time-default-load-average nil)
+(display-time-mode t)
+
 ;; 添加个人字体到 cnfonts
 (setq cnfonts-personal-fontnames
       '(("Sarasa Fixed TC")  ; 英文字体
diff --git a/lisp/my-base16-dark-theme.el b/lisp/my-base16-dark-theme.el
index e26bc35..65dbf90 100644
--- a/lisp/my-base16-dark-theme.el
+++ b/lisp/my-base16-dark-theme.el
@@ -43,7 +43,11 @@
      `(dired-header ((,class (:foreground ,green))))
      `(mode-line ((,class (:foreground ,base0 :background ,base02))))
      `(mode-line-inactive ((,class (:foreground ,base01 :background ,base03))))
+     `(display-time-date-and-time ((,class (:foreground ,base1 :bold t))))
      `(jinx-misspelled ((,class (:underline (:style dashes :color ,yellow)))))
+     `(geiser-font-lock-repl-output ((,class (:foreground ,green))))
+     `(geiser-font-lock-doc-link ((,class (:foreground ,blue :underline t))))
+     `(geiser-font-lock-error-link ((,class (:foreground ,orange :underline t))))
      `(vertico-current ((,class (:background ,base02 :extend t :underline nil)))))))
 
 (provide-theme 'my-base16-dark)
diff --git a/lisp/my-base16-light-theme.el b/lisp/my-base16-light-theme.el
index 8a65bc0..0b3f0e9 100644
--- a/lisp/my-base16-light-theme.el
+++ b/lisp/my-base16-light-theme.el
@@ -43,7 +43,11 @@
      `(dired-header ((,class (:foreground ,green))))
      `(mode-line ((,class (:foreground ,base0 :background ,base02))))
      `(mode-line-inactive ((,class (:foreground ,base01 :background ,base03))))
+     `(display-time-date-and-time ((,class (:foreground ,base1 :bold t))))
      `(jinx-misspelled ((,class (:underline (:style dashes :color ,yellow)))))
+     `(geiser-font-lock-repl-output ((,class (:foreground ,green))))
+     `(geiser-font-lock-doc-link ((,class (:foreground ,blue :underline t))))
+     `(geiser-font-lock-error-link ((,class (:foreground ,orange :underline t))))
      `(vertico-current ((,class (:background ,base02 :extend t :underline nil)))))))
 
 (provide-theme 'my-base16-light)