2024-12-29 15:02:57 +08:00
|
|
|
;; 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)))
|
2024-12-29 15:02:58 +08:00
|
|
|
(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)))
|
2024-12-29 15:02:57 +08:00
|
|
|
|
2024-12-29 15:02:58 +08:00
|
|
|
(add-hook 'after-init-hook #'load-font-setup)
|
2024-12-29 15:02:57 +08:00
|
|
|
|
|
|
|
|
;; 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
|
