From b3385fa46830e927246912008aa7fb1a3f8cbe38 Mon Sep 17 00:00:00 2001
From: lemyx <dyi.shiou@gmail.com>
Date: Sun, 29 Dec 2024 15:02:57 +0800
Subject: [PATCH] feat: Add font initialization configuration for Lisp

---
 lisp/init-font.el | 63 +++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 63 insertions(+)
 create mode 100644 lisp/init-font.el

diff --git a/lisp/init-font.el b/lisp/init-font.el
new file mode 100644
index 0000000..525dc17
--- /dev/null
+++ b/lisp/init-font.el
@@ -0,0 +1,63 @@
+;; init-font.el --- Fonts settings -*- lexical-binding: t -*-
+
+;;; Commentary:
+
+;;; Code:
+
+(defun load-font-setup ()
+  (let* ((emacs-font-size 25)
+         (chinese-font-name "TsangerJinKai03-6763")
+         (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)))
+    (when (display-grayscale-p)
+      (set-frame-font font-spec-english)
+      (set-fontset-font (frame-parameter nil 'font) 'unicode font-spec-english)
+      (dolist (charset '(kana han symbol cjk-misc bopomofo))
+        (set-fontset-font (frame-parameter nil 'font) charset font-spec-chinese)))
+    ))
+
+(load-font-setup)
+
+;; This is hacking to fix Emacs 29 will decrease font after standby.
+(add-function :after after-focus-change-function #'load-font-setup)
+
+
+(dolist (hook (list
+               'c-mode-common-hook
+               'c-mode-hook
+               'c++-mode-hook
+               'java-mode-hook
+               'haskell-mode-hook
+               'emacs-lisp-mode-hook
+               'lisp-interaction-mode-hook
+               'lisp-mode-hook
+               'maxima-mode-hook
+               'ielm-mode-hook
+               'sh-mode-hook
+               'makefile-gmake-mode-hook
+               'php-mode-hook
+               'python-mode-hook
+               'js-mode-hook
+               'go-mode-hook
+               'qml-mode-hook
+               'jade-mode-hook
+               'css-mode-hook
+               'ruby-mode-hook
+               'coffee-mode-hook
+               'rust-mode-hook
+               'qmake-mode-hook
+               'lua-mode-hook
+               'swift-mode-hook
+               'web-mode-hook
+               'markdown-ts-mode-hook
+               'llvm-mode-hook
+               'conf-toml-mode-hook
+               'nim-mode-hook
+               'typescript-mode-hook
+               ))
+  (add-hook hook #'(lambda () (load-font-setup))))
+
+(provide 'init-font)
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;; init-font.el ends here