From 01c01da513aa9abab8fbd048ba97cd72e6cd31fd Mon Sep 17 00:00:00 2001 From: shoshin Date: Fri, 17 Mar 2023 15:54:23 -0500 Subject: Add: better handling of setting default frame font --- shoshimacs.el | 6 ++++-- shoshimacs.org | 9 +++++---- 2 files changed, 9 insertions(+), 6 deletions(-) diff --git a/shoshimacs.el b/shoshimacs.el index bee6420..b3071e6 100644 --- a/shoshimacs.el +++ b/shoshimacs.el @@ -354,8 +354,10 @@ (package-install 'darkroom) -(let ((size (if (or (equal (system-name) "zebes") (equal (system-name) "ridley")) 16 12))) - (set-frame-font (format "Victor Mono-%s" size))) +(let* ((size (if (or (equal (system-name) "zebes") (equal (system-name) "ridley")) 16 12)) + (font (format "Victor Mono-%s" size))) + (add-to-list 'default-frame-alist + `(font . ,font))) (global-hl-line-mode t) diff --git a/shoshimacs.org b/shoshimacs.org index 41099e3..9bf00c4 100644 --- a/shoshimacs.org +++ b/shoshimacs.org @@ -1125,15 +1125,16 @@ depending on the window layout currently in use. (package-install 'darkroom) #+end_src -** Fonts +** Fonts For code, I've grown fond of Victor Mono. #+begin_src emacs-lisp - (let ((size (if (or (equal (system-name) "zebes") (equal (system-name) "ridley")) 16 12))) - (set-frame-font (format "Victor Mono-%s" size))) + (let* ((size (if (or (equal (system-name) "zebes") (equal (system-name) "ridley")) 16 12)) + (font (format "Victor Mono-%s" size))) + (add-to-list 'default-frame-alist + `(font . ,font))) #+end_src - *** COMMENT Attempt to install the font via Emacs, url.el and ~make-process~ in the end, this "works" but isn't very useful. the font cache needs to be updated -- cgit v1.2.3