[Emacs] Set font for main server AND new frames

This commit is contained in:
Lucien Cartier-Tilet 2022-02-11 11:12:23 +01:00
parent 6bf56bbce3
commit dd4bd72d70
Signed by: phundrak
GPG Key ID: BD7789E705CB8DCA

View File

@ -422,12 +422,14 @@ dont. I prefer [[https://github.com/microsoft/cascadia-code][Cascadia Code]],
(defvar phundrak/default-font-name "Cascadia Code" (defvar phundrak/default-font-name "Cascadia Code"
"Default font.") "Default font.")
(add-hook 'server-after-make-frame-hook (defun my/set-font ()
(lambda ()
(when (find-font (font-spec :name phundrak/default-font-name)) (when (find-font (font-spec :name phundrak/default-font-name))
(set-face-attribute 'default nil (set-face-attribute 'default nil
:font phundrak/default-font-name :font phundrak/default-font-name
:height phundrak/default-font-size)))) :height phundrak/default-font-size)))
(my/set-font)
(add-hook 'server-after-make-frame-hook #'my/set-font)
#+end_src #+end_src
*** Frame Title *** Frame Title