Add TsangerJinKai03-6763 as Chinese Font

.gitignore

@@ -54,3 +54,4 @@ eln-cache/
 .cache/
 history
 .aider*
+.env

init.el

@@ -13,6 +13,7 @@
 ;; Generic
 (require 'init-package)
 (require 'init-onekey)
+(require 'init-font)
 (require 'init-ui)
 (require 'init-treemacs)
 (require 'init-save)

lisp/init-ai.el

@@ -25,13 +25,18 @@
 					:endpoint "/chat/completions"
 					:stream t
 					:key (read-llm-api-key (deepseek-api-key-path))
-					:models '("deepseek-chat" "deepseek-coder"))))
+					:models '("deepseek-chat" "deepseek-coder")))
+  ; Let window scroll automatically as the response is inserted
+  (add-hook 'gptel-post-stream-hook 'gptel-auto-scroll)
+  ; Let cursor move to the next prompt after the response is inserted
+  (add-hook 'gptel-post-response-functions 'gptel-end-of-response)
+  )
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; aider.el
 (add-to-list 'load-path "~/.emacs.d/site-lisp/aider/")
 (require 'aider)
-(setq aider-args '("--model" "deepseek/deepseek-coder"))
+(setq aider-args '("--no-auto-commits" "--model" "deepseek/deepseek-coder"))
 (setenv "DEEPSEEK_API_KEY" (read-llm-api-key (deepseek-api-key-path)))
 
 (provide 'init-ai)

lisp/init-font.el

@@ -4,57 +4,64 @@
 
 ;;; Code:
 
-(defun load-font-setup ()
+(defun font-installed-p (font-name)
-  (let* ((emacs-font-size 25)
+  "Check if font with FONT-NAME is available."
-         (chinese-font-name "TsangerJinKai03-6763")
+  (find-font (font-spec :name font-name)))
-         (english-font-name "Sarasa Term SC Nerd")
-         (font-spec-english (font-spec :family english-font-name :size emacs-font-size))
-         (font-spec-chinese (font-spec :family chinese-font-name :size emacs-font-size)))
-    (set-fontset-font (frame-parameter nil 'font) 'unicode-bmp font-spec-english)
-    (dolist (charset '(kana han symbol cjk-misc bopomofo))
-      (set-fontset-font (frame-parameter nil 'font) charset font-spec-chinese))
-    (set-frame-font font-spec-english)))
 
-(add-hook 'after-init-hook #'load-font-setup)
+(defconst sys/macp
+  (eq system-type 'darwin)
+  "Are we running on a Mac system?")
 
-;; This is hacking to fix Emacs 29 will decrease font after standby.
+(defconst sys/win32p
-(add-function :after after-focus-change-function #'load-font-setup)
+  (eq system-type 'windows-nt)
+  "Are we running on a WinTel system?")
 
+(defun centaur-setup-fonts ()
+  "Setup fonts."
+  (when (display-graphic-p)
+    ;; Set default font
+    (cl-loop for font in '("Sarasa Term SC Nerd" "Cascadia Code" "Fira Code" "Jetbrains Mono"
+                           "SF Mono" "Hack" "Source Code Pro" "Menlo"
+                           "Monaco" "DejaVu Sans Mono" "Consolas"
+			   )
+             when (font-installed-p font)
+             return (set-face-attribute 'default nil
+                                        :family font
+                                        :height (cond (sys/macp 130)
+                                                      (sys/win32p 110)
+                                                      (t 100))))
 
-(dolist (hook (list
+    ;; Set mode-line font
-               'c-mode-common-hook
+    ;; (cl-loop for font in '("Menlo" "SF Pro Display" "Helvetica")
-               'c-mode-hook
+    ;;          when (font-installed-p font)
-               'c++-mode-hook
+    ;;          return (progn
-               'java-mode-hook
+    ;;                   (set-face-attribute 'mode-line nil :family font :height 120)
-               'haskell-mode-hook
+    ;;                   (when (facep 'mode-line-active)
-               'emacs-lisp-mode-hook
+    ;;                     (set-face-attribute 'mode-line-active nil :family font :height 120))
-               'lisp-interaction-mode-hook
+    ;;                   (set-face-attribute 'mode-line-inactive nil :family font :height 120)))
-               'lisp-mode-hook
+
-               'maxima-mode-hook
+    ;; Specify font for all unicode characters
-               'ielm-mode-hook
+    (cl-loop for font in '("Apple Symbols" "Segoe UI Symbol" "Symbola" "Symbol")
-               'sh-mode-hook
+             when (font-installed-p font)
-               'makefile-gmake-mode-hook
+             return (set-fontset-font t 'symbol (font-spec :family font) nil 'prepend))
-               'php-mode-hook
+
-               'python-mode-hook
+    ;; Emoji
-               'js-mode-hook
+    (cl-loop for font in '("Noto Color Emoji" "Apple Color Emoji" "Segoe UI Emoji")
-               'go-mode-hook
+             when (font-installed-p font)
-               'qml-mode-hook
+             return (set-fontset-font t
-               'jade-mode-hook
+                                      (if (< emacs-major-version 28)'symbol 'emoji)
-               'css-mode-hook
+                                      (font-spec :family font) nil 'prepend))
-               'ruby-mode-hook
+
-               'coffee-mode-hook
+    ;; Specify font for Chinese characters
-               'rust-mode-hook
+    (cl-loop for font in '("TsangerJinKai03-6763 W05" "LXGW Neo Xihei" "WenQuanYi Micro Hei Mono" "LXGW WenKai Screen"
-               'qmake-mode-hook
+                           "LXGW WenKai Mono" "PingFang SC" "Microsoft Yahei UI" "Simhei")
-               'lua-mode-hook
+             when (font-installed-p font)
-               'swift-mode-hook
+             return (progn
-               'web-mode-hook
+                      (setq face-font-rescale-alist `((,font . 1.3)))
-               'markdown-ts-mode-hook
+                      (set-fontset-font t 'han (font-spec :family font))))))
-               'llvm-mode-hook
+(centaur-setup-fonts)
-               'conf-toml-mode-hook
+(add-hook 'window-setup-hook #'centaur-setup-fonts)
-               'nim-mode-hook
+(add-hook 'server-after-make-frame-hook #'centaur-setup-fonts)
-               'typescript-mode-hook
-               ))
-  (add-hook hook #'(lambda () (load-font-setup))))
 
 (provide 'init-font)
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

lisp/init-tex.el

@@ -31,8 +31,8 @@
                                (cdlatex-mode)
                                (reftex-mode)
                                (prettify-symbols-mode t)
-                               (outline-minor-mode)
+                               ;; (outline-minor-mode)
-                               (outline-hide-body)
+                               ;; (outline-hide-body)
                                (add-to-list 'TeX-command-list '("XeLaTeX" "%`xelatex --synctex=1%(mode)%' %t" TeX-run-TeX nil t))
                                )))
 

lisp/init-ui.el

@@ -21,10 +21,6 @@
 					))
 			   )))
 
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;;; Font
-(set-face-attribute 'default nil :font (font-spec :family "Sarasa Term SC Nerd" :size 14))
-
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;; Tab Bar
 (use-package tab-bar