From 3bc8206dcb184bef1d5b31d5432d6c0a2614e2c9 Mon Sep 17 00:00:00 2001
From: Christian Cunningham <cc@localhost>
Date: Wed, 26 Jun 2024 13:07:13 -0700
Subject: User-selected preferred font

---
 elchemy-user.el | 1 +
 elchemy-util.el | 7 ++-----
 2 files changed, 3 insertions(+), 5 deletions(-)

diff --git a/elchemy-user.el b/elchemy-user.el
index f293d1f..8f7e805 100644
--- a/elchemy-user.el
+++ b/elchemy-user.el
@@ -24,6 +24,7 @@
 ;; User Options
 (setq elchemy/user/dark-theme nil
       elchemy/user/font-height 120
+      elchemy/user/font-name "Andale Mono"
       elchemy/user/use-meow nil
       elchemy/user/latex-compiler "lualatex"
       elchemy/user/org-directory "~/org/"
diff --git a/elchemy-util.el b/elchemy-util.el
index 033adfd..43ed182 100644
--- a/elchemy-util.el
+++ b/elchemy-util.el
@@ -35,11 +35,8 @@
   (with-selected-frame (or frame (selected-frame))
     (set-frame-parameter (selected-frame) 'alpha '(95 . 90))
     (cond
-     ((find-font (font-spec :name "Andale Mono"))
-      (set-frame-font "Andale Mono-14")))
-    (cond
-     ((find-font (font-spec :name "FixedrSys Light 2x"))
-      (set-frame-font "FixederSys Light 2x-14:antialias=none")))
+     ((find-font (font-spec :name elchemy/user/font-name))
+      (set-frame-font elchemy/user/font-name)))
     (set-face-attribute 'default nil :height elchemy/user/font-height)
     (when elchemy/user/dark-theme
       (load-theme 'base16-gruvbox-dark-pale t))
-- 
cgit v1.2.1