modify font loading method

early-init.el

@@ -5,6 +5,12 @@
 ;; Initialize frame with alpha
 (add-to-list 'default-frame-alist '(alpha-background . 85))
 (add-to-list 'default-frame-alist '(fullscreen . maximized))
+(add-to-list 'default-frame-alist
+             (cons 'font (if (eq system-type 'windows-nt)
+                             (if (> (frame-pixel-width) 2560)
+                                 "等距更纱黑体 SC-16"
+                               "等距更纱黑体 SC-12")
+                           "Sarasa Mono SC-12")))
 
 (when (fboundp 'menu-bar-mode)
   (menu-bar-mode -1))

lisp/init-theme.el

@@ -96,8 +96,8 @@ if FRAME is nil, setup for current frame."
                (font-spec :family family :size size) frame)
             (error nil)))))))
 
-(add-hook 'emacs-startup-hook #'creature/fontset)
+;; (add-hook 'emacs-startup-hook #'creature/fontset)
-(add-hook 'server-after-make-frame-hook #'creature/fontset)
+;; (add-hook 'server-after-make-frame-hook #'creature/fontset)
 
 
 (provide 'init-theme)