From 373d9c521922fd2dabae5f2b0684f78c6321e36a Mon Sep 17 00:00:00 2001
From: Grégoire Duchêne <gduchene@awhk.org>
Date: Sat, 27 Jul 2024 10:37:21 +0100
Subject: emacs: Use nice fonts

---
 emacs/functions.el | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'emacs/functions.el')

diff --git a/emacs/functions.el b/emacs/functions.el
index accb52b..9eb405b 100644
--- a/emacs/functions.el
+++ b/emacs/functions.el
@@ -43,6 +43,13 @@ enabled."
         (enable-theme light-theme)
         (disable-theme dark-theme)))))
 
+(defun my/set-frame-font ()
+  "Set font in the selected frame."
+  (let* ((pred (lambda (font) (x-family-fonts (plist-get font :family))))
+         (font (seq-find pred my/fonts)))
+    (when font
+      (apply #'set-face-attribute `(default nil ,@font)))))
+
 
 ;; “Window Management” Functions
 
-- 
cgit v1.2.3-70-g09d2