admin/.emacs.d
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
User
2026-05-08 13:53:08 +08:00
parent 00113ef0d4
commit 1808941dcb
4 changed files with 35 additions and 26 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
lisp/init-package.el
View File

@@ -38,6 +38,9 @@
:config :config
(which-key-mode)) (which-key-mode))
;; ripgrep
(use-package rg)
;; 安装vertico ;; 安装vertico
(use-package vertico (use-package vertico
:init (vertico-mode)) :init (vertico-mode))
@@ -139,15 +142,9 @@ targets."
;; embark-consult ;; embark-consult
(use-package embark-consult (use-package embark-consult
:config :config
(with-eval-after-load
'consult
'(with-eval-after-load
'embark
'(progn
(require 'embark-consult)
(add-hook (add-hook
'embark-collect-mode-hook 'embark-collect-mode-hook
#'consult-preview-at-point-mode))))) #'consult-preview-at-point-mode))
;; wgrep ;; wgrep
(use-package wgrep) (use-package wgrep)

4
lisp/init-ui.el
View File

@@ -100,6 +100,10 @@
;; 显示行号列号 ;; 显示行号列号
(column-number-mode t) (column-number-mode t)
;; 显示时间
(setq display-time-default-load-average nil)
(display-time-mode t)
;; 添加个人字体到 cnfonts ;; 添加个人字体到 cnfonts
(setq cnfonts-personal-fontnames (setq cnfonts-personal-fontnames
'(("Sarasa Fixed TC") ; 英文字体 '(("Sarasa Fixed TC") ; 英文字体

4
lisp/my-base16-dark-theme.el
View File

@@ -43,7 +43,11 @@
`(dired-header ((,class (:foreground ,green)))) `(dired-header ((,class (:foreground ,green))))
`(mode-line ((,class (:foreground ,base0 :background ,base02)))) `(mode-line ((,class (:foreground ,base0 :background ,base02))))
`(mode-line-inactive ((,class (:foreground ,base01 :background ,base03)))) `(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))))) `(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))))))) `(vertico-current ((,class (:background ,base02 :extend t :underline nil)))))))
(provide-theme 'my-base16-dark) (provide-theme 'my-base16-dark)

4
lisp/my-base16-light-theme.el
View File

@@ -43,7 +43,11 @@
`(dired-header ((,class (:foreground ,green)))) `(dired-header ((,class (:foreground ,green))))
`(mode-line ((,class (:foreground ,base0 :background ,base02)))) `(mode-line ((,class (:foreground ,base0 :background ,base02))))
`(mode-line-inactive ((,class (:foreground ,base01 :background ,base03)))) `(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))))) `(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))))))) `(vertico-current ((,class (:background ,base02 :extend t :underline nil)))))))
(provide-theme 'my-base16-light) (provide-theme 'my-base16-light)