Config: change some colors of geriser repl, enable display-time, install rg.

lisp/init-package.el

@@ -38,6 +38,9 @@
   :config
   (which-key-mode))
 
+;; ripgrep
+(use-package rg)
+
 ;; 安装vertico
 (use-package vertico
   :init (vertico-mode))
@@ -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)))))
+   #'consult-preview-at-point-mode))
 
 ;; wgrep
 (use-package wgrep)

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")  ; 英文字体

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)

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)