From dd4bd72d70553df44680508fb1a475a362de5b14 Mon Sep 17 00:00:00 2001 From: Lucien Cartier-Tilet Date: Fri, 11 Feb 2022 11:12:23 +0100 Subject: [PATCH] [Emacs] Set font for main server AND new frames --- org/config/emacs.org | 14 ++++++++------ 1 file changed, 8 insertions(+), 6 deletions(-) diff --git a/org/config/emacs.org b/org/config/emacs.org index 2d214b4..bc98540 100644 --- a/org/config/emacs.org +++ b/org/config/emacs.org @@ -422,12 +422,14 @@ don’t. I prefer [[https://github.com/microsoft/cascadia-code][Cascadia Code]], (defvar phundrak/default-font-name "Cascadia Code" "Default font.") -(add-hook 'server-after-make-frame-hook - (lambda () - (when (find-font (font-spec :name phundrak/default-font-name)) - (set-face-attribute 'default nil - :font phundrak/default-font-name - :height phundrak/default-font-size)))) +(defun my/set-font () + (when (find-font (font-spec :name phundrak/default-font-name)) + (set-face-attribute 'default nil + :font phundrak/default-font-name + :height phundrak/default-font-size))) + +(my/set-font) +(add-hook 'server-after-make-frame-hook #'my/set-font) #+end_src *** Frame Title